MyTetra Share
Делитесь знаниями!
Visible Property : PivotTable
Время создания: 12.10.2019 20:12
Текстовые метки: Фильтр сводной, Visible Property, PivotTable, PivotItem
Раздел: !Закладки - VBA - Excel - Сводные
Запись: adgaver/mytetra_base_New/master/base/15164481895xawin34u9/text.html на raw.githubusercontent.com

Visible Property

Sub CompareMonths()

Dim pvt As PivotTable

Dim pvi As PivotItem

Dim sMonth As String

sMonth = "Jan"

Set pvt = ActiveSheet.PivotTables(1)

For Each pvi In pvt.PivotFields("Years").PivotItems

If pvi.Name <> "2006" And pvi.Name <> "2007" Then

pvi.Visible = False

End If

Next pvi

pvt.PivotFields("Date").PivotItems(sMonth).Visible = True

For Each pvi In pvt.PivotFields("Date").PivotItems

If pvi.Name <> sMonth Then pvi.Visible = False

Next pvi


End Sub


Так же в этом разделе:
 
MyTetra Share v.0.55
Яндекс индекс цитирования