VBA om draaitabel in Excel te verfris (5 voorbeelde)

Hugh West

29-09-2023 Excel-draaitabel
  • Deel Dit
Hugh West

Die implementering van VBA-makro is die doeltreffendste, vinnigste en veiligste metode om enige bewerking in Excel uit te voer. In hierdie artikel sal ons jou wys hoe om die spilpunttabel in Excel met VBA te verfris.

Laai werkboek af

Jy kan die gratis aflaai oefen Excel-werkboek van hier af.

Verfris Spiltabel met VBA.xlsm

5 Voorbeelde om Spiltabel te verfris met VBA in Excel

Hieronder is die voorbeeld van ons spilpunttabel wat ons deur die hele artikel sal gebruik en vir jou 5 verskillende voorbeelde wys van verfrissende spiltabelle in Excel met VBA kode.

1. VBA om een ​​spiltabel in Excel te verfris

As jy net een spiltabel in jou Excel-werkblad wil verfris,

  • Druk Alt + F11 op jou sleutelbord of gaan na die oortjie Ontwikkelaar -> Visual Basic om Visual Basic Editor oop te maak.

  • In die opspringkodevenster, vanaf die kieslysbalk , klik Voeg in -> Module .

  • Kopieer die volgende kode en plak dit in die kodevenster. 
3958

Jou kode is nou gereed om te loop.

Hier is Draaitabel1 ons Spiltabelnaam. Jy skryf die naam wat jou Pivot Table het.

  • Druk F5 op jou sleutelbord of kies Run - in die kieslysbalk. > Begin Sub/UserForm . Jy kan ook net op die klein Speel-ikoon in klikdie subkieslysbalk om die makro te laat loop.

Dit sal die spilpunttabel verfris in jou bestaande Excel-werkblad.

Lees meer: Draaitabel nie verfrissend nie (5 kwessies en oplossings)

2. Makro om alle spilpunttabelle in die aktiewe werkblad te verfris

Om alle spilpunttabelle in die aktiewe werkblad te verfris , volg die stappe hieronder.

  • Dieselfde maak soos voorheen Visual Basic Editor oop vanaf die Ontwikkelaar -oortjie en Voeg in 'n Module in die kodevenster.
  • Kopieer die volgende kode in die kodevenster en plak dit. 
4106

Jou kode is nou gereed om te loop.

  • Laat die makro uitvoer en al die spilpunttabelle in jou aktiewe werkblad sal verfris word.

Lees meer: Hoe om alle spiltabelle in te verfris Excel

3. VBA-kode om alle spiltabelle in veelvuldige werkboek te verfris

As jy al die spilpunttabelle in veelvuldige werkboeke gelyktydig wil verfris met VBA -kode, dan moet die stappe is:

  • Maak Visual Basic Editor oop vanaf die Ontwikkelaar -oortjie en Voeg 'n Module in die kodevenster.
  • Kopieer die volgende kode in die kodevenster en plak dit. 
3882

Jou kode is nou gereed om te loop.

  • Lop die kode en al die spilpunttabelle in al jou oop Excel-werkboeke sal verfris word.

Onthou om hou al diewerkboeke oop terwyl hierdie kode uitgevoer word.

Soortgelyke lesings

  • Hoe om 'n spiltabel in Excel te wysig (5 metodes) )
  • Dateer spiltabelreeks op (5 geskikte metodes)
  • Hoe om 'n spiltabel outomaties op te dateer wanneer brondata verander

4. Verfris die Spiltabelkas met VBA in Excel

As jy verskeie spilpunttabelle in jou werkboek het wat dieselfde data gebruik, kan jy net die spiltabelkas verfris eerder as om te verfris die werklike spiltabel heeltyd. Verfrissing van die kas maak outomaties die kasgeheue van al die spilpunttabelle skoon deur dieselfde dataverbinding in die kas te gebruik.

Stappe om dit te doen is:

  • Maak oop Visual Basic Editor vanaf die Ontwikkelaar -oortjie en Voeg 'n Module in die kodevenster in.
  • Kopieer die volgende kode in die kodevenster en plak dit. 
4610

Jou kode is nou gereed om te loop.

  • Laat die kode en al die spilpunttabelkasgeheue sal uitgevee word.

Lees meer: Hoe om spiltabel outomaties te verfris sonder VBA in Excel (3 slimmetodes)

5. Outo-herlaai spiltabel terwyl data met VBA-makro verander word

Wat as jy 'n spiltabel het wat 'n groot hoeveelheid data het en al wat jy wil hê is om 'n paar data op te dateer terwyl die hele tabel onaangeraak is . In Excel kan jy die outomaties verfrisdraaitabel terwyl data met VBA opgedateer word.

  • Maak Visual Basic Editor oop vanaf die Ontwikkelaar.
  • Aan die linkerkant van die redigeerder sal daar 'n Project Explorer -venster wees wat al die name van die werkblad bevat.
  • In Project Explorer , dubbel- klik op die bladnaam wat die spiltabel bevat.

  • Die kodevenster sal verskyn waar ons 'n gebeurtenismakro sal skep. Kies Werkblad uit die Object aftreklys aan die linkerkant van die kodemodule. Dit sal 'n Worksheet_SelectionChange gebeurtenis by die module voeg, ons het dit eintlik nie nodig nie so ons sal hierdie stukkie kode later uitvee.
  • Klik dan op die Prosedure aftreklys en kies Verander . Dit voeg 'n nuwe gebeurtenis bo-aan die kodemodule genaamd Worksheet_Change by. Ons sal ons kode hier skryf so vee uit die kode wat gegenereer is deur die Worksheet_SelectionChange

  • Kopieer nou die volgende kode en plak dit in die Worksheet_Change 
7847

Jou kode is nou gereed om te loop.

Hier is PivotTbl die werkblad naam in ons Excel-werkboek en PivotTable1 is ons Spiltabelnaam. Jy skryf die naam wat jou werkblad en Spiltabel het.

  • Nou elke keer as jy die data in die oorspronklike datatabel in jou werkblad verander, word die data in die spiltabel saloutomaties opgedateer word.

Lees meer: Hoe om die draaitabel in Excel outomaties te verfris

Gevolgtrekking

Hierdie artikel het jou gewys hoe om die spiltabel in Excel te verfris met VBA . Ek hoop hierdie artikel was baie voordelig vir jou. Vra gerus as jy enige vrae het oor die onderwerp.

Vorige pos Gebruik van Offset-funksie in Excel
Volgende plasing Hoe om vierkante voet na vierkante meter om te skakel in Excel (2 vinnige metodes)

Hugh West is 'n hoogs ervare Excel-afrigter en ontleder met meer as 10 jaar ondervinding in die bedryf. Hy het 'n Baccalaureusgraad in Rekeningkunde en Finansies en 'n Meestersgraad in Besigheidsadministrasie. Hugh het 'n passie vir onderrig en het 'n unieke onderrigbenadering ontwikkel wat maklik is om te volg en te verstaan. Sy kundige kennis van Excel het duisende studente en professionele persone wêreldwyd gehelp om hul vaardighede te verbeter en uit te blink in hul loopbane. Deur sy blog deel Hugh sy kennis met die wêreld, en bied gratis Excel-tutoriale en aanlyn opleiding aan om individue en besighede te help om hul volle potensiaal te bereik.