Brisanje polj iz vrtilne tabele

Pomoč pri delu z MS Excelom
Odgovori
pero978
Prispevkov: 148
Pridružen: Pe Feb 24, 2012 10:18 am

Brisanje polj iz vrtilne tabele

Odgovor Napisal/-a pero978 »

Pozdravljeni,

Rad bi izdelal makro ( s pomočjo google :) ), ki bo odstranil vsa polja iz vrtilne tabele, vendar mi ne uspe popolnoma, ker sicer ostrani polja iz območij filtri, stolpci in vrstice ne pa iz območja vrednosti.

Hvala, lp

Sub Hide_Fields()
For Each pvt In ActiveSheet.PivotTables
For Each pvtfld In pvt.PivotFields
pvtfld.Orientation = xlHidden
Next pvtfld
Next pvt
End Sub
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Brisanje polj iz vrtilne tabele

Odgovor Napisal/-a admin »

Pozdravljeni,

Odstraniti morate tudi podatkovna polja:

Koda: Izberi vse

  Dim pvt, pvtfld
  For Each pvt In ActiveSheet.PivotTables
    pvt.ManualUpdate = True
    
    For Each pvtfld In pvt.DataFields
      pvtfld.Orientation = xlHidden
    Next pvtfld
    
    For Each pvtfld In pvt.PivotFields
      pvtfld.Orientation = xlHidden
    Next pvtfld
    
    pvt.ManualUpdate = False
  Next pvt
lp,
Matjaž Prtenjak
Administrator
Odgovori