0

ユーザーがコンボボックス(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

前もって感謝します。

4

1 に答える 1