Как создать секундомер на листе Excel?
Если на вашем листе есть секундомер, вы будете знать, когда закончить работу. Как создать секундомер на листе с кнопками «Пуск», «Стоп» и «Сброс», как показано на следующем снимке экрана? Если вы нажмете кнопку «Пуск», это будет время начала, если вы нажмете кнопку «Стоп», время остановится, а кнопка «Сброс» поможет вам сбросить время. В этой статье я расскажу о том, как создать простой и удобный секундомер в Excel.
Создайте секундомер с тремя кнопками с помощью кода VBA
Создайте секундомер с тремя кнопками с помощью кода VBA
Чтобы создать секундомер с тремя кнопками: «Пуск», «Стоп» и «Сброс», выполните следующие шаги один за другим.
Во-первых, вставьте три командные кнопки.
1. Нажмите Застройщик > Вставить > Кнопка управления, см. снимок экрана:
2. Затем перетащите мышь, чтобы нарисовать кнопку, после вставки кнопки вы можете изменить заголовок кнопки, нажмите Застройщик > Объекты, В Объекты диалоговом окне введите новый заголовок «Start»Для этой кнопки в текстовом поле рядом с Подпись, смотрите скриншоты:
3. Повторите два вышеупомянутых шага, чтобы вставить две другие кнопки и подписать их как «Stop(Основной ключ) и Сброс”, См. Снимок экрана:
4. После вставки кнопок вы должны выйти из режима дизайна, нажав Застройщик > Режим проектирования.
Во-вторых, создайте код VBA.
5. Затем щелкните правой кнопкой мыши вкладку текущего рабочего листа и выберите Просмотреть код, в выскочившем Microsoft Visual Basic для приложений окно, скопируйте и вставьте следующий код в Код листа:
Код VBA: Создать секундомер:
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 это ячейка, в которую будет вставлено время секундомера, а КомандаКнопка1, КомандаКнопка2, КомандаКнопка3 являются названиями кнопок, вы можете просмотреть точное название кнопки в Имя Box, см. снимок экрана:
В-третьих, отформатируйте ячейку времени секундомера.
6. Затем вы должны отформатировать ячейку времени как Текст формат, и вы можете изменить размер ячейки, шрифт, цвет шрифта, фон и т. д., как вам нужно, см. снимок экрана:
7. После завершения вышеуказанных шагов, с этого момента, когда вы нажимаете Start кнопку, время начнется сейчас, и нажмите Stop кнопка, это остановит время, Сброс кнопка сбросит время, см. снимок экрана:
Демонстрация: создание секундомера с тремя кнопками с помощью кода VBA
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!