Как да създадете хронометър в работен лист на Excel?
Ако в работния ви лист има хронометър, вие ще знаете времето за приключване на дадена работа. Как можете да създадете хронометър в лист с бутон Старт, Стоп и Нулиране, както е показано на следната екранна снимка? Ако щракнете върху бутона Старт, ще започне времето, ако щракнете върху бутона Стоп, ще спре времето, а бутонът Нулиране може да ви помогне да нулирате времето. В тази статия ще говоря за това как да създадете прост и удобен хронометър в Excel.
Създайте хронометър с три бутона, като използвате VBA код
Създайте хронометър с три бутона, като използвате VBA код
За да създадете хронометър с три бутона, Старт, Стоп и Нулиране, моля, направете следните стъпки една по една.
Първо, поставете три командни бутона.
1. Щракнете Софтуерен Инженер > Поставете > Команден бутон, вижте екранна снимка:
2. След това плъзнете мишката, за да нарисувате бутон, след като поставите бутона, можете да промените надписа на бутона, моля щракнете Софтуерен Инженер > Имоти, В Имоти диалогов прозорец, въведете новия надпис „Начало” за този бутон в текстовото поле до Надпис, вижте екранни снимки:
 |
 |
 |
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. След като завършите горните стъпки, от сега нататък, когато щракнете Начало бутон, времето ще започне сега и щракнете Спиране бутон, ще спре времето, Нулиране бутонът ще нулира времето, вижте екранната снимка:
Демонстрация: Създайте хронометър с три бутона, като използвате VBA код
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
