Loncat ke daftar isi utama

Bagaimana cara membuat stopwatch di lembar kerja Excel?

Pengarang: Xiaoyang Terakhir Dimodifikasi: 2023-01-31

Jika ada stopwatch di lembar kerja Anda, Anda akan tahu waktu untuk menyelesaikan pekerjaan. Bagaimana Anda bisa membuat stopwatch dalam lembaran dengan Tombol Mulai, Berhenti, dan Atur Ulang seperti gambar berikut yang ditampilkan? Jika Anda mengklik tombol Start, itu akan memulai waktu, jika Anda mengklik tombol Stop, itu akan menghentikan waktu, dan tombol Reset dapat membantu Anda mengatur ulang waktu. Artikel ini, saya akan berbicara tentang cara membuat stopwatch sederhana dan praktis di Excel.

doc buat stopwatch 1

Buat stopwatch dengan tiga tombol dengan menggunakan kode VBA


Buat stopwatch dengan tiga tombol dengan menggunakan kode VBA

Untuk membuat stopwatch dengan tiga tombol, Start, Stop dan Reset, lakukan dengan langkah-langkah berikut satu per satu.

Pertama, masukkan tiga tombol perintah.

1. Klik Pengembang > Menyisipkan > Tombol perintah, lihat tangkapan layar:

doc buat stopwatch 2

2. Kemudian seret mouse untuk menggambar tombol, setelah memasukkan tombol, Anda dapat mengubah judul tombol, silakan klik Pengembang > Properties, Dalam Properties dialog, masukkan teks baru "Start”Untuk tombol ini di kotak teks di samping Keterangan, lihat tangkapan layar:

doc buat stopwatch 3 2 doc buat stopwatch 4

3. Ulangi dua langkah di atas untuk memasukkan dua tombol lainnya dan beri judul sebagai "berhenti"Dan"ulang”, Lihat tangkapan layar:

doc buat stopwatch 5

4. Setelah memasukkan tombol, Anda harus keluar dari mode desain dengan mengklik Pengembang > Mode Desain.

Kedua, buat kode VBA.

5. Dan kemudian, klik kanan tab lembar kerja saat ini, dan pilih Lihat kode, di munculkan Microsoft Visual Basic untuk Aplikasi jendela, harap salin dan tempel kode berikut ke dalam Kode Lembar:

Kode VBA: Buat stopwatch:

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 buat stopwatch 6

Note: Pada kode di atas, C2 adalah sel tempat waktu stopwatch akan dimasukkan, dan Tombol Perintah1, Tombol Perintah2, Tombol Perintah3 adalah nama tombol, Anda dapat melihat nama tombol yang tepat dari nama Box, lihat tangkapan layar:

doc buat stopwatch 7

Ketiga, format sel waktu stopwatch.

6. Maka Anda harus memformat sel waktu sebagai Teks format, dan Anda dapat mengubah ukuran sel, font, warna font, latar belakang, dll sesuai kebutuhan, lihat tangkapan layar:

doc buat stopwatch 8

7. Setelah menyelesaikan langkah-langkah di atas, mulai sekarang, saat Anda mengklik Start tombol, waktu akan mulai sekarang, dan klik berhenti tombol, itu akan menghentikan waktu, itu ulang tombol akan mengatur ulang waktu, lihat tangkapan layar:

doc buat stopwatch 9


Demo: Buat stopwatch dengan tiga tombol dengan menggunakan kode VBA

Alat Produktivitas Kantor Terbaik

🤖 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (32)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
One has to paste the VBA code to the Sheet's VBA space, not to the Module!

=> I suggest correcting, in the article, the "copy and paste the following code into the Module" -> replace Module with Sheet's VBA field, or sth

Otherwise, perfect, thanks!
This comment was minimized by the moderator on the site
Hello, Florian,

Thanks for your comment, we have updated the content for this article.
Thanks again! 😀
This comment was minimized by the moderator on the site
i started. it works. but it doesn't work when i close and open the excel file again. what must i do?
This comment was minimized by the moderator on the site
Hello, mustafa zirek
After inputing the code, you should save the workbook as Excel Macro-Enabled Workbook format, and when you open the workbook next time, please click the Enable Content above the formula bar to activate the code.
Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
Hi! Thank you for this, how do I make it so it populates time in subsequent cells, ex. start/stop time for cell C2, then a different start/stop time for cell c3, c4, c5 etc 
This comment was minimized by the moderator on the site
Bonjour, j'ai voulu intégrer ce chronomètre à une autre macro, déterminer le temps d'utilisation du fichier. La macro se lance mais bloque l'utilisation du fichier.Comment faire pour utiliser votre chronomètre en même temps que d'autres codes VBA?MerciHenry.
This comment was minimized by the moderator on the site
Is it possible to use a combobox or a dropdown selection to start and stop the clock
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations