Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk membuat jam randik dalam lembaran kerja Excel?

Sekiranya terdapat jam randik dalam helaian kerja anda, anda akan mengetahui masa untuk menyelesaikan kerja. Bagaimanakah anda boleh membuat jam randik di dalam helaian dengan Butang Mula, Berhenti dan Tetapkan Semula seperti tangkapan skrin berikut? Sekiranya anda mengklik butang Mula, ia akan bermula masa, jika anda menekan butang Stop, ia akan menghentikan masa, dan butang Reset boleh membantu anda menetapkan semula masa. Artikel ini, saya akan membincangkan tentang cara membuat jam randik mudah dan berguna dalam Excel.

doc membuat jam randaan 1

Buat jam randik dengan tiga butang dengan menggunakan kod VBA


Tambah beberapa jam / minit / saat untuk tarikh:

dengan Kutools untuk Excel's Tambah jam / minit / saat sehingga tarikh ciri-ciri, anda boleh dengan cepat menambah atau menolak beberapa jam, minit atau saat untuk satu masa. Klik untuk memuat turun dan percubaan percuma Kutools untuk Excel sekarang!

doc membuat jam randaan 10

Kutools untuk Excel: dengan lebih daripada 200 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60. Muat turun dan percubaan percuma Sekarang!


Buat jam randik dengan tiga butang dengan menggunakan kod VBA

Untuk membuat jam randik dengan tiga butang, Mula, Hentikan dan Semula, lakukan langkah-langkah berikut satu demi satu.

Pertama, masukkan tiga butang arahan.

1. Klik Pemaju > Memasukkan > Butang Perintah, lihat tangkapan skrin:

doc membuat jam randaan 2

2. Kemudian seret tetikus untuk menarik butang, selepas memasukkan butang, anda boleh menukar keterangan butang, sila klik Pemaju > Hartanah, Dalam Hartanah dialog, masukkan kapsyen baru "Start"Untuk butang ini dalam kotak teks di samping Caption, lihat tangkapan skrin:

doc membuat jam randaan 3  2 doc membuat jam randaan 4

3. Ulangi dua langkah di atas untuk memasukkan dua butang lain dan ketikkannya sebagai "Berhenti"Dan"Reset", Lihat tangkapan skrin:

doc membuat jam randaan 5

4. Selepas memasukkan butang, anda harus keluar dari mod reka bentuk dengan mengklik Pemaju > Mod Reka Bentuk.

Kedua, buat kod VBA.

5. Dan kemudian, klik kanan tab lembaran kerja semasa, dan pilih Lihat Kod, dalam keluar Microsoft Visual Basic untuk Aplikasi tetingkap, sila salin dan tampal kod berikut ke dalam Modul:

Kod VBA: Buat jam randik:

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

doc membuat jam randaan 6

Nota: Dalam kod di atas, C2 adalah sel di mana masa jam randik akan dimasukkan, dan CommandButton1, CommandButton2, CommandButton3 adalah nama butang, anda boleh melihat nama butang yang tepat dari Kotak Nama, lihat tangkapan skrin:

doc membuat jam randaan 7

Ketiga, format sel masa randik.

6. Kemudian anda perlu memformat sel masa sebagai teks format, dan anda boleh menukar saiz sel, font, warna font, latar belakang, dan sebagainya yang anda perlukan, lihat tangkapan skrin:

doc membuat jam randaan 8

7. Selepas menyelesaikan langkah-langkah di atas, dari sekarang, apabila anda mengklik Start butang, masa akan bermula sekarang, dan klik Berhenti butang, ia akan menghentikan masa, yang Reset butang akan menetapkan semula masa, lihat tangkapan skrin:

doc membuat jam randaan 9


Demo: Buat jam randik dengan tiga butang dengan menggunakan kod VBA


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
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 · 3 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 · 2 months 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 · 5 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.