Как да вмъкнете таймер в MS Excel

Отворете електронна таблица в Excel и кликнете върху "Developer" в лентата с менюта в горната част на екрана. Ако не се показва в списъка, кликнете върху бутона "Microsoft Office", "Опции за Excel", "Популярни" и изберете раздела "Показване на програмист".

Кликнете върху "Вмъкване" в новия прозорец, който се показва, и изберете "Процедура" от падащото меню, въведете име за новата процедура като "ExcelTimer" и се уверете, че типът избран е "Под".

Въведете следния текст в отделни редове в панела отдясно между "Public Sub ExcelTimer ()" и "End Sub": Dim PauseTime, Start, Finish, TotalTime Ако (MsgBox ("Натиснете Да, )) = vbYes Тогава PauseTime = 10 Start = Таймер Do While Timer <Старт + PauseTime DoEvents Application.Speech.Speak "Време е да се направи почивка!" Loop Finish = Таймер TotalTime = Завършване - Стартиране на MsgBox "Продължителност на почивката" & TotalTime & "секунди"

Проверете функцията, като натиснете клавиша "F5". Ще се отвори стандартна електронна таблица в Excel и ще видите малък прозорец с текст "Натиснете Да, за да получите напомняне за почивка" (Натиснете "Да", за да получите напомняне). Кликнете върху бутона "Да" Ако не виждате същото, уверете се, че сте въвели правилно кода в стъпка 3.

Кликнете върху "OK", когато таймерът приключи, за да се върнете към електронната таблица.

Задайте клавиш за бърз достъп до това действие, като го изберете в списъците с макроси и кликнете върху "Опции".