🔊 โปรดทราบ Image
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ดครับ Image
  2. การสมัครสมาชิกเพื่อโพสต์คำถาม ดาวน์โหลดไฟล์แนบไปศึกษา ทำตามขั้นตอนด้านล่างครับ
    1. สมัครสมาชิก ดูขั้นตอนตาม Link นี้ครับ => สมัครสมาชิก กรณีลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่นี่ครับ => Reset รหัสผ่านImage
    2. Login เข้าระบบโดยคลิก Login ตรงมุมขวาบนของหน้านี้ Image กรณีมีปัญหาในการเข้าใช้งาน คลิก Link นี้เพื่อแจ้งผู้ดูแลระบบครับ => ติดต่อผู้ดูแลระบบ
  3. เมื่อ Login แล้วสามารถกำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษได้ที่ Link นี้ครับ => ตั้งค่าส่วนตัว Image
  4. วิธีการตั้งและตอบกระทู้ดูได้ที่ Link นี้ครับ => วิธีการตั้งและตอบกระทู้ Image
  5. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ Link นี้ครับ => จัดรูปแบบตัวอักษร และสามารถกำหนดขนาดตัวอักษรใน Browser ได้ที่นี่ครับ => กำหนดขนาดตัวอักษรใน Browser Image

สอบถามเกียวกับการ ใช้ Pivot Table ควบการการทำงานของ code

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้เพื่อเพิ่มความสะดวกในการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่น นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
yodpao.b
Silver
Silver
Posts: 750
Joined: Tue Jul 19, 2011 2:47 pm

สอบถามเกียวกับการ ใช้ Pivot Table ควบการการทำงานของ code

#1

Post by yodpao.b » Fri Dec 02, 2016 2:42 pm

สอบถามเกียวกับการ ใช้ Pivot Table ควบการการทำงานของ code
[img]
Capture.JPG
[/img]
จากรูป
ต้องการ เมื่อเลือกในวงกลมสีแดง "รายการ" แล้ว
Pivot Table จะทำงาน เมื่อทำงานเสร็จแล้ว ให้มันทำตามโค้ด ที่เราเขียนต่อได้หรือไม่

คำถาม ถ้าได้จะให้ใช้คำสั่งอะไรครับ
You do not have the required permissions to view the files attached to this post.

User avatar
parakorn
Silver
Silver
Posts: 833
Joined: Thu Mar 14, 2013 9:41 am
Contact:

Re: สอบถามเกียวกับการ ใช้ Pivot Table ควบการการทำงานของ code

#2

Post by parakorn » Fri Dec 02, 2016 6:00 pm

ควรแนบไฟล์ เพื่อให้คนแก้ปัญหา เข้าถึงปัญหาโดยไว
และกรณี เกี่ยวกับ VBA ต้องลองเขียนโค้ดมาเองก่อนทุกครั้งครับ
ที่เงียบไปนี่มีสองอย่างครับ คือ "ติดงาน" กับ "ไปต่อไม่ได้" :lol: :lol: :lol:

yodpao.b
Silver
Silver
Posts: 750
Joined: Tue Jul 19, 2011 2:47 pm

Re: สอบถามเกียวกับการ ใช้ Pivot Table ควบการการทำงานของ code

#3

Post by yodpao.b » Fri Dec 02, 2016 10:43 pm

ผมแค่สังสัยว่าเมื่อเลือกตัวกรองใน Pivot Table แล้ว

ตัวกรองใน Pivot Table ทำงานตามปกติเสร็จเรียบร้อยแล้ว หลังจากนั้นก็ให้ทำงานตาม code ที่เราได้เขียน

คำถาม
มันสามารถทำได้ไหมครับโดยไม่สร้างปุ่่มเพิ่ม

User avatar
snasui
Site Admin
Site Admin
Posts: 23161
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: สอบถามเกียวกับการ ใช้ Pivot Table ควบการการทำงานของ code

#4

Post by snasui » Fri Dec 02, 2016 10:56 pm

:D ใช้ Worksheet_Change เข้ามาช่วยดักจับการเปลี่ยนแปลงได้ครับ

yodpao.b
Silver
Silver
Posts: 750
Joined: Tue Jul 19, 2011 2:47 pm

Re: สอบถามเกียวกับการ ใช้ Pivot Table ควบการการทำงานของ code

#5

Post by yodpao.b » Fri Dec 02, 2016 11:12 pm

ขอบคุณครับ
จะลองทำดูก่อนครับ

yodpao.b
Silver
Silver
Posts: 750
Joined: Tue Jul 19, 2011 2:47 pm

Re: สอบถามเกียวกับการ ใช้ Pivot Table ควบการการทำงานของ code

#6

Post by yodpao.b » Sat Dec 03, 2016 3:55 pm

ขอบคุณครับท่านอาจารย์
ผมใช้ 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

ได้ตามต้องการครับ

Post Reply