Mám za to, že záleží na PivotTable.Version. Skontroluj číslo: slicers by mali byť v dispozícii u verzie PT 4 (xlPivotTableVersion14) , u PT verzie 1 (xlPivotTableVersion10) asi nebudú.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Šedý "Průřez" "Slicer"
MS Excel
Téma: Šedý "Průřez" "Slicer" 
Zaslal/a RomanNTA 8.8.2014 9:28
Ahoj.
Tlačítko na přidání průřezu do kontingenční tabulky mám šedé - nedá se přidat/vložit průřez. Tyto KT jsou sestavovány makrem. Nejde mi to na souborech .xls; .xlsm a .xlsx. Zkoušel jsem nastavování možností KT (používám klasické staré rozložení) a taky nic. Používám to krátce a moc zkušeností s tím nemám. Nenapadá Vás proč nejde průřez vložit do KT ?
Roman
Zasielam vzor, z ktorého by si mal pochopiť, o čom hovorím.
edit: riadok srcRng.Select v kóde samozrejme byť nemusí, ale ten vzor kvôli tomu posielať znovu nebudem
Otázkou je, či sa dá nejak zmeniť verzia príslušnej KT po tom, čo bola táto vytvorená. Pmn to nejde, aspoň ja som neprišiel na to, ako by to šlo. Čiže na to, aby si mohol slicers používať, príslušná KT musí byť hneď na začiatku vytvorená vo verzii, ktorá použitie slicers umožňuje. Pokiaľ niekto príde na to, ako verziu KT zmeniť po tom, čo je táto vytvorená, rád sa priučím. Každopádne, pokiaľ KT zostavuješ, ako hovoríš, programovo, tak by nemal byť problém v kóde nastaviť vhodnú verziu KT v momente jej tvorby.
edit: riadok srcRng.Select v kóde samozrejme byť nemusí, ale ten vzor kvôli tomu posielať znovu nebudem
Otázkou je, či sa dá nejak zmeniť verzia príslušnej KT po tom, čo bola táto vytvorená. Pmn to nejde, aspoň ja som neprišiel na to, ako by to šlo. Čiže na to, aby si mohol slicers používať, príslušná KT musí byť hneď na začiatku vytvorená vo verzii, ktorá použitie slicers umožňuje. Pokiaľ niekto príde na to, ako verziu KT zmeniť po tom, čo je táto vytvorená, rád sa priučím. Každopádne, pokiaľ KT zostavuješ, ako hovoríš, programovo, tak by nemal byť problém v kóde nastaviť vhodnú verziu KT v momente jej tvorby.
Příloha: 
20976_twopivots.zip (19kB, staženo 31x)
citovat20976_twopivots.zip (19kB, staženo 31x)Ahoj ALe,
Dovolenka :( ... dřív to nešlo.
Máš pravdu v Té verzi. Po dopsání verze (PT 4 (xlPivotTableVersion14)) to začalo nabízet průřezy.
Ještě jsem měl chybu v tom, že jsem používal PivotCache.Add a to je asi deprecated. Takže přechod na PivotCache.Create. V souvislosti s novou verzí při sestavování se ale objevil problém s rychlostí. Na tomto kousku to dokonce vytuhne a musím zhodit Excel.
With .PivotFields("FG Total")
With .DataRange
'.Interior.ColorIndex = 0
.Font.Bold = True
.ColumnWidth = 12
.VerticalAlignment = xlVAlignCenter
.HorizontalAlignment = xlHAlignRight
.NumberFormat = "# ### ##0 "
End With
With .LabelRange
.Interior.Color = ColorLabel2
.Font.Bold = True
.RowHeight = 33
.VerticalAlignment = xlVAlignCenter
.HorizontalAlignment = xlHAlignCenter
.WrapText = True
End With
End With
Když se na to podívám, tak tam vlastně nic moc není.
Proto mě napadá vysvětlení jen v množství RxC. Na této tabulce je 18000 radku x 133 sloupcu. Když použijí starou verzi, pak vytvoření je do cca 90s. Nová verze vytuhne protože předpokládám se skládají položky "po novu" "s odskokem pod sebe". KT má 6 výpočtových sloupců. Rád bych to nějak debugnul ale když to přestane reagovat a nejde ani CTRL + Break tak mi docházejí nápady :(citovat
Dovolenka :( ... dřív to nešlo.
Máš pravdu v Té verzi. Po dopsání verze (PT 4 (xlPivotTableVersion14)) to začalo nabízet průřezy.
Ještě jsem měl chybu v tom, že jsem používal PivotCache.Add a to je asi deprecated. Takže přechod na PivotCache.Create. V souvislosti s novou verzí při sestavování se ale objevil problém s rychlostí. Na tomto kousku to dokonce vytuhne a musím zhodit Excel.
With .PivotFields("FG Total")
With .DataRange
'.Interior.ColorIndex = 0
.Font.Bold = True
.ColumnWidth = 12
.VerticalAlignment = xlVAlignCenter
.HorizontalAlignment = xlHAlignRight
.NumberFormat = "# ### ##0 "
End With
With .LabelRange
.Interior.Color = ColorLabel2
.Font.Bold = True
.RowHeight = 33
.VerticalAlignment = xlVAlignCenter
.HorizontalAlignment = xlHAlignCenter
.WrapText = True
End With
End With
Když se na to podívám, tak tam vlastně nic moc není.
Proto mě napadá vysvětlení jen v množství RxC. Na této tabulce je 18000 radku x 133 sloupcu. Když použijí starou verzi, pak vytvoření je do cca 90s. Nová verze vytuhne protože předpokládám se skládají položky "po novu" "s odskokem pod sebe". KT má 6 výpočtových sloupců. Rád bych to nějak debugnul ale když to přestane reagovat a nejde ani CTRL + Break tak mi docházejí nápady :(citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Aktivní diskuse
Relativní cesta - zdroje Power Query
elninoslov • 25.4. 0:34
Vynásobit hodnoty kurzem - Power Query
Alfan • 24.4. 16:32
Relativní cesta - zdroje Power Query
Alfan • 24.4. 15:44
Relativní cesta - zdroje Power Query
elninoslov • 24.4. 14:26
Jak odstraním duplicitní údaje
Mirek8 • 24.4. 12:13
Jak odstraním duplicitní údaje
elninoslov • 24.4. 8:57
Vyhledej
PavDD • 24.4. 8:56
RSS nejnovější články