Как настроить автоматическое закрытие окна сообщения в Excel через заданный промежуток времени?
При работе с книгой Excel вы часто используете сценарии VBA для решения различных задач. Во время их выполнения могут появляться всплывающие окна сообщений. Иногда возникает необходимость автоматически закрывать определённые окна сообщений спустя заданное время, вместо того чтобы закрывать их вручную. В этой статье мы покажем, как создать таймер для окна сообщения, который автоматически закроет его через указанный промежуток времени в Excel.
Создание таймера для окна сообщения, чтобы оно автоматически закрывалось спустя определённое время
Создание таймера для окна сообщения, чтобы оно автоматически закрывалось спустя определённое время
Здесь представлен шаблон сценария VBA для создания таймера в окне сообщения.
Представьте, что вы запускаете сценарий VBA для перемещения строк на основе значения ячейки. После завершения операции должно появиться всплывающее окно с уведомлением об успешном выполнении, которое автоматически закроется через 4 секунды (см. снимок экрана ниже). Следуйте инструкциям ниже.
1. Откройте окно Microsoft Visual Basic для приложений, нажмите Вставка > Модуль и вставьте код VBA, который вы хотите использовать для перемещения строк на основе значения ячейки.
2. Скопируйте приведённый ниже код VBA 1 и вставьте его перед тем участком кода, который вы хотите выполнить. См. снимок экрана ниже:
Код VBA 1:
Private Declare PtrSafe Function CustomTimeOffMsgBox Lib "user32" Alias "MessageBoxTimeoutA" ( _
ByVal xHwnd As LongPtr, _
ByVal xText As String, _
ByVal xCaption As String, _
ByVal xMsgBoxStyle As VbMsgBoxStyle, _
ByVal xwlange As Long, _
ByVal xTimeOut As Long) _
As Long
3. Скопируйте приведённый ниже код VBA 2 и вставьте его перед строкой «End Sub» в том коде, который вы хотите выполнить.
Код VBA 2:
Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)
Примечание: Вы можете настроить содержимое сообщения и длительность отображения диалогового окна под свои нужды.
4. После выполнения кода для проведения операции появится всплывающее сообщение, которое автоматически закроется через определённое время (в данном случае — через 4 секунды).
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Связанные статьи:
- Как отобразить всплывающее окно с сообщением при щелчке по определённой ячейке в Excel?
- Как скопировать текст из всплывающего окна сообщения в Excel?
- Как показать всплывающее окно с сообщением при активации или открытии указанного листа в Excel?
- Как отобразить всплывающее окно сообщения, показывающее диапазон ячеек или их значения, в Excel?
- Как отобразить всплывающее окно с сообщением, когда значение ячейки изменяется в заданном диапазоне в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек