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

Сетевые администраторы ранее учили вас создавать таймер обратного отсчета в слайдах PowerPoint с помощью других эффектов движения. А с помощью Excel мы можем полностью создать таймер обратного отсчета с простой реализацией с помощью кода VBA.

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

Как установить VBA в Excel
Как взломать пароль VBA в Excel
Как создать мигающий текст в Excel
Как автоматически выделять строки и столбцы в Excel

Инструкция по установке таймера обратного отсчета в Excel

Шаг 1:

Сначала мы выбираем пустую ячейку, чтобы ввести время обратного отсчета, затем щелкаем правой кнопкой мыши и выбираем Формат ячеек.

Отобразите интерфейс выбора формата для ячейки. Здесь щелкните вкладку «Число», затем выберите формат ячейки «Время», затем посмотрите вправо, чтобы выбрать тип отображения времени. Если вы хотите отображать часы по вьетнамскому стилю, выберите «Местный» как вьетнамский. Нажмите OK ниже, чтобы сохранить.

Шаг 2:

Теперь мы вводим количество времени, которое хотим отсчитать, час за часом, минуту за минутой или секунду по желанию. Отрегулируйте формат окна времени, цвет, стиль шрифта, шрифт, размер текста, чтобы сделать ячейку более заметной.

Шаг 3:

Создав временную шкалу обратного отсчета, щелкните вкладку Разработчик, а затем щелкните Visual Basic, чтобы открыть редактор кода VBA.

Отобразите новый интерфейс, нажмите кнопку «Вставить», выберите модуль, чтобы открыть интерфейс и ввести код 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 (“D1”) xRng.Value = xRng.Value – TimeSerial (0, 0, 1) Если xRng.Value

После завершения щелкните значок «Выполнить», чтобы запустить код, как показано.

Закройте интерфейс и по результатам мы увидим автоматический обратный отсчет часов. Мы можем изменить время обратного отсчета по своему желанию, и часы не будут изменены и будут продолжать обратный отсчет, пока таймер не истечет.

Шаг 4:

Чтобы исправить эти часы в рабочем интерфейсе Excel, щелкните поле под окном часов, выберите вкладку «Вид», выберите «Закрепить панели» и нажмите «Закрепить панели», чтобы закрепить строку.

Поэтому, когда вы прокручиваете содержимое ниже, таймер обратного отсчета всегда отображается вверху.

Наконец, когда обратный отсчет закончится, интерфейс Excel отобразит сообщение о завершении, как показано ниже.

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

Желаю успешной реализации!