MS Excel

Téma: Filtr kontingenční tabulky

Zaslal/a Eddie 25.6.2014 8:40

Zdravím,

mám data v kontingenční tabulce, kde ve flitru sestavy mám určité parametry (například čísla 1 - 100). Ale při dalším spouštění makra se mohou objevovat i jiné hodnoty.

Potřebuji vyfiltrovat pouze data pro hodnoty 10, 20 a 30. Když to provedu ručně a nahraji makro, jsou tam všechny hodnoty vypsány s parametrem "False" mimo těch požadovaných hodnot.

Neví prosím někdo jakým způsobem lze toto makro napsat tak, aby to bylo ve formě odznač vše, označ 10, označ 20, označ 30?

Mockrát díky

Zaslat odpověď >

eLCHa(25.6.2014 12:11)#020129

Sub subTest()
With ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields("a")

Dim pi As PivotItem
For Each pi In .PivotItems
Select Case pi.Caption
Case "10", "20", "30"
pi.Visible = True
Case Else
pi.Visible = False
End Select
Next pi
Set pi = Nothing
End With 'ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields("a")
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.