Snasui Excel Forum

ได้ผลลัพธ์ตามที่ต้องการแล้ว ขอบคุณครับ.

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
    Dim gtVal As Long
    
    With Worksheets("PfmRY")
        gtVal = .Range("w" & .Rows.Count).End(xlUp).Value
        With .Shapes("TextBox 4")
            .TextFrame2.TextRange.Characters.Text = gtVal
        End With
    End With
End Sub

:D การทำเช่นนั้นสามารถใช้ Link ปกติได้ครับ

วิธีการ Link
[list=1]
[*]ที่เซลล์ Y1 คีย์ = แล้วคลิกที่ W8 (เซลล์ที่ตรงกับ Grand Total) จะได้สูตรเป็น
[font=consolas]=GETPIVOTDATA("Count of PO",$V$3)[/font]
[*]คลิกที่ TextBox 4 > คลิกลงใน Formula Bar > คีย์ =y1 แล้ว Enter ใน TextBox 4 จะได้ค่าตาม Y1
[*]เมื่อคลิก Slicer ค่าจะเปลี่ยนไปตาม PivotTable เสมอ
[/list]

หากต้องการ Code

ไปที่หน้าต่าง VBE > วาง Code นี้ใน ThisWorkbook แทนการวางใน Module ใด ๆ จากนั้นทดสอบเลือก Slicer ดูครับ
[code]Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
Dim gtVal As Long

With Worksheets("PfmRY")
gtVal = .Range("w" & .Rows.Count).End(xlUp).Value
With .Shapes("TextBox 4")
.TextFrame2.TextRange.Characters.Text = gtVal
End With
End With
End Sub
[/code]

ช่วยปรับโค้ด ที่เลือกจาก Slicer แล้วหาผลรวมจาก Pivot Table ลงใน textBox4 รายละเอียดตามไฟล์ที่แนบมาด้วย. ขอบคุณครับ