excel - 从组合框中获取值/使用 VBA 将报表过滤器应用于数据透视表

Question

我有一个用户表单，用户从组合框（cboCountry）中选择域，并且根据此选择，我尝试使用 VBA 将过滤器应用于现有的数据透视表。我的代码如下所示，但是，此代码不起作用。

如果有人可以帮助我处理此代码，我将不胜感激。

Dim chartType As String
chartType = cboCountry.Value

With ActiveSheet.PivotTables("PivotTable1").PivotFields("Domain")
.Orientation = xlPageField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").PivotFields("Domain").ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("Domain").CurrentPage = chartType

我有以下错误。

Run-time error '1004':

Application-defined or object-defined error

先感谢您。

Answer 1

修剪组合框的值解决了这个问题。

With ActiveSheet.PivotTables("PivotTable1").PivotFields("Domain")
.Orientation = xlPageField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").PivotFields("Domain").ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("Domain").CurrentPage = Trim(cboCountry.Value)