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

 Как да създадете поле за съобщение да не, преди да изпълните макрос в Excel?

Автор: Xiaoyang Последна промяна: 2018-08-02

В Excel можете директно да задействате макрос, като натиснете F5 клавиша или щракнете върху бягане бутон в Microsoft Visual Basic за приложения прозорец. Но понякога може да искате да създадете поле за съобщение, което ще попита потребителя дали иска да изпълни макроса. Ако да, продължете да изпълнявате кода, ако не, спрете да изпълнявате кода. В тази статия ще говоря за това как да създадете поле за съобщение с да, не, преди да изпълните макрос в Excel.

Създайте поле за съобщение да не, преди да изпълните макрос с VBA код


Създайте поле за съобщение да не, преди да изпълните макрос с VBA код

Следният код на VBA може да ви помогне да добавите поле за подкана с да, не, за да потвърдите дали изпълнявате макрос, моля, направете следните стъпки:

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. Кликнете Поставете > Модулии поставете следния макрос в Модули Window.

VBA код: Създайте поле за съобщение с да, не, преди да изпълните макрос:

Sub continue()
CarryOn = MsgBox("Do you want to run this macro?", vbYesNo, "Kutools for Excel")
If CarryOn = vbYes Then
'put rest of code here
End If
End Sub

Забележка: В горния код, моля, копирайте и поставете своя собствен код без Под заглавие и End Sub долен колонтитул между Ако CarryOn = vbYes Тогава намлява крайна сметка, ако скриптове. Вижте екранна снимка:

doc кутия за съобщения да не макрос 1

3. След това натиснете F5 клавиш, ще изскочи поле за подкана, за да ви напомни, ако искате да изпълните този код, щракнете Да бутон, за да продължите, и щракнете Не за да спрете, вижте екранната снимка:

doc кутия за съобщения да не макрос 2

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

🤖 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
Or you use this code on top and there is no need to put the whole code inside an if sentence

CarryOn = MsgBox("Do you want to run this macro?", vbYesNo, "Kutools for Excel")
If CarryOn = vbNo Then
Exit Sub
End If
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations