Ši pamoka parodys, kaip atnaujinti „Pivot“ lentelę, kai duomenys keičiami naudojant VBA.
„Pivot“ lentelės yra ypač galingas „Excel“ duomenų įrankis. „Pivot“ lentelės leidžia mums analizuoti ir interpretuoti didelius duomenų kiekius, grupuojant ir apibendrinant laukus ir eilutes.
Kai sukuriame „Pivot“ lentelę, duomenys saugomi vadinamojoje „Pivot“ lentelėje. Todėl duomenys saugomi kompiuterio laikinojoje atmintyje, o tai pagreitina „Pivot“ lentelę.
Jei atnaujinsime duomenis, kuriais remiasi „Pivot“ lentelė, pati „Pivot“ lentelė nebus automatiškai atnaujinama. Norėdami atnaujinti „Pivot“ lentelę, turėtume spustelėti mygtuką „Atnaujinti viską“ juostelės skirtuke „Duomenys“.
„Pivot“ lentelės atnaujinimas VBA
Kai duomenys pasikeičia, galime įrašyti makrokomandą į Worksheet_Change Event atnaujinti „Pivot“ lentelę. Norėdami pasiekti darbalapio keitimo įvykį, turime eiti į „Visual Basic“ redaktorių „Excel“ (VBE).
Paspauskite Alt+F11 pasiekti VBE arba Juostelė, pasirinkite Kūrėjas> „Visual Basic“.
Pastaba: jei nematote kūrėjo juostelės, turėsite ją įgalinti.
Viduje konors Projektų tyrinėtojas, pasirinkite lapą, kuriame yra „Pivot“ lentelė.
Viduje konors Objektas išskleidžiamajame laukelyje, pasirinkite Darbo lapas. Tai automatiškai pridės įvykį, skirtą Pasirinkimas_Keisti.
Viduje konors Procedūra išskleidžiamajame laukelyje, pasirinkite Keisti.
A Keisti Įvykis bus pridėtas prie VBA modulio, esančio lape.
PASTABA: Galime ištrinti Worksheet_SelectionChange renginys, nes jis nėra privalomas.
Per Worksheet_Change įvykį, įveskite šį kodą:
| 1 | ActiveSheet.PivotTables ("PivotTable1"). RefreshTable |
Grįžkite į „Excel“ lapą ir pakeiskite duomenų lentelės vertę. Tada „Pivot“ lentelės duomenys bus automatiškai atnaujinami.
