Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » excel » VBA-kontingencni-tabulka » Excel-VBA-design-kontingencnich-tabulek
Microsoft Excel logo

Kontingenční tabulky design - VBA Excel

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak pomocí VBA v Excel designovat kontingenční tabulky., aneb

Úvodem

Kontingenční tabulky - Microsoft Excel VBA

Soubor VBA kódu pro práci s designem kontingenčních tabulek:


Teorie - popis karty Návrh

Ukázka karty Návrh. Kódy pro VBA jsou následně popsány.

Karta návrh - kontingenční tabulka - Excel VBA

Rozložení - Souhrny

Jak pomocí VBA upravovat design kontingenční tabulky. Nebo-li rozložení z karty Návrh. Lze nastavit:

  • Nezobrazovat souhrny
  • Zobrazovat všechny souhrny v dolní části skupiny
  • Zobrazovat všechny souhrny v horní části skupiny
Souhrny - kontingenční tabulka VBA

Nezobrazovat souhrny

ActiveSheet.PivotTables("Pivot").PivotFields("Země").Subtotals(1) = False

Zobrazovat všechny souhrny v dolní části skupiny

ActiveSheet.PivotTables("Pivot").PivotFields("Země").Subtotals(1) = True ActiveSheet.PivotTables("Pivot").SubtotalLocation xlAtBottom

Zobrazovat všechny souhrny v horní části skupiny

ActiveSheet.PivotTables("Pivot").PivotFields("Země").Subtotals(1) = True ActiveSheet.PivotTables("Pivot").SubtotalLocation xlAtTop

Rozložení - Celkové součty VBA

K dispozici pro VBA kódy jsou

  • Vypnuto pro řádky a sloupce
  • Zapnuto pro řádky a sloupce
  • Zapnuto jenom pro řádky
  • Zapnuto jenom pro sloupce
Celkové součty - kontingenční tabulka VBA

Vypnuto pro řádky a sloupce

With ActiveSheet.PivotTables("Pivot") .ColumnGrand = False .RowGrand = False End With

Zapnuto pro řádky a sloupce

With ActiveSheet.PivotTables("Pivot") .ColumnGrand = True .RowGrand = True End With

Zapnuto jenom pro řádky

With ActiveSheet.PivotTables("Pivot") .ColumnGrand = False .RowGrand = True End With

Zapnuto jenom pro sloupce

With ActiveSheet.PivotTables("Pivot") .ColumnGrand = True .RowGrand = False End With

Rozložení - Rozložení sestavy

K dispozici:

  • Zobrazit v kompaktním formátu
  • Zobrazit ve formě osnovy
  • Zobrazit ve formě tabulky
  • ----------------
  • Opakovat všechny popisky položek
  • Neopakovat popisky položek
Rozložení sestavy - kontingenční tabulka VBA

kompaktní

ActiveSheet.PivotTables("Pivot").RowAxisLayout xlCompactRow

osnova

ActiveSheet.PivotTables("Pivot").RowAxisLayout xlOutlineRow

tabulka

ActiveSheet.PivotTables("Pivot").RowAxisLayout xlTabularRow

opakovat

ActiveSheet.PivotTables("Pivot").RepeatAllLabels xlRepeatLabels

neopakovat

ActiveSheet.PivotTables("Pivot").RepeatAllLabels xlDoNotRepeatLabels

Rozložení - Prázdné řádky VBA

K dispozici:

  • Vložit za každou položku prázdný řádek
  • Odebrat prádný řádek za každou položkou
Prázdné řádky - kontingenční tabulka VBA

Vložit za každou položku prázdný řádek

ActiveSheet.PivotTables("Pivot").PivotFields("Země").LayoutBlankLine = True

Odebrat prádný řádek za každou položkou

ActiveSheet.PivotTables("Pivot").PivotFields("Země").LayoutBlankLine = False

Možnosti stylů kontingenční tabulky

Možností stylů jsou k dispozici:

  • zahlaví řádků
  • záhlaví sloupců
  • pruhované řádky
  • pruhované sloupce
Možnosti stylů kontingenční tabulky - VBA

zahlaví řádků

ActiveSheet.PivotTables("Pivot").ShowTableStyleRowHeaders = True

záhlaví sloupců

ActiveSheet.PivotTables("Pivot").ShowTableStyleColumnHeaders = True

pruhované řádky

ActiveSheet.PivotTables("Pivot").ShowTableStyleRowStripes = True

pruhované sloupce

ActiveSheet.PivotTables("Pivot").ShowTableStyleColumnStripes = True

Styly kontingenční tabulky

K natavení designu jsou tři stupně sytosti barev:

  • světlé
  • střední
  • tmavé
Styly kontingenční tabulky - VBA

světlé

ActiveSheet.PivotTables("Pivot").TableStyle2 = "PivotStyleLight14" ActiveSheet.PivotTables("Pivot").TableStyle2 = "PivotStyleLight19"

střední

ActiveSheet.PivotTables("Pivot").TableStyle2 = "PivotStyleMedium15"

tmavé

ActiveSheet.PivotTables("Pivot").TableStyle2 = "PivotStyleDark1" ActiveSheet.PivotTables("Pivot").TableStyle2 = "PivotStyleDark28"

Článek byl aktualizován: 05.11.2016 22:42

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák - autor webu

Pavel Lasák

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil


Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.







Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2018 | 1501

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.