Как создать секундомер прямо на листе Excel?
Если вам нужен секундомер прямо на листе Excel, он станет отличным инструментом для отслеживания времени, затраченного на выполнение задач. Представьте: у вас есть три кнопки — «Пуск», «Стоп» и «Сброс», как на снимке экрана ниже. Нажатие «Пуск» запускает таймер, «Стоп» — приостанавливает его, а «Сброс» — обнуляет отсчёт. В этой статье мы пошагово покажем, как создать простой, но полностью функциональный секундомер в Excel с помощью кода VBA.
Создание секундомера с тремя кнопками с использованием кода VBA
Создание секундомера с тремя кнопками с использованием кода VBA
Чтобы создать секундомер с тремя кнопками — «Пуск», «Стоп» и «Сброс», выполните следующие шаги последовательно.
Во-первых, вставьте три элемента управления — кнопки.
1. Щёлкните «Разработчик» > «Вставить» > «Кнопка (элемент управления ActiveX)» — см. снимок экрана:
2. Затем перетащите указатель мыши, чтобы нарисовать кнопку. После вставки кнопки вы можете изменить её надпись: перейдите на вкладку «Разработчик» и выберите «Свойства». В открывшемся диалоговом окне «Свойства» введите новую надпись «Пуск» в поле рядом с параметром «Надпись» (см. снимки экрана).
 |  |  |
3. Повторите два предыдущих шага, чтобы добавить ещё две кнопки и подписать их «Стоп» и «Сброс» (см. снимок экрана).
4. После вставки кнопок выйдите из режима конструктора, выбрав «Разработчик» → «Режим конструктора».
Во-вторых, напишите код на VBA.
5. Затем щелкните правой кнопкой мыши вкладку текущего листа и выберите «Просмотреть код». В открывшемся окне Microsoft Visual Basic for Applications скопируйте приведённый ниже код и вставьте его в раздел «Код листа»:
Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
StartTime = Timer
PauseTime = 0
LastTime = 0
Else
StartTime = 0
PauseTime = Timer
End If
StartIt:
DoEvents
If StopIt = True Then
LastTime = TotalTime
Exit Sub
Else
FinishTime = Timer
TotalTime = FinishTime - StartTime + LastTime - PauseTime
TTime = TotalTime * 100
HM = TTime Mod 100
TTime = TTime \ 100
hh = TTime \ 3600
TTime = TTime Mod 3600
MM = TTime \ 60
SS = TTime Mod 60
Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
If ResetIt = True Then
Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
End
End If
GoTo StartIt
End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
StopIt = True
End Sub
Private Sub CommandButton3_Click()
Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
ResetIt = True
End Sub
Примечание. В приведённом выше коде ячейка «C2» указывает место вывода времени секундомера, а «CommandButton1», «CommandButton2» и «CommandButton3» — это имена кнопок. Точное имя нужной кнопки можно найти в поле «Имя», как показано на снимке экрана:
В-третьих, отформатируйте ячейку с временем секундомера.
6. Затем установите для ячейки с временем формат «Текст» и, при необходимости, настройте её размер, шрифт, цвет шрифта, фон и другие параметры — см. снимок экрана:
7. После выполнения описанных выше шагов нажатие кнопки «Пуск» запустит отсчёт времени, кнопка «Стоп» — остановит его, а кнопка «Сброс» обнулит таймер (см. снимок экрана).
Демонстрация: Создание секундомера с тремя кнопками с использованием кода VBA
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек