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