Як створити секундомір на аркуші Excel?
Якщо на вашому аркуші є секундомір, ви знатимете час, щоб закінчити роботу. Як можна створити секундомір на аркуші за допомогою кнопки «Пуск», «Зупинити» та «Скинути», як показано на наведеному нижче знімку екрана? Якщо натиснути кнопку «Пуск», це почне час, якщо натиснути кнопку «Зупинити», це зупинить час, а кнопка «Скинути» може допомогти вам скинути час. У цій статті я розповім про те, як створити простий і зручний секундомір в Excel.
Створіть секундомір із трьома кнопками за допомогою коду VBA
Створіть секундомір із трьома кнопками за допомогою коду VBA
Щоб створити секундомір із трьома кнопками «Пуск», «Зупинити» та «Скинути», виконайте наступні кроки по черзі.
Спочатку вставте три командні кнопки.
1. Клацання Розробник > Insert > Кнопка команди, див. скріншот:
2. Потім перетягніть мишу, щоб намалювати кнопку, після вставки кнопки ви можете змінити заголовок кнопки, натисніть, будь ласка Розробник > властивості, В властивості діалогове вікно, введіть новий підпис “Start"Для цієї кнопки у текстовому полі поруч із Підпис, див. скріншоти:
 |
 |
 |
3. Повторіть два вищезазначені кроки, щоб вставити інші дві кнопки та підписати їх як “Стоп"І"скидання”, Див. Знімок екрана:
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. Після закінчення вищевказаних кроків, відтепер, при натисканні Start , час почнеться зараз і натисніть Стоп кнопку, це зупинить час, скидання кнопка скине час, див. знімок екрана:
Демонстрація: Створіть секундомір із трьома кнопками за допомогою коду VBA
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools for Excel, і відчуйте ефективність, як ніколи раніше. Kutools for Excel Пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
