Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Začatie skript VBA zadaním nasledujúceho :
Create_Pivot_Table_From_Cache ( )
2
Zadajte metódy čapu pomocou nasledujúcich s followinf tri riadky kódu VBA :
Dim OPC Ako PivotCache
Dim opt , pretože kontingenčnej
Dim OWS As liste
3
Špecifikovať funkcie OPC , rozhodnúť sa , a OWS pridaním nasledujúce riadky kódu :
OWS = ActiveSheet
OPC = ActiveWorkbook.PivotCaches.Create ( xlDatabase , oWS.UsedRange )
OPT = oPC.CreatvePivotTable ( oWS. [ D20 ] , " Pivot z cache " , true )
4
Určte , ako sa pole by mala otáčať , alebo výpočtu dát , pomocou nasledujúce riadky kódu . Všimnite si , že v tomto prípade , sa názvy stĺpcov dát v teréne sa môže líšiť od vás .
OPT.AddFields ( oPT.PivotFields ( " Cena " ) . Meno
oPT.PivotFields ( " Produkt " ) . Name )
oPT.AddDataField ( oPT.PivotFields ( " Typ " ) , " typ výrobku " , xlSum )
5
spustite skript VBA do kompatibilného programu , ako je napríklad excel a zobraziť generovaný otočná tabuľky .