Värskendage pöördetabelit VBA-s

Tavaliselt loome pöördetabeli siis, kui peame looma mingid graafikud või diagrammid või peame selle kohta mingit analüüsi tegema. Pivoti tabeli koostamisega saame üldise ülevaate ja idee selle kohta, mis tegelikult andmete sees on. See on parim viis andmete leidmiseks viisi leidmiseks. Ja iga kord, kui teeme andmetes muudatusi, peame värskendama ka pöördetabelit. Nii et see täidab ka värskendatud andmete arvu. Mis tahes pöördetabeli värskendamine on väga lihtne, kuid mis siis, kui meil on ühes exceli-failis 10 s pöördetabelit, mida peame värskendama. Nii et kõigi pöördetabelite ükshaaval värskendamise asemel saame VBA värskenduse pöördetabeli abil kõiki pöördtabeleid otse värskendada ka ühe korraga.

Kuidas kasutada värskenduse Pivot-tabelit Excel VBA-s?

Allpool on toodud erinevad näited värskenduse tabeli värskendamiseks Excelis, kasutades VBA-koodi.

Selle VBA värskenduse Pivot Table Exceli malli saate alla laadida siit - VBA värskenduse Pivot Table Exceli mall

VBA värskenduse pöördetabel - näide nr 1

Pöördtabeli värskendamiseks peame kõigepealt looma pöördetabeli. Altpoolt on meil andmeid 1000-nda rearea kohta, mille järgi loome pöördetabeli.

Ülaltoodud ekraanipildil näeme viimast rida numbril 1001 ja need andmed sisaldavad kliendi teavet neile müüdud koguse kohta.

Nüüd minge vahekaardi Lisa menüüsse ja klõpsake nuppu PivotTable .

Saame kasti Loo PivotTable. Sealt valige esmalt tabelivahemik, mille tahame pöördetabelisse lisada. Seejärel valige Pivoti tabeli jaoks aktiivsel lehel suvaline asukoht. Saame valida ka uue töölehe.

Kui see on valmis, klõpsake nuppu OK.

Me saame pöördetabeli loodud. Nüüd lohistage vajalikud väljad erinevatesse piirkondadesse, et saada tegelik pöördetabel. Siin lohistame kliendi nime ridadesse ROWS ja koguse veergudesse nagu näidatud allpool.

See viib lõpule PivotTable loomise. Kuid peame pärast andmetes midagi muutmist värskendama pöördetabelit. Seda saab teha lihtsalt värskendades hiire parema nupuga rippmenüü loendit, nagu allpool näidatud.

Kuid sama protsessi saab automatiseerida ka VBA kaudu. Selleks vajaksime moodulit. Niisiis,

1. samm: minge vahekaardile Lisa menüü ja valige ripploendist moodul, nagu allpool näidatud.

2. samm: kirjutage värskelt avatud moodulis alamkategooria VBA Pivot Refresh või võime valida mis tahes nime vastavalt oma valikule.

Kood:

 Sub Pivot_Refresh2 () Lõpp Sub

3. samm: kõigepealt määratlege muutuja PivotCache'ina, nagu allpool näidatud. PivotCache kasutab Pivoti vahemälu, mitte Pivoti tabeli loomiseks kasutatud andmeid.

Kood:

 Sub Pivot_Refresh2 () Dim Table nagu PivotCache End Sub

4. samm: nüüd kasutame iga silmuse jaoks. Nii et avage silmus iga jaoks, nagu allpool näidatud.

Kood:

 Alam Pivot_Refresh2 () Tühjenda tabel PivotCache-iga iga järgmise tabeli lõpus Alam

5. samm. Nüüd kirjutame For-End silmuse sisse tingimuse, kus valime parajasti avatud töölehe, millel on Pivot-tabel PivotCachega .

Kood:

 Alam Pivot_Refresh2 () Tühjenda tabel selle tööraamatu iga tabeli PivotCache-vormingus.PivotCaches järgmine tabel End Sub

6. samm: Nüüd kasutame käsku Värskenda, määrates sellele määratletud muutujate tabeli .

Kood:

 Alam Pivot_Refresh2 () Tühjenda tabel selle tööraamatu iga tabeli PivotCache-vormingus.PivotCaches-tabel.Värskenda järgmist tabelit Lõpp-alam

7. samm: see lõpetab koodi, nüüd kompileerige kood faili veaks, vajutades funktsionaalset klahvi F8. Nüüd, et kontrollida, kas kirjutatud kood töötab ka mitte, oleme muutnud kliendi14 koguse 69-ni .

8. samm: käivitage nüüd kood. Näeme, et kliendi14 koguarvu värskendatakse 2183-ni, mis on esile tõstetud kollase värviga.

VBA värskenduse pöördetabel - näide nr 2

On veel üks viis Pivot-tabeli värskendamiseks VBA kaudu. Enne edasiliikumist võime kaaluda pöördetabeli nime muutmist või kasutada ka vaikenime. Proovime anda Pivoti tabelile uue nime. Selleks valige pöördetabel ja minge vahekaardi Analüüsi menüüle, nagu allpool näidatud.

Rakenduse PivotTable Name esimeses jaotises näeme vaikenime PivotTable1 .

Nüüd muudame selle nime. Kaaluge uue nime kirjutamist kliendiandmetena, nagu allpool näidatud.

1. samm: Pärast seda avage uus moodul ja kirjutage VBA värskenduse alamkategooria, nagu allpool näidatud.

Kood:

 Sub Pivot_Refresh3 () End Sub

2. samm: määratlege nüüd muutuja PivotTable-na . Siin kaalume koos PivotTable'iga kõiki lähteandmeid.

Kood:

 Sub Pivot_Refresh3 () Dim Table kui PivotTable End Sub

3. samm: kasutage käsku Määra määratletud muutujaga ja valige leht, mis on praegu avatud.

Kood:

 Alam Pivot_Refresh3 () Dim Table kui PivotTable Set Table = ActiveSheet. Lõpu alam

4. samm: valige Pivot-tabeli nimi, mida soovite värskendada, koos muutuva andmetüübiga, mida oleme PivotTable-na kasutanud.

Kood:

 Sub Pivot_Refresh3 () Dim Table kui PivotTable Set Table = ActiveSheet.PivotTables ("Kliendi andmed") End Sub

5. samm. Lõpuks kasutage selle käivitamiseks muutujaga funktsiooni RefreshTable .

Kood:

 Sub Pivot_Refresh3 () Dim Table kui PivotTable Set Table = ActiveSheet.PivotTables ("Kliendi andmed") Table.RefreshTable End Sub Sub

6. samm: Teeme andmetes veel mõned muudatused, et anda rakendatud koodi tegelik visuaal.

Oleme muutnud kliendi2 arvuks 56 . Kui nüüd käitame koodi Kliendi nime pöördetabelis, peaksid kliendi2 koguse summa muutused toimuma.

7. samm: minge nüüd VBA aknasse ja koostage kood. Kui ühtegi viga ei leitud, käivitage see, klõpsates allpool oleval menüüriba all oleval esitusnupul. Märkame, et Kliendile2 müüdud koguse summa tõuseb lähtetabeli muudatuste tegemisel nüüd 1724-ni.

Selle abil saame lisada rohkem kui ühe lähteandme ja luua erineva pöördetabeli. Ja ka nende pöördetabelite automatiseerimine on lihtne, kuna peame lihtsalt lisama pöördetabeli nime ja lehe, kus tabel asub.

Plussid VBA värskendamise pöördetabelis

  • Pöördtabeli värskendamine VBA-koodi järgi võtab väga vähem aega.
  • Seda on väga lihtne rakendada.

Asjad, mida meeles pidada

  • Saame lisada mitu andmeallikate tabelit ja automatiseerida neid VBA koodi järgi.
  • Toimunud muudatuste nägemiseks hoidke VBA akent ja Exceli lehte üksteisega paralleelselt.
  • Parem on nimetada iga pöördetabelit juhul, kui tegemist on mitme andmeallika ja pöördetabeliga.
  • Pivoti tabeli nimega koodi on lihtne mõista, jälgida ja leida.

Soovitatavad artiklid

See on VBA värskenduse pöördetabeli juhend. Siin arutleme, kuidas kasutada Exceli VBA värskenduse Pivot-tabelit koos praktiliste näidete ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -

  1. VBA FileSystemObject (FSO)
  2. Exceli funktsiooni alamstring
  3. VBA pilli pikkus
  4. Exceli ISNUMBER valem

Kategooria:

VBA