vba - 控制数据透视表过滤器的多个复选框

Question

我正在尝试创建一个用户友好的数据透视表控件。我设置了多个宏来控制数据透视表，如下所示：

Sub FilterA()
ActiveSheet.PivotTables("PivotTable2").PivotFields("A").CurrentPage = "TRUE"
ActiveSheet.PivotTables("PivotTable2").PivotFields("B").CurrentPage = "(All)"
ActiveSheet.PivotTables("PivotTable2").PivotFields("C").CurrentPage = "(All)"
ActiveSheet.PivotTables("PivotTable2").PivotFields("D").CurrentPage = "(All)"
ActiveSheet.PivotTables("PivotTable2").PivotFields("E").CurrentPage = "(All)"
ActiveSheet.PivotTables("PivotTable2").PivotFields("F").CurrentPage = "(All)"
End Sub

Sub FilterB()
ActiveSheet.PivotTables("PivotTable2").PivotFields("A").CurrentPage = "(All)"
ActiveSheet.PivotTables("PivotTable2").PivotFields("B").CurrentPage = "TRUE"
ActiveSheet.PivotTables("PivotTable2").PivotFields("C").CurrentPage = "(All)"
ActiveSheet.PivotTables("PivotTable2").PivotFields("D").CurrentPage = "(All)"
ActiveSheet.PivotTables("PivotTable2").PivotFields("E").CurrentPage = "(All)"
ActiveSheet.PivotTables("PivotTable2").PivotFields("F").CurrentPage = "(All)"
End Sub

等等...

我想要做的是能够将这些附加到复选框，但能够为多个过滤器勾选多个框。（例如 A 和 C）我意识到我不能使用上面的方法做到这一点。我有什么办法吗？我觉得我错过了什么。请记住，我对vba不是很精通。

谢谢！

Answer 1

你的基本语法是这样的：

Option Explicit

Sub UseCheckBox()

Dim cb as Checkbox

Set cb = Sheets(1).Controls("myCheckbox")

If cb.Value = True

      ActiveSheet.PivotTables("PivotTable2").PivotFields("A").CurrentPage = "TRUE"

End If

End Sub

您可以扩展它以添加任意数量的复选框，循环它们，更改条件等。