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