It ymplementearjen fan VBA-makro is de meast effektive, fluchste en feilichste metoade om elke operaasje yn Excel út te fieren. Yn dit artikel sille wy jo sjen litte hoe't jo de pivot-tabel yn Excel ferfarskje mei VBA.

Download Workbook

Jo kinne de fergese downloade oefenje Excel wurkboek hjirwei.

Ferfarskje Pivot Tabel mei VBA.xlsm

5 Foarbylden om Pivot Tabel te ferfarskjen mei VBA yn Excel

It folgjende is it foarbyld fan ús pivot-tabel dy't wy yn it heule artikel sille brûke en jo 5 ferskillende foarbylden sjen litte fan fernijende pivottabellen yn Excel mei VBA koade.

1. VBA om ien pivot-tabel te ferfarskjen yn Excel

As jo ​​ mar ien pivot-tabel yn jo Excel-wurkblêd wolle ferfarskje, dan

• Druk op Alt + F11 op jo toetseboerd of gean nei de ljepper Utwikkelder -> Visual Basic om Visual Basic Editor te iepenjen.

• Yn it pop-up koade finster, út de menubalke , klik op Ynfoegje -> Module .

• Kopiearje de folgjende koade en plak it yn it koadefinster.

7607

Jo koade is no klear om te rinnen.

Hjir is PivotTable1 ús Pivot Table namme. Jo skriuwe de namme dy't jo Pivot-tabel hat.

• Druk op F5 op jo toetseboerd of selektearje út de menubalke Utfiere - > Run Sub/UserForm . Jo kinne ek gewoan klikke op it lytse Play-ikoan ynde submenubalke om de makro út te fieren.

Dit sil de draaitabel ferfarskje yn jo besteande Excel-wurkblêd.

Lês mear: Draaitabel net fernijd (5 problemen en oplossingen)

2. Makro om alle draaitabellen yn it aktive wurkblêd te ferfarskjen

Om alle pivottabellen yn it aktive wurkblêd te ferfarskjen , folgje de stappen hjirûnder.

• Itselde Iepenje lykas earder Visual Basic Editor fan it ljepblêd Untwikkelder en Foegje in Module yn it koadefinster.
• Kopieer yn it koadefinster de folgjende koade en plak it.

4851

Jo koade is no klear om te rinnen.

• Utfiere de makro en alle pivottabellen yn jo aktive wurkblêd wurde ferfarske.

Lês mear: Hoe kinne jo alle pivottabellen yn ferfarskje Excel

3. VBA-koade om alle pivottabellen yn meardere wurkboeken te ferfarskjen

As jo ​​ alle draaitabellen yn meardere wurkboeken tagelyk ferfarskje wolle mei VBA -koade, dan stappen binne:

• Iepenje Visual Basic Editor fan it ljepblêd ûntwikkelder en Foegje in Module yn de koade finster.
• Kopieer yn it koadefinster de folgjende koade en plak it.

9995

Jo koade is no klear om te rinnen.

• Rin de koade en alle pivottabellen yn al jo iepen Excel-wurkboeken wurde ferfarske.

Tink derom om hâld alle fan 'ewurkboeken iepenje by it útfieren fan dizze koade.

Gelykbere lêzingen

• Hoe kinne jo in draaitabel yn Excel bewurkje (5 metoaden )
• It berik fan pivottabel bywurkje (5 geskikte metoaden)
• Hoe kinne jo in pivottabel automatysk bywurkje as boarnegegevens wizigje

4. De Pivot Table Cache ferfarskje mei VBA yn Excel

As jo ​​meardere draaitabellen yn jo wurkboek hawwe dy't deselde gegevens brûke, kinne jo allinich de pivot-tabelcache ferfarskje ynstee fan ferfarskje de eigentlike pivot tabel hiele tiid. It ferfarskje fan de cache automatysk wiskje it cache-ûnthâld fan alle pivottabellen mei deselde gegevensferbining yn it cache.

Stappen om dat te dwaan binne,

• Iepenje Visual Basic Editor fan it ljepblêd ûntwikkelder en Foegje in Module yn it koadefinster.
• Kopieer yn it koadefinster de folgjende koade en plak it.

2412

Jo koade is no klear om te rinnen.

• Rin de koade en alles de pivot-tabel-cache-ûnthâld sille wiske wurde.

Lês mear: Hoe kinne jo Pivot-tabel automatysk ferfarskje sûnder VBA yn Excel (3 Smart Methods)

5. Pivot-tabel automatysk ferfarskje by it feroarjen fan gegevens mei VBA-makro

Wat as jo in draaitabel hawwe dy't in grutte hoemannichte gegevens hat en alles wat jo wolle is in pear gegevens bywurkje, wylst de hiele tabel ûnoantaaste . Yn Excel kinne jo de auto-ferfarskjedraaitabel by it bywurkjen fan gegevens mei VBA .

• Iepenje Visual Basic Editor fan de ûntwikkelder.
• Oan de linkerkant fan de bewurker soe d'r in Project Explorer -paniel wêze dat alle nammen fan it wurkblêd hat.
• Yn Project Explorer dûbel- klik op de blêdnamme dy't de draaitabel befettet.

• It koadefinster sil ferskine wêr't wy in evenemintmakro meitsje. Kies Wurkblêd út it dellûkfakje Objekt links fan de koademodule. Dit sil in Worksheet_SelectionChange -evenemint taheakje oan de module, wy hawwe it eins net nedich, dus wy sille dit stikje koade letter wiskje.
• Klik dan op de Proseduere útklapmenu en selektearje Feroarje . Dit foeget in nij barren ta oan de boppekant fan de koade module neamd Worksheet_Change . Wy sille hjir ús koade skriuwe, sadat wiskje de koade generearre troch de Worksheet_SelectionChange

• Kopieer no de folgjende koade en plak it yn de Wurksheet_Change

8583

Jo koade is no klear om te rinnen.

Hjir, PivotTbl is it wurkblêd namme yn ús Excel-wurkboek en PivotTable1 is ús Pivot-tabelnamme. Jo skriuwe de namme dy't jo wurkblêd en draaitabel hawwe.

• No elke kear as jo de gegevens feroarje yn 'e orizjinele gegevenstabel yn jo wurkblêd, de gegevens yn' e pivot tabel silautomatysk bywurke wurde.

Lês mear: How to Auto Refresh Pivot Table in Excel

Konklúzje

Dit artikel liet jo sjen hoe't jo de draaitabel yn Excel kinne ferfarskje mei VBA . Ik hoopje dat dit artikel tige foardielich foar jo west hat. Fiel jo frij om te freegjen as jo fragen hawwe oer it ûnderwerp.