snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
Macro Get Data เป็นการทำ Advanced Filter โดยใช้ Criteria ในชีต Pivot_Filters ซึ่งกำหนดให้แสดงค่าตามคอลัมน์ B ซึ่งมีรายการเดียว จึงเป็นปกติที่จะดึงมาได้เพียงรายการเดียวครับ
Macro Get Data เป็นการทำ Advanced Filter โดยใช้ Criteria ในชีต Pivot_Filters ซึ่งกำหนดให้แสดงค่าตามคอลัมน์ B ซึ่งมีรายการเดียว จึงเป็นปกติที่จะดึงมาได้เพียงรายการเดียวครับ
อ้อ เข้าใจล่ะครับ จะมีวิธีไหนให้ค่า Criteria Range for Filters แสดงออกมาทั้งหมดตามที่เราเลือกใน Slicer ครับ
'Other code...
If Sheets("Pivot_Filters").Range("a8").Value = "" Then Exit Sub
Set wsPF = Sheets("Pivot_Filters")
Set wsSD = Sheets("SalesData")
Set wsOP = Sheets("Output")
'Other code...