Изведена табела Екцел ВБА
Изведене табеле су срце резимирања извештаја о великој количини података. Такође можемо аутоматизовати процес стварања стожера са освртом на ВБА кодирање. Они су важан део сваког извештаја или контролне табле, у Екцелу је лако створити табеле помоћу дугмета, али у ВБА морамо да напишемо неке кодове за аутоматизацију наше пивот табеле, пре Екцела 2007 и његових старијих верзија у ВБА нисмо морали креирајте кеш меморију за пивот табеле, али у програму Екцел 2010 и њеним новијим верзијама кеш меморија је обавезна.
ВБА може да уштеди тоне времена за нас на нашем радном месту. Иако савладавање није тако лако, али вреди потрошити време да ово научите. Требало ми је 6 месеци да разумем процес креирања пивот табела кроз ВБА. Знате шта ми је тих 6 месеци учинило чуда јер сам направио толико грешака покушавајући да направим стожерну табелу.
Али стварна ствар је да сам научио на својим грешкама и сада пишем овај чланак да бих вам показао како да креирате изведене табеле помоћу кода.
Само једним кликом на дугме можемо да креирамо извештаје.
Кораци за креирање изведене табеле у ВБА
Да бисте креирали пивот табелу, важно је имати податке. За ово сам створио неке лажне податке. Можете преузети радну свеску да бисте ме пратили са истим подацима.
Корак 1: Изведена табела је објекат који упућује на то да промену променљиве декларишу као изведене табеле.
Шифра:
Помоћна заокретна табела () Затамни заокретну таблицу као заокретну табелу на крају Под
Корак 2: Пре него што прво креирамо пивот табелу, треба да креирамо пивот кеш меморију да бисмо дефинисали извор података.
У редовним радним листовима, пивот табела без да нас узнемирава креираће пивот кеш меморију у позадини. Али у ВБА морамо да стварамо.
За ово дефинишите променљиву ПивотЦацхе.
Шифра:
Затамни ПЦацхе као ПивотЦацхе
Корак 3: Да бисте одредили основни опсег података, дефинишите променљиву као опсег.
Шифра:
Дим ПРанге Ас Ранге
Корак 4: Да бисмо уметнули пивот табелу, потребан нам је засебан лист за додавање радних листова за пивот табелу који декларишу променљиву као радни лист.
Шифра:
Затамни ПСхеет као радни лист
Корак 5: Слично томе, да би се референцирали подаци који садрже радни лист, прогласите још једну променљиву као Радни лист.
Шифра:
Затамни ДСхеет као радни лист
Корак 6: Коначно, да бисте пронашли последњи коришћени ред и колону, дефинишите још две променљиве као Лонг.
Шифра:
Дим ЛР ас Лонг Дим ЛЦ Ас Лонг
Корак 7: Сада треба да убацимо нови лист да бисмо креирали пивот табелу. Пре тога, ако постоји било који пивот лист, онда то морамо избрисати.
Корак 8: Сада поставите објектну променљиву ПСхеет и ДСхеет на Пивот Схеет и Дата Схеет, респективно.
Корак 9: Пронађите последњи коришћени ред и последњу коришћену колону у листу са подацима.
Корак 10: Сада подесите опсег закретања помоћу последњег реда и последње колоне.
Ово ће савршено подесити опсег података. Аутоматски ће одабрати опсег података, чак и ако постоји било какво додавање или брисање података у листу са подацима.
11. корак: Пре него што креирамо пивот табелу, треба да креирамо пивот кеш меморију. Подесите променљиву пивот кеш меморије помоћу доленаведеног ВБА кода.
Корак 12: Сада креирајте празну пивот табелу.
Корак 13: Након уметања пивот табеле, прво треба да убацимо поље реда. Зато ћу уметнути поље реда као моју колону Земља.
Напомена: Преузмите радну свеску да бисте разумели колоне података.
Корак 14: Сада ћу додати још једну ставку у поље реда као ставку на другој позицији. Уметнућу Производ као другу ставку у поље реда.
Корак 15: Након уметања колона у поље реда, треба да убацимо вредности у поље колоне. Убацићу „Сегмент“ у поље колоне.
Корак 16: Сада морамо да убацимо бројеве у поље података. Дакле, уметните „Продаја“ у поље података.
Корак 17: Завршили смо са резимеом пивот табеле. Сада треба да форматирамо табелу. Да бисте форматирали пивот табелу, користите доњи код.
Да бисте приказали ставке вредности вредности у реду у табеларном облику, додајте доњи код на дну.
У реду, готови смо ако покренемо овај код помоћу тастера Ф5 или ручно, а требали бисмо добити овакву пивот табелу.
Овако, користећи ВБА кодирање, можемо аутоматизовати процес стварања стожера.
За вашу референцу дао сам доњи код.
Суб ПивотТабле () Дим ПТабле Ас ПивотТабле Дим ПЦацхе Ас ПивотЦацхе Дим ПРанге Ас Ранге Дим ПСхеет Ас Ворксхеет Дим ДСхеет Ас Ворксхеет Дим ЛР Ас Лонг Дим ЛЦ Ас Лонг Он Еррор Ресуме Нект Апплицатион.ДисплаиАлертс = Фалсе Апплицатион.СцреенУпдатинг = Фалсе Ворксхеетс ("Пивот Схеет "). Делете 'Ово ће избрисати постојеће радне листове заокретне табеле. Додати након: = АцтивеСхеет' Додаће се нови радни лист АцтивеСхеет.Наме =" Изведени лист "'Овим ће се радни лист преименовати у" Пивот Схеет "у случају грешке ГоТо 0 Сет ПСхеет = Ворксхеетс ("Пивот Схеет") Сет ДСхеет = Ворксхеетс ("Дата Схеет") 'Финд Ласт усед ров анд цолумн ин дата схеет ЛР = ДСхеет.Целлс (Ровс.Цоунт, 1) .Енд (клУп) .Ров ЛЦ = ДСхеет.Целлс (1, Цолумнс.Цоунт) .Енд (клТоЛефт) .Цолумн 'Сет тхе пивот табле ранге ранге Сет ПРанге = ДСхеет.Целлс (1, 1) .Ресизе (ЛР, ЛЦ) 'Сет пивот цахе Сет ПЦацхе = АцтивеВоркбоок.ПивотЦацхес.Цреате (клДатабасе, СоурцеДата: = ПРанге)' Направи празну пивот табелу Сет ПТабле = ПЦацхе.ЦреатеПивотТабле (ТаблеДестинатион: = ПСхеет. Ћелије (1, 1), ТаблеНаме: = "Репорт_Репорт") 'Уметните земљу у ред архивиран помоћу ПСхеет.ПивотТаблес ("Салес_Репорт"). ПивотФиелдс ("Цоунтри") .Ориентатион = клРовФиелд .Поситион = 1 Крај са' Уметните производ у Ред Филед & поситион 2 витх ПСхеет.ПивотТаблес ("Репорт_Репорт"). ПивотФиелдс ("Продуцт") .Ориентатион = клРовФиелд .Поситион = 2 Заврши са 'Инсерт Сегмент то Цолумн Филед & поситион 1 Витх ПСхеет.ПивотТаблес ("Салес_Репорт"). ПивотФиелдс ("Сегмент") .Ориентатион = клЦолумнФиелд .Поситион = 1 Заврши са 'Убаци колону продаје у поље података помоћу ПСхеет-а.ПивотТаблес ("Салес_Репорт"). ПивотФиелдс ("Салес") .Ориентатион = клДатаФиелд .Поситион = 1 Енд витх 'Формат Пивот Табле ПСхеет.ПивотТаблес ("Репорт_Репорт"). СховТаблеСтилеРовСтрипес = Труе ПСхеет.ПивотТаблес ("Салес_РетиТаблес2". "ПивотСтилеМедиум14" 'Прикажи у табеларном облику ПСхеет.ПивотТаблес ("Репорт_Репорт"). РовАкисЛаиоут клТабуларРов Апплицатион.ДисплаиАлертс = Труе Апплицатион.СцреенУпдатинг = Труе Енд Суб) .РовАкисЛаиоут клТабуларРов Апплицатион.ДисплаиАлертс = Труе Апплицатион.СцреенУпдатинг = Труе Енд Суб) .РовАкисЛаиоут клТабуларРов Апплицатион.ДисплаиАлертс = Труе Апплицатион.СцреенУпдатинг = Труе Енд Суб
