VBA一个一个地通过切片器

Question

我有一张包含原始数据的表格。我想编写一个宏，该宏将使用标题引擎编号创建一个拼接器，然后选择切片器#1，然后将数据中可见的所有数据复制到另一个工作表。连续移动到切片器 #2 并重复将过滤后的数据复制到另一张表的步骤。

这是我从宏记录器中得到的。这不是我可以使用的，因为新数据表中的数字会有所不同。我正在考虑使用循环。除了循环还有更好的方法吗？我需要将每个切片器项目显示的内容复制到另一张纸上。

我也看到了SlicerItems 和SlicerCache，但我不知道它们是什么。谁能给我解释一下它们是什么？

Sub slicer()

With ActiveWorkbook.SlicerCaches("Slicer_Engine_S_N.")
    .SlicerItems("123456").Selected = True
    .SlicerItems("123441").Selected = False
    .SlicerItems("123123").Selected = False
    .SlicerItems("235455").Selected = False
    .SlicerItems("566346").Selected = False
End With

Answer 1

做这样的事情

Option Explicit

Sub IterateSlices()
    Dim CurrentSlice As Integer
    For CurrentSlice = 1 To 3
        SelectOnly ActiveWorkbook.SlicerCaches("Slicer_Engine_S_N."), CurrentSlice
        MsgBox "Do Something here"
    Next
End Sub

Sub SelectOnly(Slicer As SlicerCache, SliceNo As Integer)
    Dim i As Integer
    ' Force at least one to be selected before start
    Slicer.SlicerItems(Slicer.SlicerItems.Count).Selected = True

    For i = 1 To Slicer.SlicerItems.Count
        Debug.Print (SliceNo = i)
        Slicer.SlicerItems(i).Selected = (SliceNo = i)
    Next i
End Sub

最后一个方法是选择第 n 个 SliceItem 的实用方法。使用索引号而不是名称更容易。它们总是以数字 1 开始，以切片数结束。

第一种方法一次选择一个切片。

SlicerCache 是 Excel 的内部机制，用于跟踪哪些数据属于哪个切片。