Ինչպե՞ս ստեղծել վայրկյանաչափ 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-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...