Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte súbor programu Excel , ktorý chcete upraviť . Kliknite na kartu " Vývojár " a kliknite na tlačidlo " VBA " . Ak sa karta Vývojár nezobrazuje , kliknite na záložku " Súbor " a kliknite na " Možnosti " . Kliknite na " Prispôsobiť pás s nástrojmi " a vyberte " Developer " v zozname možností na karte . Kliknite na tlačidlo " OK " pre uloženie zmien . Karta Vývojár sa zobrazí , takže môžete otvoriť editor VBA .
2
Nastavte rozsah dát , ktorý chcete použiť na upevnenie kontingenčnej tabuľky. Pridajte nasledujúci riadok kódu nastaviť rozsah pre vytvorenie kontingenčnej tabuľky :
rozsah ( výber , Selection.End ( xlDown ) ) Name = " Data "
3.
Vytvorte dát kontingenčnej tabuľky je . Nasledujúci kód pridá dáta z databázy do súboru :
ActiveWorkbook.PivotCaches.Add ( SourceType : = xlDatabase , _SourceData : = " = Zákazníci " ) CreatePivotTable TableDestination : . = " " , _TableName : = " Zákazníci "
V tomto príklade databázy tabuľku s názvom " Zákazníci " sa používa pre dáta kontingenčnej tabuľky .
4
Pridať nové kontingenčnej tabuľky do tabuľky . Nasledujúci kód pridá tabuľku do tretieho stĺpca v tabuľke :
ActiveSheet.PivotTableWizard TableDestination : = Cells ( 3 , 0 )