Перейти до основного матеріалу

 Як створити вікно повідомлення "так" ні, перш ніж запускати макрос у Excel?

В Excel ви можете безпосередньо активувати макрос, натискаючи на F5 або клацніть на прогін кнопка в Microsoft Visual Basic для додатків вікно. Але іноді вам може знадобитися створити вікно повідомлення, яке запитає користувача, чи хоче він запустити макрос. Якщо так, продовжуйте запускати код, якщо ні, припиніть запуск коду. У цій статті я розповім про те, як створити вікно повідомлення „так ні” перед запуском макросу в Excel.

Створіть вікно повідомлення "так" перед запуском макросу з кодом VBA


Створіть вікно повідомлення "так" перед запуском макросу з кодом VBA

Наступний код VBA може допомогти вам додати вікно запитання так ні, щоб підтвердити, чи запущений макрос, виконайте кроки нижче:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Натисніть Insert > Модуліта вставте наступний макрос у Модулі Вікно

Код 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 = vbТак Тоді та End If сценарії. Дивіться знімок екрана:

вікно повідомлення doc так ні макрос 1

3. Потім натисніть F5 клавіша, з'явиться вікно запиту, щоб нагадати вам, якщо ви хочете запустити цей код, натисніть Так , щоб продовжити, і натисніть Немає щоб зупинитися, див. скріншот:

вікно повідомлення doc так ні макрос 2

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички 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