Как создать секундомер на листе Excel?
Если на вашем листе есть секундомер, вы будете знать, когда закончить работу. Как создать секундомер на листе с кнопками «Пуск», «Стоп» и «Сброс», как показано на следующем снимке экрана? Если вы нажмете кнопку «Пуск», это будет время начала, если вы нажмете кнопку «Стоп», время остановится, а кнопка «Сброс» поможет вам сбросить время. В этой статье я расскажу о том, как создать простой и удобный секундомер в Excel.
Создайте секундомер с тремя кнопками с помощью кода VBA
Создайте секундомер с тремя кнопками с помощью кода VBA
Чтобы создать секундомер с тремя кнопками: «Пуск», «Стоп» и «Сброс», выполните следующие шаги один за другим.
Во-первых, вставьте три командные кнопки.
1. Нажмите разработчик > Вставить > Кнопка управления, см. снимок экрана:
2. Затем перетащите мышь, чтобы нарисовать кнопку, после вставки кнопки вы можете изменить заголовок кнопки, нажмите разработчик > Свойства, В Свойства диалоговом окне введите новый заголовок «Начать»Для этой кнопки в текстовом поле рядом с Подпись, смотрите скриншоты:
 |
 |
 |
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 это ячейка, в которую будет вставлено время секундомера, а CommandButton1, CommandButton2, CommandButton3 являются названиями кнопок, вы можете просмотреть точное название кнопки в Имя Box, см. снимок экрана:
В-третьих, отформатируйте ячейку времени секундомера.
6. Затем вы должны отформатировать ячейку времени как Текст формат, и вы можете изменить размер ячейки, шрифт, цвет шрифта, фон и т. д., как вам нужно, см. снимок экрана:
7. После завершения вышеуказанных шагов, с этого момента, когда вы нажимаете Начать кнопку, время начнется сейчас, и нажмите Stop кнопка, это остановит время, Сброс кнопка сбросит время, см. снимок экрана:
Демонстрация: создание секундомера с тремя кнопками с помощью кода VBA
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
