MS Excel

Téma: Filtr Kontingenční tabulky

Zaslal/a Miquelle 9.12.2016 15:05

Dobrý den,
mám jeden problém. Potřeboval bych vyfiltrovat v kontingenční tabulce datum, který zadám přes InputBox + 4 následující dny. Stále mi to hází chybu "1004 Není možné nastavit vlastnost Visible třídy PivotItem". Již se to zde řešilo (http://wall.cz/index.php?m=topic&id=20110), ale když místo čísel zapíšu datum, tak to vyhodí stejný error. Budu rád za jakoukoliv radu. Níže posílám zápis. Děkuji

Sub ahoj()

Dim PT As PivotTable
Dim PF As PivotField
Dim pi As PivotItem
Dim XXX As String
Dim XXX1 As String
Dim XXX2 As String
Dim XXX3 As String
Dim XXX4 As String

XXX = InputBox("Zadej datum")
XXX1 = DateAdd("d", 1, XXX)
XXX2 = DateAdd("d", 2, XXX)
XXX3 = DateAdd("d", 3, XXX)
XXX4 = DateAdd("d", 4, XXX)

Sheets("List4").Activate
For Each PT In ActiveSheet.PivotTables
For Each PF In PT.PivotFields
If PF = "Date" Then
PF.EnableMultiplePageItems = True
For Each pi In PF.PivotItems
If pi = XXX Or pi = XXX1 Or pi = XXX2 Or pi = XXX3 Or pi = XXX4 Then
pi.Visible = True
Else
pi.Visible = False
End If
Next pi
Else
End If
Next PF
Next PT
Sheets("List4").PivotTables("KT").PivotCache.Refresh

End Sub

Zaslat odpověď >

Pavlus(9.12.2016 15:29)#033744

Podle mě jsi nepochopil ten kód ze zmiňovaného příspěvku ;-).
Nestudoval jsem to nějak do hloubky, ale nemáš tam třeba vůbec "pi.Caption" (ve svém kódu máš jenom jenom "pi"), což pak nedává smysl...
P.citovat

Miquelle(10.12.2016 10:47)#033757

No zkoušel jsem to vyřešit přes if a v kódu z URL adresy se používá select case. S VBA nepracuji moc dlouho a select case jsem zatím nepoužíval. Kód jsem psal v excelu verze 2010, kde mi to nefunguje a výše zmiňovanou chybu to vždy hlásilo na řádku pi.Visible = False, ale když kód napíšu do excelu verze 2007, tak mi funguje

nechápu, jak je to možné ..

citovat

Téma: Filtr Kontingenční tabulky

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje