Päivitä Pivot-taulukko VBA: ssa

Luomme yleensä kääntötaulun, kun joudumme luomaan jonkinlaista kuvaajaa tai kaaviota tai meidän on tehtävä siitä jonkin verran analyysiä. Valmistelemalla Pivot-taulukkoa saadaan yleiskuva ja idea siitä, mikä datassa todella on. Tämä on paras tapa löytää tapa päästä tietoihin. Ja joka kerta kun teemme muutoksia tietoihin, meidän on päivitettävä myös kääntötaulukko. Joten se täyttää myös päivitetyt tiedot. Minkä tahansa pivot-taulukon päivittäminen on erittäin helppoa, mutta entä jos meillä on kymmenen kääntötaulua yhdessä excel-tiedostossa, joka meidän on päivitettävä. Joten sen sijaan, että päivittäisimme kaikki kääntötaulut yksitellen, voimme päivittää kaikki kääntötaulut suoraan kerralla VBA-päivityksen Pivot-taulukon avulla.

Kuinka käyttää Päivitä Pivot-taulukkoa Excel VBA: ssa?

Alla on erilaisia ​​esimerkkejä Päivitä Pivot-taulukosta Excelissä VBA-koodilla.

Voit ladata tämän VBA Refresh Pivot Table Excel -mallin täältä - VBA Refresh Pivot Table Excel Template

VBA-päivityksen kääntötaulukko - esimerkki 1

Kääntötaulun päivittämiseksi ensin on luotava kääntötaulukko. Alla on 1000-luvun rivikohdan tiedot, joiden perusteella luomme kääntötaulukon.

Yllä olevassa kuvakaappauksessa näemme viimeisen rivin numerolla 1001, ja näissä tiedoissa on asiakastietoja heille myytyjen määrien suhteen.

Siirry nyt Lisää valikko -välilehteen ja napsauta PivotTable- vaihtoehtoa.

Saamme Luo PivotTable -ruudun. Valitse sitten ensin sen taulukon alue, jonka haluamme sisällyttää kääntötaulukkoon. Valitse sitten mikä tahansa sijainti nykyisellä Pivot-taulukon taulukolla. Voimme valita myös uuden laskentataulukon.

Kun olet valmis, napsauta Ok.

Saamme kääntötaulun luodaan. Vedä nyt tarvittavat kentät eri alueille saadaksesi todellinen kääntötaulukko. Vedämme tässä asiakkaan nimeä RIVIIN ja Määrä sarakkeisiin alla olevan kuvan mukaisesti.

Tämä viimeistelee PivotTable-taulukon luomisen. Mutta meidän on päivitettävä kääntötaulukko muutettuasi mitään Datassa. Tämä voidaan tehdä yksinkertaisesti päivittämällä vaihtoehto hiiren kakkospainikkeella -luetteloruudusta alla olevan kuvan mukaisesti.

Mutta sama prosessi voidaan automatisoida myös VBA: n kautta. Tätä varten tarvitsemme moduulin. Niin,

Vaihe 1: Siirry Lisää valikko -välilehteen ja valitse avattavasta luettelosta Moduuli-vaihtoehto alla olevan kuvan mukaisesti.

Vaihe 2: Kirjoita vasta avattuun moduuliin VBA Pivot Refresh -alakategoria tai voimme valita minkä tahansa nimen valintasi mukaan.

Koodi:

 Sub Pivot_Refresh2 () End Sub

Vaihe 3: Määritä ensin muuttuja PivotCacheksi alla olevan kuvan mukaisesti. PivotCache käyttää Pivot-välimuistia, ei tietoja, joita Pivot-taulukon luomiseen käytetään.

Koodi:

 Sub Pivot_Refresh2 () himmentää taulukkoa kuten PivotCache End Sub

Vaihe 4: Käytämme nyt jokaisen silmukkaa. Joten avaa jokaiselle silmukka alla olevan kuvan mukaisesti.

Koodi:

 Sub Pivot_Refresh2 () himmentää taulukkoa PivotCache-muodossa jokaiselle seuraavalle taulukolle

Vaihe 5: Nyt For-End-silmukan sisään kirjoitetaan ehto, jossa valitsemme parhaillaan avoinna olevan taulukon, jossa on Pivot-taulukko PivotCache-sovelluksella .

Koodi:

 Sub Pivot_Refresh2 () himmentää taulukkoa PivotCache-muodossa jokaiselle tämän työkirjakirjan taulukolle.PivotCaches Seuraava taulukko End Sub

Vaihe 6: Nyt käytämme Päivitä- komentoa määrittelemällä sille määritelty muuttuja Taulukko .

Koodi:

 Sub Pivot_Refresh2 () himmentää taulukkoa PivotCache-muodossa jokaiselle tämän työkirja-taulukon taulukolle.PivotCaches-taulukko.Päivitä seuraava taulukko End sub

Vaihe 7: Tämä suorittaa koodin loppuun, käännä nyt tiedostovirhe painamalla F8-toimintonäppäintä. Nyt testataksesi, toimiiko kirjoitettu koodi edelleen, olemme vaihtaneet asiakkaan14 määrän 69: ksi .

Vaihe 8: Suorita nyt koodi. Näemme, että asiakasluku 14 kokonaismäärä päivitetään 2183: ksi, joka on korostettu keltaisena.

VBA-päivityksen kääntötaulukko - esimerkki 2

On toinen tapa päivittää Pivot-taulukko VBA: n kautta. Ennen kuin siirrymme eteenpäin, voimme harkita kääntötaulun nimen muuttamista tai voimme käyttää myös oletusnimeä. Yrittäkäämme antaa uusi nimi Pivot-taulukkoon. Valitse tätä varten kääntötaulukko ja siirry Analysoi- valikko-välilehdelle alla olevan kuvan mukaisesti.

PivotTable-nimen ensimmäisessä osassa voidaan nähdä oletusnimi PivotTable1 .

Nyt muutamme tämän nimen. Harkitse uuden nimen kirjoittamista asiakastiedoksi alla olevan kuvan mukaisesti.

Vaihe 1: Sen jälkeen avaa uusi moduuli ja kirjoita VBA-päivityksen alakategoria alla olevan kuvan mukaisesti.

Koodi:

 Sub Pivot_Refresh3 () End Sub

Vaihe 2: Määritä muuttuja nyt PivotTable- muotoon. Tässä tarkastellaan PivotTable -sovelluksen kanssa kaikkia lähdetietoja.

Koodi:

 Sub Pivot_Refresh3 () himmentää taulukkoa PivotTable-loppuna

Vaihe 3: Käytä nyt Aseta määritellyllä muuttujalla ja valitse arkki, joka on auki.

Koodi:

 Sub Pivot_Refresh3 () himmentävä taulukko PivotTable-asetustaulukkona = ActiveSheet. End Sub

Vaihe 4: Valitse Pivot-taulukon nimi, jonka haluamme päivittää, sekä muuttuvan tietotyypin, jota olemme käyttäneet PivotTable-taulukkona .

Koodi:

 Sub Pivot_Refresh3 () himmentävä taulukko PivotTable-joukkotaulukkona = ActiveSheet.PivotTables ("Asiakastiedot") End Sub

Vaihe 5: Käytä viimeinkin RefreshTable- toiminnolla olevaa muuttujaa sen suorittamiseen.

Koodi:

 Sub Pivot_Refresh3 () himmentävä taulukko PivotTable-joukkotaulukkona = ActiveSheet.PivotTables ("Asiakastiedot") Table.RefreshTable End Sub Sub

Vaihe 6: Tehdään lisää muutoksia tietoihin, jotta käytetyn koodin todelliset visuaalit saadaan.

Olemme muuttaneet asiakas2: n määrän 56: ksi . Nyt jos suoritamme koodin asiakkaan nimen kääntötaulukossa, asiakkaan2 määrän summassa tulisi tapahtua muutoksia.

Vaihe 7: Siirry nyt VBA-ikkunaan ja käännä koodi. Jos virhettä ei löydy, suorita se napsauttamalla toistopainiketta, joka on valikkopalkin alla, kuten alla on osoitettu. Huomaa, että asiakas2: lle myyty määrä nousee nyt vuoteen 1724 asti tekemällä muutokset lähdetaulukkoon.

Tällöin voimme sisällyttää useita lähteitä ja luoda eri kääntötaulukon. Ja myös näiden kääntötaulukoiden automatisointi on helppoa, koska meidän on vain sisällytettävä kääntötaulun nimi ja taulukko, missä taulukko sijaitsee.

Plussaa VBA-päivityksen kääntötaulusta

  • Kääntötaulun päivittäminen VBA-koodilla vie hyvin vähemmän aikaa.
  • Se on erittäin helppo toteuttaa.

Muistettavat asiat

  • Voimme lisätä useita tietolähdetaulukoita ja automatisoida ne VBA-koodilla.
  • Pidä VBA-ikkuna ja Excel-taulukko yhdensuuntaisina nähdäksesi tapahtuneet muutokset.
  • Jokainen niveltaulukko on parempi nimetä, jos käsittelet useita tietolähteitä ja niveltaulukoita.
  • Kääntötaulukonimellä varustettu koodi on helppo ymmärtää, seurata ja paikantaa.

Suositellut artikkelit

Tämä on opas VBA Refresh Pivot Table -tauluun. Tässä keskustellaan siitä, kuinka käyttää Excel VBA Refresh Pivot Table -tapaa yhdessä käytännön esimerkkien ja ladattavien Excel-mallien kanssa. Voit myös käydä läpi muiden ehdottamiemme artikkeleidemme -

  1. VBA FileSystemObject (FSO)
  2. Sub-string Excel-toiminto
  3. VBA: n pituus
  4. Excel ISNUMBER -kaava

Luokka:

VBA