Pivot table, как ускорить фильтрацию в multi режиме?

28.07.2014, 16:11. **Показов** 666. **Ответов** 0

Author24 — интернет-сервис помощи студентам

Ребят, вопрос =).

По работе мне надо сделать программу которая бы фильтровала бы pivot table...:

Visual Basic

    Key33 = True
    For n = 0 To ListBox3.ListCount - 1
        If ListBox3.Selected(n) Then
            Key3 = 3
            On Error GoTo Label3
            Worksheets("Statistics1").PivotTables("PivotTable1").PivotFields("pcg_main_cat_id").PivotItems(ListBox3.List(n, 1) & "").Visible = True
            Key3 = 2
            If Key33 = True Then
                For nn = 1 To Worksheets("Statistics1").PivotTables("PivotTable1").PivotFields("pcg_main_cat_id").PivotItems.Count
                    If ListBox3.List(n, 1) & "" <> Worksheets("Statistics1").PivotTables("PivotTable1").PivotFields("pcg_main_cat_id").PivotItems(nn) Then Worksheets("Statistics1").PivotTables("PivotTable1").PivotFields("pcg_main_cat_id").PivotItems(nn).Visible = False
                Next nn
                Key33 = False
            End If
        End If
Label3:
    Next n

но построчная фильтрация в данном примере всякий раз пересчитаывает данные заново, поэтому скорость работы этой записи очень медленное...
Если кто знает есть какая нибудь другая запись которая может ускорить работу. Я догадываюсь что Excel может. Когда я в ручную задаю фильтры они быстро отрабатывают...

С уважением,
Сергей

	28.07.2014, 16:11