Bagaimana cara membuat stopwatch di lembar kerja Excel?
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.
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:
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:
 |
 |
 |
3. Ulangi dua langkah di atas untuk memasukkan dua tombol lainnya dan beri judul sebagai "berhenti"Dan"ulang”, Lihat tangkapan layar:
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
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:
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:
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:
Demo: Buat stopwatch dengan tiga tombol dengan menggunakan kode VBA
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda 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!
