Ako môžem vytvoriť kontingenčnú tabuľku s VBA ?

Tvorba kontingenčnej tabuľky v programe Excel pomocou jazyka Visual Basic for Applications ( VBA ) vám môže ušetriť čas kvôli svojmu nemajú vytvoriť tabuľky ručne . VBA je programovací jazyk použitý v aplikáciách Microsoft Office automatizovať rutinné úlohy , ako je vytváranie kontingenčnej tabuľky . Nepoužívajte tráviť svoj ​​čas vytvorenia kontingenčnej tabuľky ručne , ak máte veľa listov v zošite , namiesto toho vytvoriť čiastkové postup je vytvoriť dynamicky . Veci , ktoré budete potrebovať v Microsoft Office Excel
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Office Excel a typu " zákazník " v " A1 " , " bod " v " B1 , " a " Množstvo " v " C1 " . V " A2 " , " Jon " v " A3 " , " Clara " v " A4 " , " Clara " v " A5 " a " Clara " v " A6 typ " Jon " . " Zadajte " sódu " v " B2 " , " pivo " v " B3 " , " soda " v " B4 " , " voda " v " B5 " a " pivo " v " A6 " . Typ " 2 " v " C2 " , " 5 " v " C3 " , " 10 " na " C4 " , " 12 " na " C5 " a " 15 " na " C6 " .
2

kliknite na kartu " Vývojár " a kliknite na " Visual Basic " , spustite Editor jazyka Visual Basic . Zadajte nasledujúci kód vytvoriť nový čiastkové postup VBA :

Private Sub createPivotTable ( )
3

Vytvorte premenné , ktoré budete používať na vytvorenie kontingenčnej tabuľky pridaním nasledujúci kód :

Dim pt ako kontingenčnej

Dim wrkSht ako zošit

Dim pvtSht ako zošit

Dim PTCache ako PivotCache

Dim Prange ako rozsah

Dim finalRow As Long Dim

finalCol ako dlho
4

definovať listy , ktoré budete používať :

Set wrkSht = listy ( " Hárok1 " )

Set pvtSht = listy ( " Hárok2 " )
5

Určte riadok a stĺpec počítať s údajmi :

finalRow = wrkSht.Cells ( Application.Rows.Count , 1 ) . End ( xlUp ) . Riadok

finalCol = wrkSht.Cells ( 1 , Application.Columns.Count ) . End ( xlToLeft ) . Stĺpec
6

Definovať rozsah pre dáta :

Set Prange = wrkSht.Cells ( 1 , 1 ) Zmena veľkosti ( finalRow , finalCol )

Set PTCache = ActiveWorkbook.PivotCaches.Add ( SourceType. : = xlDatabase , sourced : = Prange )
7

Vytvoriť kontingenčnú tabuľku v " Hárok2 "

Set pt = PTCache.createPivotTable ( TableDestination : = pvtSht.Cells ( 1 , 1 ) , _

názov_tabuľky : = " SamplePivot " )

pt.ManualUpdate = true
8

Definovať zdroj dát pre kontingenčnej tabuľke :

pt.AddFields RowFields : .. = Array ( " Item " )

S pt.PivotFields ( " Množstvo " )

Orientácia = xlDataField

Function = xlSum

. Position = 1

End With

pt.ManualUpdate = False
9

Dokončiť sub zadaním " End sub ​​" v koniec vášho postupu . Stlačením tlačidla " F5 " spustiť procedúru a vytvoriť kontingenčnú tabuľku pomocou jazyka VBA .

• Predchádzajúca strana: Ako používať checkbox & ComboBox v DataGridView 
• Ďalšia strana: Ako používať Windows API zmeniť pozadie plochy pomocou VB6