คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
http://www.snasui.com/
ลอง Run ดูจะทราบได้เองว่าใช้ได้หรือไม่ได้ครับผมได้่ลองไล่ Step การทำงาน ของ Code จากอาจารย์ ดูหลายครั้ง แบบไม่ใส่ Code หรือใส่ Code แล้วsnasui wrote: Thu Aug 02, 2018 7:41 pm
ควรอธิบายปัญหาที่เป็นมาอย่างละเอียดพร้อมแนบไฟล์ที่เขียน Code นี้มาด้วยจะได้ตอบต่อไปจากนั้น
Code ที่ผมตอบไปด้านบนจะต้องเป็น Code หลัก Code ส่วนอื่นไม่ว่าจะเป็น Advaced Filter หรือพิมพ์ จะอยู่ใน Code นั้นอีกทีครับ
Code: Select all
Next l
sPd.SlicerItems(k).Selected = TrueCode: Select all
For j = 1 To s.SlicerItems.Count
If s.SlicerItems(j).Selected = True Then
'Debug.Print s.SlicerItems(j).Name
ReDim Preserve arr(i)
arr(i) = s.SlicerItems(j).Name
i = i + 1
End If
Next j
End If
End With
Next s
For k = 1 To UBound(arr) + 1
sPd.ClearManualFiltersPd.ClearManualFilter คือการ Clear การเลือก Slicer ทิ้งทั้งหมดครับ สงสัยอะไรกับบรรทัดนี้เป็นพิเศษครับอันนี้เข้าใจครับว่า Clear Filter ทึ้งทั้งหมดsnasui wrote: Thu Aug 02, 2018 8:06 pmsPd.ClearManualFilterคือการ Clear การเลือก Slicer ทิ้งทั้งหมดครับ สงสัยอะไรกับบรรทัดนี้เป็นพิเศษครับ
Code: Select all
Next l
sPd.SlicerItems(k).Selected = Trueprimeval wrote: Thu Aug 02, 2018 8:07 pmอันนี้เข้าใจครับว่า Clear Filter ทึ้งทั้งหมดsnasui wrote: Thu Aug 02, 2018 8:06 pmsPd.ClearManualFilterคือการ Clear การเลือก Slicer ทิ้งทั้งหมดครับ สงสัยอะไรกับบรรทัดนี้เป็นพิเศษครับ
แต่พอรันมาถึงบรรทัดนี้ ที่เราเลือก ไว้กลายมาเป็นเลือก Slicer ข้อมูลแรกตลอดครับCode: Select all
Next l sPd.SlicerItems(k).Selected = True
ผมน่าจะเขียนตกไปครับ ที่ถูกต้องควรเป็นsPd.SlicerItems(arr(k)).Selected = TrueCode: Select all
Sub test()
Dim s As SlicerCache, arr(), sPd As SlicerCache
Dim i As Integer, j As Integer, k As Integer, l As Integer
For Each s In ActiveWorkbook.SlicerCaches
With s
If s.Name = "Slicer_ÃËÑÊ_ÊÒ¢Ò" Then
Set sPd = ActiveWorkbook.SlicerCaches(s.Name)
For j = 1 To s.SlicerItems.Count
If s.SlicerItems(j).Selected = True Then
'Debug.Print s.SlicerItems(j).Name
ReDim Preserve arr(i)
arr(i) = s.SlicerItems(j).Name
i = i + 1
End If
Next j
End If
End With
Next s
For k = 1 To UBound(arr) + 1
sPd.ClearManualFilter
For l = 1 To sPd.SlicerItems.Count - 1
sPd.SlicerItems(l).Selected = False
Next l
sPd.SlicerItems(arr(k)).Selected = True
'Your command for printing.
Next k
End SubCode: Select all
'Other code
For k = 0 To UBound(arr)
sPd.ClearManualFilter
For l = 1 To sPd.SlicerItems.Count - 1
sPd.SlicerItems(l).Selected = False
Next l
sPd.SlicerItems(arr(k)).Selected = True
'Your command for printing.
Next k
'Other code
Code: Select all
'Other code
For k = 1 To UBound(arr) + 1
sPd.ClearManualFilter
For l = 1 To sPd.SlicerItems.Count - 1
sPd.SlicerItems(l).Selected = False
Next l
sPd.SlicerItems(arr(k - 1)).Selected = True
'Your command for printing.
Next k
'Other code
ขอบคุณครับ ขอบคุณมากๆครับsnasui wrote: Thu Aug 02, 2018 8:41 pm
หรือCode: Select all
'Other code For k = 0 To UBound(arr) sPd.ClearManualFilter For l = 1 To sPd.SlicerItems.Count - 1 sPd.SlicerItems(l).Selected = False Next l sPd.SlicerItems(arr(k)).Selected = True 'Your command for printing. Next k 'Other code
ค่าล่างสุดของ Array จะเริ่มจากลำดับที่ 0 เสมอ แต่ผมไปเริ่มจาก 1 ขอบเขตบนก็เลยเกินไปจากจำนวนสมาชิกที่มีครับCode: Select all
'Other code For k = 1 To UBound(arr) + 1 sPd.ClearManualFilter For l = 1 To sPd.SlicerItems.Count - 1 sPd.SlicerItems(l).Selected = False Next l sPd.SlicerItems(arr(k - 1)).Selected = True 'Your command for printing. Next k 'Other code
อ่านแล้วยังไม่เข้าใจครับCode: Select all
'Other code
Next s
sPd.ClearManualFilter
For l = 1 To sPd.SlicerItems.Count - 1
sPd.SlicerItems(l).Selected = False
Next l
For k = 0 To UBound(arr)
If k > 0 Then sPd.SlicerItems(arr(k - 1)).Selected = False
sPd.SlicerItems(arr(k)).Selected = True
'Your command for printing.
Next k
For k = 0 To UBound(arr)
sPd.SlicerItems(arr(k)).Selected = True
Next k
'Other code
Code: Select all
sPd.ClearManualFilter
For l = 1 To sPd.SlicerItems.Count - 1
sPd.SlicerItems(l).Selected = FalseCode: Select all
'Other code
Next s
sPd.ClearManualFilter
For l = 1 To sPd.SlicerItems.Count - 1
sPd.SlicerItems(l).Selected = False
Next l
For k = 0 To UBound(arr)
sPd.SlicerItems(arr(k)).Selected = True
If k > 0 Then sPd.SlicerItems(arr(k - 1)).Selected = False
If k = 0 Then sPd.SlicerItems(sPd.SlicerItems.Count).Selected = False
'Your command for printing.
Next k
For k = 0 To UBound(arr)
sPd.SlicerItems(arr(k)).Selected = True
Next k
'Other code