İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel işində saniyəölçəni necə yaratmaq olar?

Çalışma kitabınızda bir saniyəölçən varsa, bir işi bitirmə vaxtını biləcəksiniz. Aşağıdakı ekran görüntüsü kimi Başlanğıc, Durdur və Sıfırla Düymə ilə bir hesabatda bir kronometr yaratmaq olar? Başlanğıc düyməsini klikləsəniz, Stop düyməsini basılarsanız, zaman durdurur və Reset düyməsinə vaxtınızı yenidən qurmağa kömək edə bilər. Bu yazıda Excel-də sadə və rahat bir kronometr yaratmağı danışacağam.

kronometr 1 yaratmaq

VBA kodunu istifadə edərək üç düyməni ilə bir saniyəölçən yaradın


Datetime bir neçə saat / dəqiqə / saniyə əlavə edin:

ilə Excel üçün Kutools's Bu günə qədər saat / dəqiqə / saniyə əlavə edin xüsusiyyətləri ilə, bir tarixin bir neçə saat, dəqiqə və ya saniyəni tez bir zamanda əlavə edə bilərsiniz. Excel-in Kutools-ı endirmək üçün buraya basın!

kronometr 10 yaratmaq

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


VBA kodunu istifadə edərək üç düyməni ilə bir saniyəölçən yaradın

Başlanğıc, Durdur ve Sıfırlama ilə üç düymələri olan bir saniyəölçən yaratmaq üçün aşağıdakı adımları bir-bir edin.

Birincisi, üç komanda düyməsini daxil edin.

1. Basın Developer > Taxmaq > Command Button, bax ekran görüntüsü:

kronometr 2 yaratmaq

2. Sonra bir düyməni çəkmək üçün siçan sürükləyin, düyməni daxil etdikdən sonra düyməni başlığını dəyişə bilərsiniz, xahiş edirik basın Developer > Properties, Bu Properties dialoq, yeni yazı daxil edin "start"Bu mətn qutusunun yanında bu düyməyə baxın Başlıqekran baxın:

kronometr 3 yaratmaq  2 kronometr 4 yaratmaq

3. Digər iki düyməni əlavə etmək üçün yuxarıda göstərilən iki addımı təkrarlayın və "Dayandırmaq"Və"Sıfırla", Bax ekran görüntüsü:

kronometr 5 yaratmaq

4. Düymələri yerləşdirdikdən sonra, dizayn rejimindən tıklayaraq çıxmalısınız Developer > Dizayn Moda.

İkincisi, bir VBA kodu yaradın.

5. Və sonra, cari iş sekmesini sağ basın və seçin Kodları baxın, çıxdı Proqramlar üçün Microsoft Visual Basic pəncərədən, aşağıdakı kodu kopyalayıp yapışdırıb Modules:

VBA kodu: Kronometr yarat:

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

kronometr 6 yaratmaq

Qeyd: Yuxarıda göstərilən kodda, C2 saniyəölçən vaxtının yerləşdiriləcəyi hüceyrə və CommandButton1, CommandButton2, CommandButton3 düymələrin adlarıdır, siz dəqiq düyməni adını bilərsiniz Ad qutusu, bax ekran görüntüsü:

kronometr 7 yaratmaq

Üçüncüsü, saniyəölçən vaxt hüceyrəsini formatlaşdırın.

6. Sonra zaman hücresini formatlaşdırmalısınız Mətn formata ehtiyac duyduğunuzda mobil ölçüsü, font, font rəngi, arxa plan və s. dəyişə bilərsiniz, ekran görüntüsünə baxın:

kronometr 8 yaratmaq

7. Yuxarıdakı addımları bitirdikdən sonra, bundan sonra, tıkladığınızda start düyməsini basın, vaxt artıq başlayacaq və basın Dayandırmaq düyməsi, vaxtını dayandıracaq Sıfırla düyməsini vaxtını sıfırlayacaq, ekran görüntüsünə baxın:

kronometr 9 yaratmaq


Demo: VBA kodunu istifadə edərək üç düyməni ilə bir saniyəölçən yaradın



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Nhoeun Nou · 1 months ago
    Thank for your tip, It was running smoothly but when I input any data in this sheet It's stopped running, We need it keep running awhile input data How we can fix this problem?
    • To post as a guest, your comment is unpublished.
      skyyang · 29 days ago
      Hello, Nhoeun,
      May be there in not a good way for solving your problem. When you edit a cell, it will interrupt the currently executed macro.
      If you have any other good method, please comment here!
      Thank you!
  • To post as a guest, your comment is unpublished.
    Yuval · 3 months ago
    Hi, I'm using this stopper but quite often the numbers in the display cell ("C2") start fricking out and go off - they show minus signs, the digits are incorret and the count is lost. It usually happens after about an hour or more but sometimes even before an hour goes by. Is this a common bug? and if yes, is there a way to fix it? I did remove the .00 (i.e. the miliseconds) from the code by simply erasing the: & "." & Format(0, "00") line wherever it appears - does that have to do anything with this problem?
  • To post as a guest, your comment is unpublished.
    Damian · 1 years ago
    Is there any way to have the timer reset the count to zero but still keep the timer running? Ie. When I press Reset, I don't want to have to press Start again for the time to tick up.
  • To post as a guest, your comment is unpublished.
    Vivek Nath · 1 years ago
    Is it possible to automatically stop the timer when screen locks and start the timer automatically when we unlock the computer?
  • To post as a guest, your comment is unpublished.
    Tor-Bjørn Øverbø · 1 years ago
    Great, but is it possible to run 2 clocks in the same sheet? have made a second clock with new start, stop and reset buttom, but when starting the second clock the first one stops....
    • To post as a guest, your comment is unpublished.
      Vishal Sharma · 1 years ago
      same here can you able to find cure of this
      • To post as a guest, your comment is unpublished.
        skyyang · 1 years ago
        Hello, friends,
        This method is only applied to one set of buttons in a worksheet.
        If there are other good ideas, please comment here.