Как вставить таймер обратного отсчета в Excel?

Если вы хотите обрабатывать некоторые данные в течение ограниченного времени, вы можете вставить таймер обратного отсчета в свой рабочий лист данных, и по окончании обратного отсчета времени появится всплывающее диалоговое окно, напоминающее вам. Здесь я расскажу вам код VBA для вставки таймера обратного отсчета в Excel.

Вставить таймер обратного отсчета в Excel

Вставить таймер обратного отсчета в Excel

В Excel нельзя отсчитывать время, но вы можете скопировать следующий код VBA, чтобы помочь отсчитать время.

1. Выберите ячейку и отформатируйте ее как форматирование времени, щелкнув ячейку правой кнопкой мыши и выбрав Формат ячеек, затем в диалоговом окне, нажав Время и выбор 13:30:55 в Тип список, при последнем нажатии OK для выхода из этого диалога. Смотрите скриншот:

2. Введите время, которое вы хотите отсчитать, в ячейку форматирования. Смотрите скриншот:

3. Нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.

4. Нажмите Вставить > Модули а затем скопируйте следующий VBA в новое окно.

VBA: таймер обратного отсчета.

Dim gCount As Date
'Updateby20140925
Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"
End Sub
Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("E1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
    MsgBox "Countdown complete."
    Exit Sub
End If
Call Timer
End Sub

Функции: E1 в приведенном выше коде указывает ячейку времени, которую вы вводите на шаге 2.

5. Нажмите Run или нажмите F5 для запуска таймера обратного отсчета. Теперь время отсчитывается.

6. И когда обратный отсчет закончится, всплывающее диалоговое окно напомнит вам.

Функции: Вы не можете остановить обратный отсчет, когда он запущен, за исключением закрытия книги.