Екцел ВБА освежавајућа табела
Када уметнемо пивот табелу у лист, након што се подаци промене подаци пивот табеле се не мењају, то треба да урадимо ручно, али у ВБА постоји изјава за освежавање пивот табеле која је екпрессион.рефресхтабле , помоћу ње можемо да освежимо изведена табела позивањем на радни лист који га чини или се можемо осврнути на читаве изведене табеле на радним листовима и освежити их одједном.
Пивот табела је од виталног значаја за анализу огромне количине података. Помаже у анализи, резимирању, као и у корисном тумачењу података. Међутим, један од проблема са овом изведеном табелом је што се неће аутоматски освежити ако дође до промене у изворним подацима. Корисник мора освежити пивот табелу тако што ће сваки пут када дође до промене ићи до одређене пивот табеле. Али опростите се од ручног поступка, јер овде имамо методу за освежавање пивот табеле чим направите било какву промену у пивот табели.
Како аутоматски освежити ВБА код података пивот табеле?
Пивот табелу треба ажурирати једино када дође до било какве промене у изворним подацима пивот табеле на коју се позивамо.
На пример, погледајте доленаведене податке и пивот табелу.
Сада ћу променити бројеве у изворним подацима, тј. Од А1 до Б17.
У ћелији Б9 морам да променим вредност са 499 на 1499, тј. Повећање података за 1000, али ако погледате осовину, резултат и даље приказује 4295 уместо 5295. Морам ручно да освежим своју пивот табелу да бих ажурирао ротациона табела.
Да бисмо превазишли овај проблем, морамо да напишемо једноставан екцел макро код за освежавање пивот табеле кад год дође до било какве промене у изворним подацима.
# 1 - Једноставан макро за освежавање целе табеле
Корак 1: Промените догађај листа са подацима
Морамо да покренемо догађај промене листа са подацима. У уређивачу висуал басиц двапут кликните на листу са подацима.
Када двапут кликнете на лист, одаберите „Радни лист“ и изаберите догађај као „Промени“.
Видећете аутоматску потпроцесу отворену као Ворксхеет_Цханге (БиВал Таргет Ас Ранге)
Корак 2: Користите објект радног листа
Позовите се на табелу података помоћу објекта Ворксхеетс.
Корак 3: Погледајте пивот табелу према имену
Погледајте назив пивот табеле по имену пивот табеле.
Корак 4: Користите методу освежавања табеле
Изаберите метод као „Освежи табелу“.
Сада ће овај код освежити пивот табелу „ПивотТабле1“ кад год дође до било какве промене у изворном листу података. Можете користити доњи код. Само морате да промените име пивот табеле.
Шифра:
Приватни радни лист_Промена (радни лист циља БиВал као опсег) („Лист са подацима“). Изведене табеле („Заокретна табела1“). Крај освежавајуће табеле
# 2 - Освежите све стожерне табеле истог радног листа
Ако на истом радном листу имате много заокретних табела, све осовинске табеле можете освежити једним кликом. Користите доњи код да бисте освежили све стожерне табеле на листу.
Шифра:
Суб Рефресх_Пивот_Таблес_Екампле1 () Радни листови („Лист са подацима“). Изаберите помоћу АцтивеСхеет .ПивотТаблес („Табле1"). РефресхТабле .ПивотТаблес („Табле2"). РефресхТабле .ПивотТаблес („Табле3"). РефресхТабле .Пивот4 " РефресхТабле .ПивотТаблес ("Табела5"). РефресхТабле Енд Витх Енд Суб
Морате да промените име радног листа и имена заокретне табеле према детаљима радног листа.
3. - Освежите све табеле у радној свесци
Тешко је да имамо све стожерне табеле на истом радном листу. Обично за сваки извештај покушавамо да додамо засебне изведене табеле у засебне листове. У тим случајевима не можемо наставити са писањем кода за сваку осовинску табелу која се освежава.
Дакле, оно што можемо да урадимо је са једним кодом користећи петље, можемо да прођемо кроз све стожерне табеле у радној свесци и освежимо их једним кликом на дугме.
Код у наставку ће се петљати кроз сваку стожерну табелу и освежавати их.
Шифра 1:
Суб Рефресх_Пивот_Таблес_Екампле2 () Затамни ПТ као заокретну табелу за сваки ПТ у АцтивеВоркбоок.ПивотТаблес ПТ.РефресхТабле Нект ПТ Енд Суб
Шифра 2:
Суб Рефресх_Пивот_Таблес_Екампле3 () Затамни ПЦ као ПивотЦацхе за сваки рачунар у АцтивеВоркбоок.ПивотЦацхес ПЦ.Рефресх Нект ПТ Енд Суб
Оба кода ће освежити пивот табеле.
Ако желите да се стожерна табела освежи чим дође до било какве промене у листу података пивотирајућег листа, потребно је да копирате и залепите горе наведене кодове у догађај Промена радног листа у тој радној свесци.
# 4 - Избегавајте учитавање времена коришћењем догађаја за деактивирање радног листа
Када користимо догађај „Промена радног листа“, он се освежава чак и када нема промена у извору података, али ако се на радном листу догоди нека промена.
Чак и ако на радни лист унесете једну једину тачку, она покушава да освежи заокретну табелу. Да бисмо то избегли, можемо користити методу „Деактивирај радни лист“ уместо методе „Промена радног листа“.
Деактивирајте ажурирања догађаја на пивот табели када прелазите са једног листа на други.
