Как создать секундомер на листе Excel?

Если вам нужен секундомер на вашем листе Excel, он может помочь вам отслеживать время, затраченное на выполнение задач. Представьте себе кнопки Старт, Стоп и Сброс для управления секундомером, как показано на скриншоте ниже. Нажатие кнопки Старт запускает таймер, кнопка Стоп приостанавливает его, а кнопка Сброс очищает время. В этой статье мы покажем вам пошагово, как создать простой, но функциональный секундомер в Excel с использованием кода VBA.

Создайте секундомер с тремя кнопками, используя код VBA

 Создайте секундомер с тремя кнопками, используя код VBA

Чтобы создать секундомер с тремя кнопками — Старт, Стоп и Сброс — выполните следующие шаги один за другим.

Во-первых, вставьте три командные кнопки.

1. Нажмите «Разработчик» > «Вставить» > «Кнопка команды», см. скриншот:

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