Как создать таймер окна сообщения, чтобы автоматически закрывать окно сообщения через определенное время в 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?
• Как открыть окно сообщения, если значение ячейки изменяется в пределах диапазона в Excel?