Ինչպե՞ս ստեղծել վայրկյանաչափ Excel- ի աշխատանքային թերթում:
Եթե ձեր աշխատաթերթում կա վայրկյանաչափ, դուք կիմանաք գործն ավարտելու ժամանակը: Ինչպե՞ս կարող եք թերթի մեջ վայրկյանաչափ ստեղծել Start, Stop և Reset կոճակներով, ինչպես ցույց է տրված հետևյալ նկարը: Եթե սեղմեք «Սկսել» կոճակը, այն կսկսվի ժամանակը, եթե կտտացրեք «Կանգնեցնել» կոճակը, այն կդադարեցնի ժամանակը, և «Վերականգնել» կոճակը կօգնի ձեզ վերականգնել ժամանակը: Այս հոդվածում ես կխոսեմ այն մասին, թե ինչպես ստեղծել պարզ և հարմար վայրկյանաչափ 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 Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
