通过从 VBA 中的单元格读取值来更改过滤器值答案

【问题标题】：Changing filter value by reading value from a cell in VBA通过从 VBA 中的单元格读取值来更改过滤器值
【发布时间】：2019-06-18 09:45:30
【问题描述】：

我有一个带有切片器的标签。其中一个切片器按月过滤数据。我正在尝试在 VBA 中编写代码，该代码使用另一个选项卡上单元格中的值来更改切片器过滤器。在此示例中，我的切片器从 6 变为 12。我想在另一个选项卡上的单元格 G3 中输入 6，然后在 VBA 中使用该值来定义应选择哪个过滤器

这是代码：

ActiveWorkbook.SlicerCaches("Slicer_Quote_Month").VisibleSlicerItemsList = _
        Array( _
        "[Table_OpenSQ].[Quote Month].&[6]")

如何将“6”更改为另一个工作表/选项卡上单元格中指定的任何值？

【问题讨论】：

将 "[Table_OpenSQ].[Quote Month].&[6]" 替换为 "[Table_OpenSQ].[Quote Month].&[" & Worksheets("Name").Range("A1").Value &"]" ... 根据工作表中的单元格和工作表名称更改 A1
太棒了......如果它有效，请接受答案@Angie

标签： excel vba

【解决方案1】：

使用这个：

ActiveWorkbook.SlicerCaches("Slicer_Quote_Month").VisibleSlicerItemsList = _
        Array("[Table_OpenSQ].[Quote Month].&[" & Worksheets("Name").Range("B1").Value & "]")

【讨论】：