Сам по себе Excel не имеет функции для включения таймера обратного отсчета. Однако с языком программирования под названием Visual Basic для приложений, можно написать простой макрос для выполнения функции обратного отсчета. В этой статье показано, как создать макрос, который позволяет таймеру вести обратный отсчет до 12 часов, что подходит для управления временем на листе.
Отформатируйте ячейку таймера
Шаг 1
На новом открытом листе перейдите к ячейке A1. Это будет расположение примерного таймера.
Видео дня
Шаг 2
Кредит изображения: Изображение любезно предоставлено Microsoft
Щелкните ячейку правой кнопкой мыши A1 и выберите Формат ячеек.
Шаг 3
Кредит изображения: Изображение любезно предоставлено Microsoft
Выбирать Время в поле Категория и выберите один из форматов часы: минуты: секунды. Нажмите В ПОРЯДКЕ чтобы установить формат ячейки.
Создать макрос
Шаг 1
Кредит изображения: Изображение любезно предоставлено Microsoft
Откройте окно редактирования Visual Basic, нажав ALT-F11. Нажмите Вставлять в строке меню и щелкните Модуль.
Шаг 2
Кредит изображения: Изображение любезно предоставлено Microsoft
Введите следующий текст в окно Module1:
Dim gCount As Date
Дополнительный таймер ()
gCount = Now + TimeValue ("00:00:01")
Применение. OnTime gCount, "EndMessage"
Конец подписки
Sub EndMessage ()
Dim xRng As Range
Установите xRng = Application. ActiveSheet. Диапазон ("A1")
xRng. Значение = xRng. Значение - TimeSerial (0, 0, 1)
Если xRng. Значение <= 0 Тогда
MsgBox «Обратный отсчет завершен».
Выйти из подводной лодки
Конец, если
Таймер звонка
Конец подписки
Ты сможешь скопировать и вставить текст кода выше, или вы можете ввести его построчно в окне Module1. Редактор VBA применяет форматирование по мере необходимости.
Шаг 3
Кредит изображения: Изображение любезно предоставлено Microsoft
Сверните окно VBA, щелкнув - символ в правом верхнем углу. Нажмите Файл на ленте и Сохранить как. Выберите место для сохранения файла. В окне «Сохранить как» дайте книге имя и выберите Книга Excel с поддержкой макросов (* .xlsm) от Сохранить как тип раскрывающийся список. Нажмите Сохранять и вернитесь к книге.
Использование таймера
Шаг 1
Нажмите на ячейку A1 и введите 0:3:0, затем нажмите Входить. Это устанавливает время на 0 часов, 3 минут и 0 секунд.
Шаг 2
Щелкните значок Вид вкладку на ленте и щелкните Макросы. Выбирать Таймер из списка макросов и щелкните Бегать. Ваша ячейка таймера начнет обратный отсчет до нуля, когда Обратный отсчет завершен открывается диалоговое окно. Нажмите В ПОРЯДКЕ вернуться к работе.
Подсказка
Вам не обязательно использовать ячейку A1. Поместите таймер в любое место и измените ссылку на ячейку в строке 8 кода таймера с A1 на ту ячейку, которую вы используете.
