0

我正在尝试通过 VBA 中的切片器,这是我的代码:

ActiveWorkbook.SlicerCaches("Slicer_Customer_Name1").ClearManualFilter 'Opens the slicer we want to focus on
    With ActiveWorkbook.SlicerCaches("Slicer_Customer_Name1")
            For countCustomer = 1 To 100

            Sheet4.Cells(countCustomer, 3) = Sheet3.Cells(5, 1)
            prevCustomer = countCustomer - 1
                If countCustomer > 1 Then 
                .SlicerItems(countCustomer).Selected = True 
                .SlicerItems(prevCustomer).Selected = False 
                End If
            Next countCustomer

    End With

我想要做的是通过切片器并为每个不同的过滤值打印出单元格 A5 中的值。我需要它来完成一个项目的代码,而这只是基础。

4

0 回答 0