Page 1 of 1
สอบถามเกียวกับการ ใช้ Pivot Table ควบการการทำงานของ code
Posted: Fri Dec 02, 2016 2:42 pm
by yodpao.b
สอบถามเกียวกับการ ใช้ Pivot Table ควบการการทำงานของ code
[img]
- Capture.JPG (14.75 KiB) Viewed 99 times
[/img]
จากรูป
ต้องการ เมื่อเลือกในวงกลมสีแดง "รายการ" แล้ว
Pivot Table จะทำงาน เมื่อทำงานเสร็จแล้ว ให้มันทำตามโค้ด ที่เราเขียนต่อได้หรือไม่
คำถาม ถ้าได้จะให้ใช้คำสั่งอะไรครับ
Re: สอบถามเกียวกับการ ใช้ Pivot Table ควบการการทำงานของ code
Posted: Fri Dec 02, 2016 6:00 pm
by parakorn
ควรแนบไฟล์ เพื่อให้คนแก้ปัญหา เข้าถึงปัญหาโดยไว
และกรณี เกี่ยวกับ VBA ต้องลองเขียนโค้ดมาเองก่อนทุกครั้งครับ
Re: สอบถามเกียวกับการ ใช้ Pivot Table ควบการการทำงานของ code
Posted: Fri Dec 02, 2016 10:43 pm
by yodpao.b
ผมแค่สังสัยว่าเมื่อเลือกตัวกรองใน Pivot Table แล้ว
ตัวกรองใน Pivot Table ทำงานตามปกติเสร็จเรียบร้อยแล้ว หลังจากนั้นก็ให้ทำงานตาม code ที่เราได้เขียน
คำถาม
มันสามารถทำได้ไหมครับโดยไม่สร้างปุ่่มเพิ่ม
Re: สอบถามเกียวกับการ ใช้ Pivot Table ควบการการทำงานของ code
Posted: Fri Dec 02, 2016 10:56 pm
by snasui
ใช้ Worksheet_Change เข้ามาช่วยดักจับการเปลี่ยนแปลงได้ครับ
Re: สอบถามเกียวกับการ ใช้ Pivot Table ควบการการทำงานของ code
Posted: Fri Dec 02, 2016 11:12 pm
by yodpao.b
ขอบคุณครับ
จะลองทำดูก่อนครับ
Re: สอบถามเกียวกับการ ใช้ Pivot Table ควบการการทำงานของ code
Posted: Sat Dec 03, 2016 3:55 pm
by yodpao.b
ขอบคุณครับท่านอาจารย์
ผมใช้ Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
เมื่อ PivotTable มีการเปลี่ยนแปลงใดๆ ก็ตาม ให้รันโคดดังนี้
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Range("O10").Select
ActiveCell.FormulaR1C1 = "a"
Range("O11").Select
ActiveCell.FormulaR1C1 = "b"
Range("O12").Select
ActiveCell.FormulaR1C1 = "c"
End Sub
ได้ตามต้องการครับ