Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

Если на вашем рабочем столе есть секундомер, вы будете знать время, чтобы закончить работу. Как вы можете создать секундомер в листе с кнопкой «Пуск», «Стоп» и «Сброс», как показано на следующем скриншоте? Если вы нажмете кнопку «Пуск», она начнет время, если вы нажмете кнопку «Стоп», это остановит время, а кнопка «Сброс» поможет вам сбросить время. В этой статье я расскажу о том, как создать простой и удобный секундомер в Excel.

doc создать секундомер 1

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


Добавьте количество часов / минут / секунд в datetime:

Kutools for Excel's Добавление часов / минут / секунд до даты функции, вы можете быстро добавить или вычесть количество часов, минут или секунд до даты. Нажмите, чтобы загрузить и бесплатно пробную версию Kutools для Excel прямо сейчас!

doc создать секундомер 10

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


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

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

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

1. Щелчок разработчик > Вставить > Кнопка управления, см. снимок экрана:

doc создать секундомер 2

2, Затем перетащите мышь, чтобы нарисовать кнопку, после вставки кнопки вы можете изменить заголовок кнопки, нажмите разработчик > Недвижимость, В Недвижимость диалога, введите новый заголовок "запуск"Для этой кнопки в текстовом поле рядом с Подпись, см. скриншоты:

doc создать секундомер 3  2 doc создать секундомер 4

3, Повторите вышеуказанные два шага, чтобы вставить другие две кнопки и назовите их как "Стоп(Основной ключ) и Сброс", См. Снимок экрана:

doc создать секундомер 5

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

doc создать секундомер 6

Внимание: В приведенном выше коде, C2 это ячейка, в которой будет вставлено время секундомера, и CommandButton1, CommandButton2, CommandButton3 являются именами кнопок, вы можете просмотреть точное имя кнопки из Имя Box, см. снимок экрана:

doc создать секундомер 7

В-третьих, отформатируйте ячейку времени секундомера.

6, Затем вы должны отформатировать ячейку времени как Текст формат, и вы можете изменить размер ячейки, шрифт, цвет шрифта, фон и т. д., как вам нужно, см. снимок экрана:

doc создать секундомер 8

7, После завершения выше шагов, отныне, когда вы нажимаете запуск , время будет запущено сейчас и нажмите Стоп , это остановит время, Сброс кнопка сбросит время, см. снимок экрана:

doc создать секундомер 9


Демонстрация. Создайте секундомер с тремя кнопками с помощью кода VBA.


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Nhoeun Nou · 5 months ago
    Thank for your tip, It was running smoothly but when I input any data in this sheet It's stopped running, We need it keep running awhile input data How we can fix this problem?
    • To post as a guest, your comment is unpublished.
      skyyang · 4 months ago
      Hello, Nhoeun,
      May be there in not a good way for solving your problem. When you edit a cell, it will interrupt the currently executed macro.
      If you have any other good method, please comment here!
      Thank you!
  • To post as a guest, your comment is unpublished.
    Yuval · 7 months ago
    Hi, I'm using this stopper but quite often the numbers in the display cell ("C2") start fricking out and go off - they show minus signs, the digits are incorret and the count is lost. It usually happens after about an hour or more but sometimes even before an hour goes by. Is this a common bug? and if yes, is there a way to fix it? I did remove the .00 (i.e. the miliseconds) from the code by simply erasing the: & "." & Format(0, "00") line wherever it appears - does that have to do anything with this problem?
  • To post as a guest, your comment is unpublished.
    Damian · 1 years ago
    Is there any way to have the timer reset the count to zero but still keep the timer running? Ie. When I press Reset, I don't want to have to press Start again for the time to tick up.
  • To post as a guest, your comment is unpublished.
    Vivek Nath · 1 years ago
    Is it possible to automatically stop the timer when screen locks and start the timer automatically when we unlock the computer?
  • To post as a guest, your comment is unpublished.
    Tor-Bjørn Øverbø · 1 years ago
    Great, but is it possible to run 2 clocks in the same sheet? have made a second clock with new start, stop and reset buttom, but when starting the second clock the first one stops....
    • To post as a guest, your comment is unpublished.
      Vishal Sharma · 1 years ago
      same here can you able to find cure of this
      • To post as a guest, your comment is unpublished.
        skyyang · 1 years ago
        Hello, friends,
        This method is only applied to one set of buttons in a worksheet.
        If there are other good ideas, please comment here.
  • To post as a guest, your comment is unpublished.
    Melissa Stranko · 1 years ago
    Is there any way to get the timer to count up or down to a specific time? I want to keep the start, stop, and reset buttons, but I need it to count up to one minute one second only, once I press start. Or count down from one minute one second to zero (01:01). Thanks for your help!
  • To post as a guest, your comment is unpublished.
    Guest · 1 years ago
    Try XNote Stopwatch.
  • To post as a guest, your comment is unpublished.
    Prashant · 2 years ago
    Have tried to create the stop watch using the same codes in Forms. The timer starts perfectly fine but does not stop . Please suggest how to replicate the same in forms
  • To post as a guest, your comment is unpublished.
    Paulo G. · 2 years ago
    This was a great help and very easy to follow the steps.
  • To post as a guest, your comment is unpublished.
    Gnarlsagan · 2 years ago
    Thank you for this post, it was very helpful. However, is there a way to tweak the code to make it so the timer does not stop when a cell is being edited? Ideally I would like to hit "Start," make a number of changes to a range of cells on the same tab, and then hit "Stop" for the total time elapsed. Any advice on this would be greatly appreciated!