Укараненне макраса VBA з'яўляецца найбольш эфектыўным, хуткім і бяспечным метадам выканання любой аперацыі ў Excel. У гэтым артыкуле мы пакажам вам, як абнавіць зводную табліцу ў Excel з дапамогай VBA.

Спампаваць кнігу

Вы можаце спампаваць бясплатна практыкуйце кнігу Excel адсюль.

Абнавіць зводную табліцу з дапамогай VBA.xlsm

5 прыкладаў абнаўлення зводнай табліцы з дапамогай VBA ў Excel

Ніжэй прыведзены прыклад нашай зводнай табліцы, якую мы будзем выкарыстоўваць ва ўсім артыкуле і пакажам вам 5 розных прыкладаў абнаўлення зводных табліц у Excel з VBA код.

1. VBA для абнаўлення адной зводнай табліцы ў Excel

Калі вы жадаеце абнавіць толькі адну зводную табліцу ў вашым аркушы Excel,

• Націсніце Alt + F11 на клавіятуры або перайдзіце на ўкладку Распрацоўшчык -> Visual Basic , каб адкрыць Рэдактар ​​Visual Basic .

• Ва ўсплывальным акне кода з радка меню , націсніце Уставіць -> Модуль .

• Скапіруйце наступны код і ўстаўце яго ў акно кода.

2484

Ваш код зараз гатовы да запуску.

Тут Зводная табліца1 гэта назва нашай зводнай табліцы. Вы пішаце назву вашай зводнай табліцы.

• Націсніце F5 на клавіятуры або выберыце ў радку меню Выканаць - > Запусціце Sub/UserForm . Вы таксама можаце проста націснуць на маленькі значок Play упанэль падменю для запуску макраса.

Гэта абновіць зводную табліцу ў вашым існуючым аркушы Excel.

Дадатковая інфармацыя: Зводная табліца не абнаўляецца (5 праблем і рашэнняў)

2. Макрас для абнаўлення ўсіх зводных табліц у актыўным аркушы

Каб абнавіць усе зводныя табліцы ў актыўным аркушы , выканайце наступныя дзеянні.

• Тое самае як і раней, адкрыйце Рэдактар ​​Visual Basic з укладкі Распрацоўшчык і Устаўце Модуль у акно кода.
• У акне кода скапіруйце наступны код і ўстаўце яго.

8937

Цяпер ваш код гатовы да выканання.

• Запусціце макрас, і ўсе зводныя табліцы ў вашым актыўным аркушы будуць абноўлены.

Дадатковая інфармацыя: Як абнавіць усе зводныя табліцы ў Excel

3. Код VBA для абнаўлення ўсіх зводных табліц у некалькіх кнігах

Калі вы хочаце абнавіць усе зводныя табліцы ў некалькіх кнігах адначасова з дапамогай кода VBA , то наступныя крокі:

• Адкрыйце Рэдактар ​​Visual Basic з укладкі Распрацоўшчык і Устаўце Модуль у акно кода.
• У акне кода скапіруйце наступны код і ўстаўце яго.

5023

Цяпер ваш код гатовы да выканання.

• Запусціце код, і ўсе зводныя табліцы ва ўсіх вашых адкрытых кнігах Excel будуць абноўлены.

Памятайце , каб захаваць усепрацоўныя кнігі адкрыты падчас выканання гэтага кода.

Падобныя чытанні

• Як рэдагаваць зводную табліцу ў Excel (5 метадаў )
• Абнавіць дыяпазон зводнай табліцы (5 прыдатных метадаў)
• Як аўтаматычна абнавіць зводную табліцу пры змене зыходных даных

4. Абнаўленне кэша зводнай табліцы з дапамогай VBA ў Excel

Калі ў вашай кнізе ёсць некалькі зводных табліц, якія выкарыстоўваюць адны і тыя ж дадзеныя, вы можаце абнавіць толькі кэш зводнай табліцы , а не абнаўляць фактычная зводная табліца ўвесь час. Абнаўленне кэша аўтаматычна ачышчае кэш-памяць усіх зводных табліц, выкарыстоўваючы аднолькавае злучэнне даных у кэшы.

Для гэтага трэба зрабіць наступнае:

• Адкрыць Visual Basic Editor з укладкі Распрацоўшчык і Устаўце Модуль у акно кода.
• У акне кода скапіруйце наступны код і устаўце яго.

8596

Ваш код гатовы да запуску.

• Запусціце код і ўсё памяць кэша зводнай табліцы будзе ачышчана.

Больш падрабязна: Як аўтаматычна абнавіць зводную табліцу без VBA ў Excel (3 разумныя метады)

5. Аўтаматычнае абнаўленне зводнай табліцы падчас змены даных з дапамогай макраса VBA

Што рабіць, калі ў вас ёсць зводная табліца з вялікім аб'ёмам даных, і ўсё, што вы хочаце, гэта абнавіць некалькі даных, не кранаючы ўсю табліцу . У Excel вы можаце аўтаматычна абнаўляцьзводная табліца падчас абнаўлення даных з дапамогай VBA .

• Адкрыйце Рэдактар ​​Visual Basic з Распрацоўшчыка.
• З левага боку рэдактара будзе панэль Правадыра праектаў , якая змяшчае ўсе назвы працоўнага аркуша.
• У Правадыру праектаў двайны націсніце на назву аркуша, які змяшчае зводную табліцу.

• З'явіцца акно кода, дзе мы створым макрас падзеі. Выберыце Працоўны ліст з выпадальнага акна Аб'ект злева ад модуля кода. Гэта дадасць у модуль падзею Worksheet_SelectionChange , насамрэч яна нам не патрэбна, таму пазней мы выдалім гэты фрагмент кода.
• Затым націсніце Працэдура выпадальны спіс і абярыце Змяніць . Гэта дадае новую падзею ў верхняй частцы модуля кода пад назвай Worksheet_Change . Мы напішам наш код тут, таму выдаліце код, згенераваны Worksheet_SelectionChange

• Цяпер скапіруйце наступны код і ўстаўце яго ў Worksheet_Change

1197

Цяпер ваш код гатовы да выканання.

Вось PivotTbl гэта працоўны ліст у нашай працоўнай кнізе Excel, а PivotTable1 - назва нашай зводнай табліцы. Вы пішаце імя, якое мае ваш працоўны ліст і зводная табліца.

• Цяпер кожны раз, калі вы змяняеце даныя ў зыходнай табліцы даных у вашым працоўным аркушы, даныя ў зводная табліца будзеаўтаматычна абнаўляцца.

Дадатковая інфармацыя: Як аўтаматычна абнавіць зводную табліцу ў Excel

Выснова

Гэты артыкул паказаў вам, як абнавіць зводную табліцу ў Excel з дапамогай VBA . Я спадзяюся, што гэты артыкул быў для вас вельмі карысным. Не саромейцеся пытацца, калі ў вас ёсць якія-небудзь пытанні па тэме.