Note: The other languages of the website are Google-translated. Back to English

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.

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 Modul:

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 for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (30)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas postingan ini, sangat membantu. Namun, apakah ada cara untuk mengubah kode agar timer tidak berhenti saat sel sedang diedit? Idealnya saya ingin menekan "Mulai," membuat sejumlah perubahan pada rentang sel pada tab yang sama, lalu tekan "Berhenti" untuk total waktu yang telah berlalu. Setiap saran tentang ini akan sangat dihargai!
Komentar ini diminimalkan oleh moderator di situs
apakah Anda pernah memikirkan yang satu ini? Saya juga perlu menjaga penghitung waktu tetap berjalan sementara perubahan lain sedang dilakukan di spreadsheet yang sama. terima kasih. mike
Komentar ini diminimalkan oleh moderator di situs
Ini sangat membantu dan sangat mudah untuk mengikuti langkah-langkahnya.
Komentar ini diminimalkan oleh moderator di situs
Telah mencoba membuat stop watch menggunakan kode yang sama di Formulir. Timer mulai baik-baik saja tetapi tidak berhenti. Tolong sarankan cara mereplikasi yang sama dalam bentuk
Komentar ini diminimalkan oleh moderator di situs
Coba XNote Stopwatch.
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk membuat penghitung waktu menghitung naik atau turun ke waktu tertentu? Saya ingin menyimpan tombol mulai, berhenti, dan setel ulang, tetapi saya membutuhkannya untuk menghitung hingga satu menit satu detik saja, setelah saya menekan mulai. Atau hitung mundur dari satu menit satu detik ke nol (01:01). Terima kasih atas bantuan Anda!
Komentar ini diminimalkan oleh moderator di situs
Hai, Melisa,
jika Anda perlu membuat penghitung waktu mundur di lembar kerja, semoga artikel berikut dapat membantu Anda!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
Komentar ini diminimalkan oleh moderator di situs
Halo,

Saya memang melihat artikel itu, tetapi saya membutuhkannya agar terlihat persis seperti stopwatch di halaman ini, tetapi saya hanya membutuhkannya untuk menghitung mundur dari satu menit satu detik. Saya membutuhkannya untuk ditampilkan dalam bentuk stopwatch, tetapi berfungsi sebagai hitungan mundur. Ada saran lebih lanjut?


Terima kasih untuk balasannya!
Komentar ini diminimalkan oleh moderator di situs
Ini untuk papan skor yang kami rancang di excel.
Komentar ini diminimalkan oleh moderator di situs
Bagus, tetapi apakah mungkin menjalankan 2 jam di lembar yang sama? telah membuat jam kedua dengan tombol start, stop dan reset yang baru, tetapi ketika memulai jam kedua, yang pertama berhenti ....
Komentar ini diminimalkan oleh moderator di situs
sama di sini dapatkah Anda menemukan obatnya?
Komentar ini diminimalkan oleh moderator di situs
Halo teman teman,
Metode ini hanya diterapkan pada satu set tombol di lembar kerja.
Jika ada ide bagus lainnya, silakan komentar di sini.
Komentar ini diminimalkan oleh moderator di situs
Apakah mungkin untuk secara otomatis menghentikan pengatur waktu ketika layar terkunci dan memulai pengatur waktu secara otomatis ketika kita membuka kunci komputer?
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara agar pengatur waktu mengatur ulang hitungan ke nol tetapi tetap menjalankan pengatur waktu? Yaitu. Ketika saya menekan Reset, saya tidak ingin harus menekan Start lagi untuk waktu yang tepat.
Komentar ini diminimalkan oleh moderator di situs
Hai, Saya menggunakan sumbat ini tetapi cukup sering angka-angka di sel tampilan ("C2") mulai keluar dan padam - mereka menunjukkan tanda minus, angkanya salah dan hitungannya hilang. Biasanya terjadi setelah sekitar satu jam atau lebih tetapi kadang-kadang bahkan sebelum satu jam berlalu. Apakah ini bug umum? dan jika ya, apakah ada cara untuk memperbaikinya? Saya memang menghapus .00 (yaitu milidetik) dari kode hanya dengan menghapus: & "." & Format (0, "00") baris di mana pun itu muncul - apakah itu ada hubungannya dengan masalah ini?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas tip Anda, Itu berjalan dengan lancar tetapi ketika saya memasukkan data apa pun di lembar ini Itu berhenti berjalan, Kami membutuhkannya terus berjalan sementara masukan data Bagaimana kami dapat memperbaiki masalah ini?
Komentar ini diminimalkan oleh moderator di situs
Halo, Nhoeun,
Mungkin ada di sana dengan cara yang tidak baik untuk memecahkan masalah Anda. Saat Anda mengedit sel, itu akan mengganggu makro yang sedang dijalankan.
Jika Anda memiliki metode lain yang bagus, silakan beri komentar di sini!
Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
HAI. Saya telah membuat stopwatch, tetapi harus dapat memiliki berbagai interval antara mulai dan berhenti untuk disimpan agar dapat mencerminkannya sebagai studi waktu dan gerak. Adakah tips tentang cara melakukannya?
Komentar ini diminimalkan oleh moderator di situs
Selesai semua langkah tetapi mengklik tombol mulai memberikan pesan kesalahan "Tidak dapat menjalankan makro" 'file.xlsm'!CommandButton1". Makro mungkin tidak tersedia di buku kerja ini atau semua makro mungkin dinonaktifkan.". Semua makro telah diaktifkan, makro ada di Modul1. CATATAN: Saya menjalankan Office 2019 untuk Mac sehingga bisa menjadi masalah....
Komentar ini diminimalkan oleh moderator di situs
Bagaimana kalau menambahkan fitur "+10s" & "2x Speed" dalam kode ini?
Komentar ini diminimalkan oleh moderator di situs
apakah 'timer' adalah variabel di sini? tidak melihat relevansinya dalam kode.
Komentar ini diminimalkan oleh moderator di situs
Apakah mungkin agar penghitung hanya menghitung detik?
Jadi ketika mencapai 59 detik, dilanjutkan dengan 60, 61, 62, 63 ....
Komentar ini diminimalkan oleh moderator di situs
Halo
Telah mengikuti langkah-langkah tetapi tidak bisa mendapatkan waktu untuk muncul di sel pengatur waktu. Saya telah menyalin kode tetapi dapatkah saya memeriksa 1. Bahwa nomor baris tidak diperlukan atau mereka2. Bahwa saya memasukkan kode ke modul 1 bukan sheet1 atau Buku kerja ini3. Haruskah ada makro yang terdaftar dalam daftar makro setelah melakukan semua ini - milik saya tidak.
Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Hai, Janice, Anda harus memasukkan kode ke modul lembar aktif Anda sebagai langkah 5.
5. Dan kemudian, klik kanan tab lembar kerja saat ini, dan pilih Lihat Kode, di jendela Microsoft Visual Basic for Applications yang muncul, silakan salin dan tempel kode berikut ke dalam Modul.

Dan Anda harus mengubah nama tombol menjadi milik Anda sendiri.
Catatan: 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 Kotak Nama.

Silakan periksa mereka, terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Ini brilian! Terima kasih, Chris H
Komentar ini diminimalkan oleh moderator di situs
Apakah mungkin menggunakan kotak kombo atau pilihan tarik-turun untuk memulai dan menghentikan jam
Komentar ini diminimalkan oleh moderator di situs
Bonjour, j'ai voulu integrer 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 pilih chronomètre en même temps que d'autres codes VBA?MerciHenry.
Komentar ini diminimalkan oleh moderator di situs
Hai! Terima kasih untuk ini, bagaimana cara membuatnya sehingga mengisi waktu di sel berikutnya, mis. waktu mulai/berhenti untuk sel C2, lalu waktu mulai/berhenti yang berbeda untuk sel c3, c4, c5 dll 
Belum ada komentar yang diposting di sini
Muat Lebih
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL