從組合框中獲取價值/將報表過濾器應用於使用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)