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

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

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

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

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

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

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

3. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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. Нажмите кнопку Запуск или клавишу F5, чтобы запустить таймер обратного отсчета. Теперь время начинает отсчитываться.

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

Совет: Вы не сможете остановить обратный отсчет во время его работы, кроме как закрыв книгу.