VBA ที่เลือกจาก Slicer แล้วหาผลรวมจาก Pivot Table ลงใน textBox

[KHAMTUNM]

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

[snasui]

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

วิธีการ Link

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

หากต้องการ Code

ไปที่หน้าต่าง VBE > วาง Code นี้ใน ThisWorkbook แทนการวางใน Module ใด ๆ จากนั้นทดสอบเลือก Slicer ดูครับ

Code: Select all

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

[KHAMTUNM]

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