Как создать таймер окна сообщения, чтобы автоматически закрывать окно сообщения через определенное время в 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?
- Как скопировать текст из окна сообщения в Excel?
- Как открыть окно сообщения при активации / открытии указанного рабочего листа в Excel?
- Как открыть окно сообщения для отображения диапазона ячеек или значений ячеек в Excel?
- Как открыть окно сообщения, если значение ячейки изменяется в пределах диапазона в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
