Kai reikia atnaujinti arba atnaujinti esamos PivotTable sukūrę jį, turite naudoti Keisti duomenų šaltinį Tačiau rankiniu būdu atnaujinti sukimosi lentelę yra nepatogu ir užima daug laiko. Todėl reikia išsiaiškinti, kaip sukurti automatizuotą sukimosi lentelę, kuri automatiškai atnaujintų duomenis. Taigi šioje pamokoje parodysime, kaip automatiškai atnaujinti sukimosi lentelę, kai pasikeičia šaltinio duomenys.

Atsisiųsti praktikos sąsiuvinį

Atsisiųskite šį pratybų sąsiuvinį ir atlikite pratimus, kol skaitysite šį straipsnį.

7 paprasti žingsniai, kaip automatiškai atnaujinti suvestinę lentelę, kai keičiasi šaltinio duomenys

Toliau pateiktame paveikslėlyje įtraukėme duomenų rinkinį su informacija apie pardavimų duomenis įvairiuose regionuose. Galite numanyti, kad mūsų duomenų rinkinys yra gana didelis. Taigi dinamiškam tikslui mums reikia automatizuoto proceso kaskart atnaujinant duomenis. Norėdami tai padaryti, paleisime VBA kodas ir pritaikykite jį toliau pateiktam duomenų rinkiniui. Norėdami atlikti užduotį, atlikite toliau nurodytus veiksmus.

1 veiksmas: sukurkite suvestinę lentelę su šaltinio duomenų sritimi

• Pirmiausia spustelėkite Įdėkite skirtukas įterpti sukamoji lentelė .
• Tada spustelėkite PivotTable komandą iš PivotTables grupė.
• Pasirinkite Iš lentelės / diapazono parinktį iš sąrašo.

• Pasirinkite lentelės intervalą su antraštės elementu.
• Pasirinkite Naujas darbalapis parinktį įdėti sukamoji lentelė naujame darbalapyje.
• Tada spustelėkite GERAI .

• Naujame darbalapyje ( Lapas4 ), bus sukurta sukamoji lentelė.
• Kaip matote toliau pateiktame paveikslėlyje, galite pasirinkti laukus ( Regionas , Filialas , Kaina , Kiekis , ir t. t.), kurie turi būti rodomi sukamoji lentelė .
• Pasirinkite PivotTable komandą iš PivotTable analizė Galite rasti savo sukimosi lentelės pavadinimą ( PivotTable2 ) ir prireikus ją redaguokite.

2 veiksmas: atidarykite "Visual Basic" redaktorių, kad pritaikytumėte VBA kodą

• Paspauskite Alt + F11 atidaryti "Visual Basic" redaktorius .
• Iš VBA "Excel" objektai , dukart spustelėkite , kad pasirinktumėte darbalapio pavadinimą ( Lapas2 ), kurioje yra jūsų duomenų rinkinys.

3 veiksmas: sukurkite darbalapio įvykį, kuriame būtų jūsų lapas su duomenų rinkiniu

• Norėdami sukurti darbalapio įvykis svetainėje Lapas2 , pasirinkite Darbalapis parinktį iš sąrašo.

Pastabos: A darbalapio įvykis reiškia, kad bet kokie pakeitimai, kuriuos atliksite šaltinio duomenyse, iš karto atsispindės jūsų programoje. Todėl programa bus paleista automatiškai, kai atliksite bet kokius pakeitimus šaltinio duomenų rinkinyje.

4 veiksmas: į darbalapį įterpkite naują pakeitimo įvykį

• Pasirinkite Keisti vietoj SelectionChange sukurti naują darbalapio įvykį.

• Ištrinti ankstesnįjį, kad būtų išsaugotas tik pakeitimo įvykis.

5 veiksmas: deklaruokite visus kintamuosius naudodami aiškią parinktį

• Norėdami deklaruoti visus kintamuosius ir rasti nedeklaruotus kintamuosius, įveskite Aiški parinktis programos puslapio viršuje.

6 veiksmas: įterpkite VBA kodą, kad automatiškai atnaujintumėte suvestinę lentelę

• Gaukite užpildytą VBA kodas ir jį įklijuokite.

 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 'Sheet4 yra PivotTable vietos lapo pavadinimas 'PivotTable2 yra PivotTable pavadinimas Sheet4.PivotTables("PivotTable2").PivotCache.Refresh End Sub 

7 veiksmas: paleiskite VBA kodą ir gaukite rezultatų pokyčius

• Paspauskite F5, kad paleistumėte VBA kodas .
• Pakeiskite duomenų rinkinį ir patikrinkite, ar programa vis dar veikia. IRE regionas. kaina vertė Belfastas filialas buvo pakeistas į £113 .

• Grįžkite į savo sukamąją lentelę ir pamatysite, kad pasikeitė kaina vertė ( £113 ) yra atnaujinamas.

Išvada

Tikiuosi, kad šiame straipsnyje pateikėte pamoką, kaip automatiškai atnaujinti sukamąją lentelę, kai keičiasi šaltinio duomenys. "Excel" . visas šias procedūras reikėtų išmokti ir pritaikyti savo duomenų rinkiniui. Peržiūrėkite praktinio darbo sąsiuvinį ir išbandykite šiuos įgūdžius. Jūsų vertingas palaikymas mus motyvuoja toliau rengti tokius vadovėlius kaip šis.

Jei turite klausimų, susisiekite su mumis. Taip pat nedvejodami palikite komentarų toliau esančiame skyriuje.

Mes, Exceldemy Komanda visada reaguoja į jūsų užklausas.

Būkite su mumis ir toliau mokykitės.