Как создать таймер для окна сообщений, чтобы автоматически закрыть его через определенное время в Excel?
При использовании книги Excel вы часто можете использовать сценарии VBA для решения задач. Во время выполнения скрипта могут появляться всплывающие окна сообщений. В некоторых случаях вам может потребоваться, чтобы определенные окна сообщений закрывались автоматически через некоторое время, а не вручную. В этой статье мы покажем вам метод создания таймера для окна сообщений, который автоматически закроет его через определенное время в Excel.
Создайте таймер для окна сообщений, чтобы автоматически закрыть его через определенное время.
Создайте таймер для окна сообщений, чтобы автоматически закрыть его через определенное время.
Здесь представлен шаблон сценария VBA для создания таймера окна сообщений.
Предположим, что вы запускаете сценарий VBA для перемещения строк на основе значения ячейки. После завершения перемещения вам нужно, чтобы появилось окно сообщений, информирующее вас об успешном выполнении операции, и это окно должно автоматически закрыться через 4 секунды (см. скриншот ниже). Пожалуйста, следуйте инструкциям ниже.
1. Откройте окно Microsoft Visual Basic for Applications, нажмите Вставить > Модуль, затем вставьте код 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек