Note: The other languages of the website are Google-translated. Back to English

Як створити секундомір на аркуші Excel?

Якщо на вашому аркуші є секундомір, ви знатимете час, щоб закінчити роботу. Як можна створити секундомір на аркуші за допомогою кнопки «Пуск», «Зупинити» та «Скинути», як показано на наведеному нижче знімку екрана? Якщо натиснути кнопку «Пуск», це почне час, якщо натиснути кнопку «Зупинити», це зупинить час, а кнопка «Скинути» може допомогти вам скинути час. У цій статті я розповім про те, як створити простий і зручний секундомір в Excel.

doc створити секундомір 1

Створіть секундомір із трьома кнопками за допомогою коду VBA


Створіть секундомір із трьома кнопками за допомогою коду VBA

Щоб створити секундомір із трьома кнопками «Пуск», «Зупинити» та «Скинути», виконайте наступні кроки по черзі.

Спочатку вставте три командні кнопки.

1. Клацання Розробник > Insert > Кнопка команди, див. скріншот:

doc створити секундомір 2

2. Потім перетягніть мишу, щоб намалювати кнопку, після вставки кнопки ви можете змінити заголовок кнопки, натисніть, будь ласка Розробник > властивості, В властивості діалогове вікно, введіть новий підпис “Start"Для цієї кнопки у текстовому полі поруч із Підпис, див. скріншоти:

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. Після закінчення вищевказаних кроків, відтепер, при натисканні Start , час почнеться зараз і натисніть Стоп кнопку, це зупинить час, скидання кнопка скине час, див. знімок екрана:

doc створити секундомір 9


Демонстрація: Створіть секундомір із трьома кнопками за допомогою коду VBA


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (28)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Дякую за цей пост, він був дуже корисним. Однак чи є спосіб налаштувати код, щоб таймер не зупинявся під час редагування комірки? В ідеалі я хотів би натиснути «Пуск», внести ряд змін у діапазон комірок на тій самій вкладці, а потім натиснути «Зупинити», щоб побачити загальний час, що минув. Буду вдячний за будь-яку пораду з цього приводу!
Цей коментар був мінімізований модератором на сайті
ти коли-небудь розбирався в цьому? Мені також потрібно, щоб таймер працював, поки в тій же електронній таблиці вносяться інші зміни. Спасибі. Майк
Цей коментар був мінімізований модератором на сайті
Це була велика допомога і дуже легко виконувати кроки.
Цей коментар був мінімізований модератором на сайті
Спробували створити секундомір, використовуючи ті самі коди у Формах. Таймер запускається нормально, але не зупиняється. Підкажіть, будь ласка, як повторити те саме у формах
Цей коментар був мінімізований модератором на сайті
Спробуйте секундомір XNote.
Цей коментар був мінімізований модератором на сайті
Чи є спосіб змусити таймер відраховувати вгору або вниз до певного часу? Я хочу зберегти кнопки запуску, зупинки та скидання, але мені потрібно, щоб вони рахували до однієї хвилини лише одну секунду, коли я натискаю кнопку «Пуск». Або відлік від однієї хвилини до нуля (01:01). Спасибі за вашу допомогу!
Цей коментар був мінімізований модератором на сайті
Привіт, Мелісса,
якщо вам потрібно створити таймер зворотного відліку на робочому аркуші, можливо, вам допоможе наступна стаття!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
Цей коментар був мінімізований модератором на сайті
Здравствуйте,

Я бачив цю статтю, але мені потрібно, щоб вона виглядала точно так само, як секундомір на цій сторінці, але мені потрібно, щоб вона відлічувала лише одну хвилину й одну секунду. Мені потрібно, щоб він показував у формі секундоміра, але працював як зворотний відлік. Будь-які додаткові поради?


дякую за відповідь!
Цей коментар був мінімізований модератором на сайті
Це для табло, яке ми розробили в Excel.
Цей коментар був мінімізований модератором на сайті
Чудово, але чи можна запустити 2 годинники на одному аркуші? зробили другий годинник з новим запуском, зупинкою та кнопкою скидання, але при запуску другого годинника перший зупиняється....
Цей коментар був мінімізований модератором на сайті
те ж саме тут ви можете знайти ліки від цього
Цей коментар був мінімізований модератором на сайті
Привіт, друзі,
Цей метод застосовується лише до одного набору кнопок на аркуші.
Якщо є інші хороші ідеї, прокоментуйте тут.
Цей коментар був мінімізований модератором на сайті
Чи можна автоматично зупиняти таймер, коли екран блокується, і запускати таймер автоматично, коли ми розблокуємо комп'ютер?
Цей коментар був мінімізований модератором на сайті
Чи є спосіб, щоб таймер скинув рахунок до нуля, але продовжував працювати? тобто. Коли я натискаю Скидання, я не хочу знову натискати Пуск, щоб минув час.
Цей коментар був мінімізований модератором на сайті
Привіт, я користуюся цією пробкою, але досить часто цифри в комірці дисплея ("C2") починають збиватися і гаснуть - вони показують знаки мінус, цифри неправильні, і рахунок втрачається. Зазвичай це відбувається приблизно через годину або більше, але іноді навіть раніше години. Це поширена помилка? і якщо так, то чи є спосіб це виправити? Я видалив .00 (тобто мілісекунди) з коду, просто стервши: & "." & Формат(0, "00") рядок, де б він не з'явився - чи має це щось відношення до цієї проблеми?
Цей коментар був мінімізований модератором на сайті
Дякую за вашу підказку. Він працював безперебійно, але коли я вводив будь-які дані в цей аркуш, він перестав працювати. Нам потрібно, щоб він працював деякий час, введення даних Як ми можемо вирішити цю проблему?
Цей коментар був мінімізований модератором на сайті
Привіт, Nhoeun!
Можливо, це не найкращий шлях для вирішення вашої проблеми. Коли ви редагуєте комірку, це перериває поточний виконуваний макрос.
Якщо у вас є інший хороший метод, прокоментуйте тут!
Дякую!
Цей коментар був мінімізований модератором на сайті
ПРИВІТ. Я створив секундомір, але мені потрібно мати можливість зберегти різні інтервали між початком і зупинкою, щоб мати можливість відображати їх як дослідження часу та руху. Будь-які поради, як це зробити?
Цей коментар був мінімізований модератором на сайті
Усі кроки виконано, але при натисканні кнопки «Пуск» відображається повідомлення про помилку «Не вдається запустити макрос «'file.xlsm»!CommandButton1». Макрос може бути недоступним у цій книзі або всі макроси можуть бути вимкнені.». Усі макроси ввімкнено, макрос знаходиться в Module1. ПРИМІТКА. Я використовую Office 2019 для Mac, тому це може бути проблемою....
Цей коментар був мінімізований модератором на сайті
Як щодо того, щоб додати в цей код функцію «+10» і «Швидкість у 2 рази»?
Цей коментар був мінімізований модератором на сайті
чи "таймер" тут є змінною? не бачу його релевантності в коді.
Цей коментар був мінімізований модератором на сайті
Чи можна змусити лічильник рахувати лише секунди?
Отже, коли він досягає 59 секунд, він продовжується з 60, 61, 62, 63 ....
Цей коментар був мінімізований модератором на сайті
Привіт
Виконано кроки, але не може отримати час, щоб з’явитися в клітинці таймера. Я скопіював код, але чи можу я перевірити1. Що номери рядків не потрібні або вони2. Що я помістив код у модуль 1, а не в лист1 чи цю книгу3. Якщо після виконання всього цього в списку макросів з’явиться макрос, у мене його немає.
Дякую
Цей коментар був мінімізований модератором на сайті
Привіт, Дженіс, вам слід помістити код у свій активний модуль аркуша як крок 5.
5. Потім клацніть правою кнопкою миші вкладку поточного аркуша та виберіть Перегляд коду, у вікні Microsoft Visual Basic для програм, що з’явилося, скопіюйте та вставте наступний код у модуль.

І вам слід змінити назву кнопки на власну.
Примітка. У наведеному вище коді C2 – це клітинка, куди буде вставлено час секундоміра, і CommandButton1, CommandButton2, CommandButton3 це назви кнопок, ви можете переглянути точну назву кнопки у вікні назв.

Будь ласка, перевірте їх, дякую!
Цей коментар був мінімізований модератором на сайті
Це блискуче! Дякую, Кріс Х
Цей коментар був мінімізований модератором на сайті
Чи можна використовувати вікно зі списком або спадне меню для запуску та зупинки годинника
Цей коментар був мінімізований модератором на сайті
Bonjour, j'ai voulu intégrer ce chronomètre à une autre macro, déterminer le temps d'utilization du fichier. La macro se lance mais bloque l'utilization du fichier.Comment faire pour utiliser votre chronomètre en même temps que d'autres codes VBA?MerciHenry.
Цей коментар був мінімізований модератором на сайті
Привіт! Дякую за це, як зробити так, щоб він заповнював час у наступних клітинках, наприклад. час запуску/зупинки для клітинки C2, потім інший час початку/зупинки для клітинки c3, c4, c5 тощо 
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця