Прескочи на основното съдържание

Как да стартирате VBA макрос при отваряне или затваряне на работна книга?

Автор: Слънце Последна промяна: 2020-09-02

В много случаи може да използваме VBA кода, за да постигнем операциите, които вградените функции на Excel не поддържат. Но опитвали ли сте някога да стартирате макроса на VBA при всяко отваряне или затваряне на работната книга. В тази статия ще ви кажа как да изпълнявате кода на VBA, докато отваряте или затваряте работната книга всеки път.

Изпълнение на VBA код при затваряне или отваряне на работна книга


Изпълнение на VBA код при затваряне или отваряне на работна книга

1. Активирайте работната книга, натиснете Alt + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. Кликнете два пъти Тази работна книга в проекта – VBAProject прозорец за отваряне на Тази работна книга (код) прозорец.
doc изпълнява код при отваряне или затваряне 1

2. В прозореца с код изберете Workbook от левия падащ списък. Забележете, че по подразбиране, отворено ще се покаже в десния падащ списък, ако не, променете го на отворено.
doc изпълнява код при отваряне или затваряне 2

3. След това копирайте собствения си код без първия и последния ред и го поставете между тях Private Sub Workbook_Open() намлява End Sub както е показано на екранната снимка по-долу.
doc изпълнява код при отваряне или затваряне 3

4. След това кликнете Save бутон, за да запазите кода, щракнете върху изскачащия диалогов прозорец за напомняне Не.
doc изпълнява код при отваряне или затваряне 4

5 След това a Save As изскача диалогов прозорец, запишете файла като Работна книга с активирани макроси на Excel и изберете папка, в която да поставите файла.
doc изпълнява код при отваряне или затваряне 5

6. кликване Save бутон. Сега кодът ще се изпълнява, докато работната книга е отворена.

Ако искате да стартирате кода, докато затваряте работната книга всеки път, изберете Деактивирайте от десния падащ списък в код прозорец и копирайте кода, който ще стартирате, и го поставете между тях Private Sub Workbook_Deactivate() намлява End Sub.

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello,

I have used this VBA code with some success. I find that when I am working on more than one workbook at a time, each time I switch the focus from the macro enabled workbook to another workbook, the macro is run. I don't want it to run until I actually manually "CLOSE" the file. Do you now how I can accomplish that?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations