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

Bagaimana cara memasukkan penghitung waktu mundur di Excel?

Jika Anda ingin menangani beberapa data dalam waktu terbatas, Anda dapat memasukkan penghitung waktu mundur di lembar kerja data Anda, dan ketika selesai hitungan mundur waktu, akan ada dialog yang muncul untuk mengingatkan Anda. Di sini saya akan memberi tahu Anda kode VBA untuk memasukkan penghitung waktu mundur di Excel.

Masukkan penghitung waktu mundur di Excel

Tab Office Mengaktifkan Pengeditan dan Penjelajahan Tab di Office, dan Jadikan Pekerjaan Anda Lebih Mudah ...
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
  • Gunakan Kembali Apa Pun: Tambahkan rumus, bagan, dan hal lain yang paling sering digunakan atau rumit ke favorit Anda, dan gunakan kembali dengan cepat di masa mendatang.
  • Lebih dari 20 fitur teks: Ekstrak Nomor dari String Teks; Ekstrak atau Hapus Bagian dari Teks; Ubah Angka dan Mata Uang ke Kata Bahasa Inggris.
  • Gabungkan Alat: Beberapa Buku Kerja dan Lembar menjadi Satu; Gabungkan Beberapa Sel / Baris / Kolom Tanpa Kehilangan Data; Gabungkan Baris dan Jumlah Duplikat.
  • Alat Pisah: Membagi Data Menjadi Beberapa Lembar Berdasarkan Nilai; Satu Buku Kerja ke Beberapa File Excel, PDF atau CSV; Satu Kolom ke Beberapa Kolom.
  • Tempel Melewati Baris Tersembunyi / Difilter; Hitung Dan Jumlah dengan Warna Latar Belakang; Kirim Email Hasil Personalisasi ke Beberapa Penerima secara Massal.
  • Filter Super: Buat skema filter tingkat lanjut dan terapkan ke setiap lembar; Jenis menurut minggu, hari, frekuensi, dan lainnya; SARING dengan tebal, rumus, komentar ...
  • Lebih dari 300 fitur canggih; Bekerja dengan Office 2007-2021 dan 365; Mendukung semua bahasa; Penerapan yang mudah di perusahaan atau organisasi Anda.

panah gelembung kanan biru Masukkan penghitung waktu mundur di Excel

Di Excel, tidak dapat menghitung waktu mundur, tetapi Anda dapat menyalin kode VBA berikut untuk membantu menghitung mundur waktu.

1. Pilih sel dan format sebagai format waktu dengan mengklik kanan pada sel dan memilih Format Cells, lalu di dialog, mengklik Waktu dan memilih 13: 30: 55 dalam Tipe daftar, pada klik terakhir OK untuk keluar dari dialog ini. Lihat tangkapan layar:

doc-hitung mundur-timer-1
doc-panah
doc-hitung mundur-timer-2

2. Ketik waktu yang Anda inginkan untuk hitung mundur ke dalam sel format. Lihat tangkapan layar:

doc-hitung mundur-timer-5

3. tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

4. klik Menyisipkan > Modul lalu salin mengikuti VBA ke jendela baru.

VBA: Penghitung waktu mundur.

Dim gCount As Date
'Updateby20140925
Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"
End Sub
Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("E1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
    MsgBox "Countdown complete."
    Exit Sub
End If
Call Timer
End Sub

jenis: E1 pada kode di atas menunjukkan sel waktu yang Anda ketik di langkah 2.

5. klik Run tombol atau tekan F5 untuk menjalankan penghitung waktu mundur. Sekarang waktu dihitung mundur.

doc-hitung mundur-timer-3

6. Dan saat hitungan mundur selesai, dialog yang muncul akan mengingatkan Anda.

doc-hitung mundur-timer-4

jenis: Anda tidak bisa menghentikan hitungan mundur saat berjalan kecuali menutup buku kerja.


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 (15)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Halo, bagaimana kita bisa menggunakannya untuk lebih dari 1 hitungan mundur di lembar yang sama?
Komentar ini diminimalkan oleh moderator di situs
halo, bagaimana saya bisa menghitung mundur lebih dari 1 nilai?
Komentar ini diminimalkan oleh moderator di situs
Ini tidak menjelaskan bagaimana penghitung waktu dimulai, apakah itu dimulai segera setelah Anda membuka lembaran? Saya mencari untuk melihat apakah ketika saya menambahkan nilai 100 untuk mengatakan sel "A1" penghitung waktu mundur akan dimulai pada sel "G2" (mungkin berkedip atau berubah menjadi merah selama 30 detik terakhir untuk menunjukkan urgensi) dan saya ingin itu berhenti ketika saya masukkan nilai dalam rentang sel (B2:C57) atau jika tidak ada nilai yang dimasukkan dalam sel tersebut hentikan dengan mengklik sel "A1" lagi atau mengklik kanan pada hitungan mundur pada sel "G2", saya juga akan ingin mendapatkan hasil tentang berapa lama waktu yang dibutuhkan untuk memasukkan nilai pada sel rentang B2:C57 menggunakan perbedaan antara waktu mulai dan waktu berhenti pada sel yang menyusun ke sel rentang, seperti D2. Tidak yakin apakah ini semua masuk akal, tetapi saya sangat membutuhkan bantuan untuk itu. Idenya adalah ketika seseorang menerima panggilan, tandai pada lembar jumlah pada akun dan hitungan mundur dimulai sehingga mereka tahu berapa lama mereka menelepon. Jika mereka mengambil pembayaran pada jumlah di akun, mereka akan menambahkannya ke sel lain dan lembar itu kemudian akan menambahkan berapa lama waktu yang mereka butuhkan untuk mendapatkan pembayaran itu di sel lain dan prosesnya akan terus berlanjut setiap kali mereka mengambil panggilan baru. Tetapi hanya satu sel yang akan memulai proses setiap waktu. Saya sudah memiliki VBA yang memasukkan nama pengguna dan ketika lembar sudah penuh mereka dapat mengklik tombol kirim dan itu akan mengirim email kepada saya dengan subjek dan tanggal dan menghapus semua keseluruhan sehingga mereka dapat memulai lagi keesokan harinya. Saya ingin menambahkan hak di atas ke dalam VBA yang ada ini jika memungkinkan, dengan begitu saya tidak perlu menambahkan modul lain. Dapatkah seseorang Membantu saya dengan ini, memandu saya langkah demi langkah? VBA saya atau keterampilan program apa pun sangat terbatas.
Komentar ini diminimalkan oleh moderator di situs
Halo Jose, saya perhatikan penulis tidak menanggapi komentar Anda, saya baru saja menemukan postingnya dan berpikir saya akan membantu Anda jika Anda masih membutuhkannya. Untuk memicu pengatur waktu, Anda perlu memanggil sub prosedur, jadi mari kita asumsikan Anda memiliki sub di lembar kerja Anda yang memeriksa setiap perubahan pada sel A1, contoh:


########
Sub Worksheet_Change (Target ByVal Sebagai Rentang)


Redupkan rInt Sebagai Rentang: Atur rInt = Intersect(Target, Range("A1"))


Jika Tidak rInt Bukan Apa-apa Maka


Pada Kesalahan GoTo Err:
Redupkan i Sebagai Integer: i = Me.Range("A1").Nilai


Jika tidak IsEmpty(vCell) Lalu
Call Timer <<< Di sinilah Anda memanggil timer
End If


End If
Keluar dari Sub
Berbuat salah:
MsgBox "Hanya Bilangan Bulat"
End Sub
########


Prosedur Sub "Timer" digunakan untuk mengatur acara, pada dasarnya kami ingin ini berjalan setiap 1 detik di masa mendatang, itulah sebabnya kami menggunakan sekarang + TimeValue("00:00:01"), jika Anda ingin memperbarui timer di sel Anda setiap dua detik atau setiap menit, Anda menyesuaikan TimeValue yang sesuai.


Sub prosedur "ResetTime" adalah di mana kita melakukan semua angkat berat, dalam sub prosedur ini, jika Anda ingin mengubah warna timer menjadi merah, setelah mencapai 30 detik, Anda dapat melakukannya dengan menambahkan pernyataan if sederhana, seperti yang sudah ada dalam prosedur.


Jika xRng.Value <= 30 Maka
xRng.Font.Color = vbRed
End If
Komentar ini diminimalkan oleh moderator di situs
Anda perlu memanggil Sub prosedur "Timer", ini biasanya dilakukan dengan memanggilnya di dalam Sub/Fungsi lain jika Anda ingin hitung mundur dimulai setelah Anda memasukkan nilai ke dalam sel "A1" dan berhenti ketika Anda memasukkan data ke rentang lain, maka Anda perlu mendengarkan perubahan pada sel-sel itu dan membuat boolean untuk sub prosedur Timer, sehingga ia tahu kapan harus berhenti, untuk melakukan ini buat sub prosedur "Worksheet_Change", ini akan mendengarkan lembar kerja untuk setiap perubahan, kami kemudian buat daftar putih rentang yang akan menjalankan kode kita.


Sub Worksheet_Change (Target ByVal Sebagai Rentang)

'Nilai default Boolean
Redupkan TimerActive Sebagai Boolean: TimerActive = True

'Di sinilah kami memanggil Timer dan menetapkan nilai kami di G2
Jika Tidak Berpotongan(Target, Rentang("A1")) Tidak Ada Apa-apanya

Jika IsEmpty(Target) Kemudian TimerActive = False: Keluar Sub

Pada Kesalahan GoTo Errr:

Redupkan i Sebagai Integer: i = Target

Me.Range("G2").Nilai = i

Panggil Timer

ElseIf Not Intersect(Target, Range("B2:C57")) Tidak Ada Apa-apanya

TimerActive = Salah

Jika IsEmpty (Target) Kemudian Keluar Sub

'Tambahkan lebih banyak kode di sini jika diperlukan

End If

'Pemrosesan kesalahan
Keluar dari Sub
Err:
MsgBox "A1 Harus bilangan bulat"

End Sub

Saya juga menyertakan kemampuan untuk menghapus nilai di A1, yang juga akan menghentikan hitungan mundur, sekarang, di sub prosedur "Timer", di awal buat pernyataan if untuk memeriksa apakah boolean "TimerActive" kita sama dengan False, if tidak maka kita perlu Keluar Sub. Untuk mengubah warna Timer saat menghitung mundur, Anda perlu mengedit subprosedur "ResetTimer", dan menambahkan pernyataan if, mirip dengan yang sudah ada, "Jika xRng <= 30", di dalam pernyataan itu kami menambahkan warna yang kami ingin menggunakan "xRng.Font.Color = vbRed" Anda juga dapat mengubah warna menggunakan "xRng.Font.Color = RGB(0,0,0)", lakukan hal yang sama pada prosedur "Timer" untuk mengatur ulang warna, lakukan ini sebelum pernyataan boolean if, sehingga warna selalu kembali ke default, bahkan ketika dihentikan secara manual.
Komentar ini diminimalkan oleh moderator di situs
Untuk menghentikan penghitung waktu ketika Anda memasukkan nilai ke dalam sel tertentu, Anda akan menggunakan "Worksheet_Change", cukup sertakan rentang yang ingin Anda dengarkan, Anda juga harus membuat boolean global sehingga ketika Anda mengubah apa pun dalam rentang sel, itu akan menyetel boolean ini ke false, jadi lain kali ia melompat ke sub prosedur "Waktu", itu akan memeriksa untuk melihat apakah boolean itu salah, jika Anda menambahkan "Jika TimerActive = False Then Exit Sub", di awal sub "Timer", itu akan keluar jika boolean itu mengembalikan false.




Kemudian di dalam "Worksheet_Change" Anda ingin menambahkan "TimerActive = True" di awal kode, dan sesuatu seperti kode berikut di mana saja.

Jika Tidak Berpotongan(Target, Rentang("B2:C57")) Tidak Ada Apa-apanya
TimerActive = Salah
End If
Komentar ini diminimalkan oleh moderator di situs
SELAMAT HARI GUYS
Tolong saya perlu membuat penghitung waktu di lembar Excel saya dalam bentuk yang akan menghitung mundur ke tertentu misalnya 45 hari setiap 5 hari itu memberikan pengingat pada lembar dengan warna tertentu untuk setiap hitungan mundur. saya membutuhkannya secepatnya.
Komentar ini diminimalkan oleh moderator di situs
saya ingin mendapatkan sekitar 100 pembacaan waktu henti ke lembar excel saya. tolong bantu saya. mustahil untuk menulis kode untuk sirkuit i2c. saya tidak ingin tampilan yang dipimpin. tolong bantu saya
Komentar ini diminimalkan oleh moderator di situs
hai timer berjalan sekarang. masalahnya berhenti secara otomatis saat menggunakan buku kerja lain. bagaimana saya bisa tetap berjalan?
Komentar ini diminimalkan oleh moderator di situs
Tidak ada entiendo cómo tengo que solucionar para que el cronómetro mno se pare cuando introduzco un valor. Si se para al trabajar en el excel, para que quiero un cronómetro y paraquesirve el boton parar? Gracias
Komentar ini diminimalkan oleh moderator di situs
Halo, ada masalah dengan program ini ketika mobil avanza temporer dalam 2 detik dan no 1, yang dapat dilakukan??
Komentar ini diminimalkan oleh moderator di situs
Setelah menjalankan kode itu memberikan kesalahan on line

xRng.Nilai = xRng.Nilai - TimeSerial(0, 0, 5)

Kesalahan waktu proses '1004':
Kesalahan yang ditentukan aplikasi atau objek yang ditentukan
Komentar ini diminimalkan oleh moderator di situs
Hai, MAB, Anda harus memastikan bahwa referensi sel dalam kode Rentang("E1") harus sama dengan referensi sel yang dimasukkan waktu. Silakan lihat screenshot, sel A1 berisi waktu, tetapi dalam kode B1, kemudian muncul kesalahan.
Komentar ini diminimalkan oleh moderator di situs
ейка описана авильно. ем а еработоспособности?
е он олжен ать ейку R3. Jawaban: Set xRng = Application.ActiveSheet.Range("R3") Catatan: Run time error 1004.
о ожет е ак?
Komentar ini diminimalkan oleh moderator di situs
Hai, Anda dapat mencoba memeriksa opsi Aktifkan makro VBA di Pusat Kepercayaan sebelum menjalankan kode.
Klik File > Opsi, di jendela Opsi Excel, pilih Pusat Kepercayaan dari panel kiri, lalu buka jendela Pusat Kepercayaan, pilih Pengaturan Makro, dan temukan opsi ini Aktifkan makro VBA , centang, dan klik OK > OK.
https://www.extendoffice.com/images/stories/comments/sun-comment/doc-vba-setting.png
Belum ada komentar yang diposting di sini
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