VBA ที่เลือกจาก Slicer แล้วหาผลรวมจาก Pivot Table ลงใน textBox
Posted: Wed Oct 08, 2025 3:50 pm
ช่วยปรับโค้ด ที่เลือกจาก Slicer แล้วหาผลรวมจาก Pivot Table ลงใน textBox4 รายละเอียดตามไฟล์ที่แนบมาด้วย. ขอบคุณครับ
การทำเช่นนั้นสามารถใช้ Link ปกติได้ครับวิธีการ Link
- ที่เซลล์ Y1 คีย์ = แล้วคลิกที่ W8 (เซลล์ที่ตรงกับ Grand Total) จะได้สูตรเป็น
=GETPIVOTDATA("Count of PO",$V$3) - คลิกที่ TextBox 4 > คลิกลงใน Formula Bar > คีย์ =y1 แล้ว Enter ใน TextBox 4 จะได้ค่าตาม Y1
- เมื่อคลิก Slicer ค่าจะเปลี่ยนไปตาม PivotTable เสมอ
ไปที่หน้าต่าง 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