Question

我最近发现了VBA代码，用于根据变量名称过滤切片器。它是一个很好的工具，用于过滤您想要查看的内容

我的代码中的下一步是可能从我的数据透视表/图表中自动删除可见数据（自动）。

假设我已经有一个变量“Remove_ITEM”需要从显示的数据中删除。 Remove_item位于切片器内（“slicer_Order”）。

数据也在数据模型中。

以下代码仅显示REmove_Item：

ActiveWorkbook.SlicerCaches("Slicer_Order").'VisibleSlicerItemsList = ("[Actuals_Table].[Order].&["& Remove_item &"]")

现在我想做相反的事情

Answer 1

我希望我理解你在帖子中想要实现的目标。

请尝试下面的代码，并告诉我它是否按预期工作：

ORA-08002: sequence GROUP_SEQ.currval is not yet defined in this session

Answer 2

请注意，这是专门用于连接数据模型的。

Sub Variables()
Part_Number = Worksheets("Solumina_Data_Page").Cells(Row, "B").Value
End Sub


Sub Sort_Part_Number()
Application.ScreenUpdating = False
Page1 = ActiveSheet.Name
Call Variables


Sheets("Dashboard").Activate

    ActiveWorkbook.SlicerCaches("Slicer_Material").VisibleSlicerItemsList = "[Part List].[Material].&[" & Part_Number & "]"
'    "[Part List].[Material].&[77C726210G1]" <<What we want to see

Sheets(Page1).Activate
Application.ScreenUpdating = True
End Sub

下面是使用数组

的类似示例

Sub Use_ARRAY()


Dim ARR() As String
ReDim ARR(1 To 2)
Call Array_Actuals_Data 'get data
Call Array_Outliers_removed 'sort data

ARR(1) = "[Actuals_Table].[Order].&[000010840921]"
ARR(2) = "[Actuals_Table].[Order].&[000010949159]"

ActiveWorkbook.SlicerCaches("Slicer_order").VisibleSlicerItemsList = ARR()

End Sub

vba选择切片器项目excel

2 个答案: