Пожалуйста помогите.
У меня стоит задача установить фильтр в сводной таблице исходя из выбранных нескольких значений в ListBox.
Написал такой код:
На команде присвоения фильтру сводной таблицы значений массива выбранных пунктов выдает ошибку 1004
Не могу разобраться что я делаю не так.
У меня стоит задача установить фильтр в сводной таблице исходя из выбранных нескольких значений в ListBox.
Написал такой код:
Код |
---|
Sub btFilter_Click() Dim iList() Dim x As Integer x = 0 UserFormFilter1.Show ReDim iList(UserFormFilter1.ListBox1.ListCount) For i = 0 To UserFormFilter1.ListBox1.ListCount - 1 Step 1 If UserFormFilter1.ListBox1.Selected(i) Then iList(x) = UserFormFilter1.ListBox1.List(i, 0) 'MsgBox iList(x) x = x + 1 End If Next i ReDim Preserve iList(x - 1) ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _ "[tbBasePLBS].[Тип_отчетности].[Тип_отчетности]").VisibleItemsList = iList End Sub |
На команде присвоения фильтру сводной таблицы значений массива выбранных пунктов выдает ошибку 1004
Не могу разобраться что я делаю не так.