Подключите Active X Combobox к фильтру сводных таблиц - PullRequest
0 голосов
/ 22 октября 2018

У меня возникли проблемы с подключением комбинированного списка Active X к фильтру сводной таблицы.По сути, мне нужно, чтобы пользователи выбирали из выпадающего списка идентификатор, который нужно связать с фильтром сводной таблицы.Я использую следующий код:

Private Sub ComboBox1_Change()
Dim sheet As Worksheet
Dim pt As PivotTable
Dim ptField As PivotField
Set sheet = ThisWorkbook.Worksheets("Overview")
Set pt = sheet.PivotTables("Main")
Set ptField = pt.PivotFields("CustomersId")
ptField.ClearAllFilters
ptField.CurrentPage = Me.ComboBox1.Value
End Sub

Я получаю сообщение об ошибке: «Невозможно получить свойство PivotFields класса PivotTable».

Любое представление о том, что не так с приведенным вышекод?Что-то, чего мне не хватает?

Заранее спасибо

...