Fungsi Excel VBA TIMER
VBA Timer adalah fungsi bawaan yang digunakan untuk memberi kita nilai pecahan detik, ini adalah fungsi yang sangat berguna yang kadang-kadang digunakan untuk menjeda rangkaian kode yang berjalan atau melanjutkannya berdasarkan waktu yang disediakan oleh pengguna, pengatur waktu cukup digunakan sebagai pernyataan di VBA dengan masukan waktu.
Secara sederhana, PENGATUR WAKTU memberikan jumlah total detik yang hilang dari tengah malam pada hari ini. Langsung dari baris pertama kode, kita sebenarnya dapat melacak waktu yang dikonsumsi oleh kode kita untuk menyelesaikan proses yang ditentukan dalam subprocedure.
Kadang-kadang ketika Anda menulis kode dan Anda ingin menguji durasi kode, yaitu, berapa total waktu yang dibutuhkan oleh kode Anda untuk menyelesaikan subprocedure. Dengan menguji durasi aktual yang diambil oleh kode Anda, Anda dapat membuat kode Anda efisien dan menghilangkan proses yang memakan waktu dengan menghapus kode yang tidak diinginkan atau panjang dari modul Anda.
Bagaimana cara menggunakan Fungsi TIMER di VBA?
Seperti yang saya katakan fungsi TIMER kembali, total detik telah lewat dari tengah malam pada tanggal saat ini. Saat saya menulis artikel ini, waktu 13:50:45 di India.
Saya telah membuat nama makro dan menetapkan nilai TIMER di kotak pesan VBA.
Kode:
Sub Timer_Contoh1 () MsgBox Timer End Sub
Ketika saya menjalankan kode ini, saya mendapatkan hasil sebagai 50480.08.
Ini adalah total detik yang berlalu dari tengah malam hari ini, yaitu dari jam 12.00.
Jadi dari tengah malam 12 hingga waktu saat ini 14:01:20, total 14 jam 1 menit, 20 detik berlalu. Dalam hitungan detik, nilainya sama dengan 50480.08, yang diberikan oleh fungsi TIMER kami.
Contoh
Contoh # 1 - Hitung Total Waktu yang Diperlukan oleh Kode Anda
Sekarang kita akan melakukan beberapa pengkodean sederhana untuk menguji waktu yang dibutuhkan oleh VBA untuk menjalankan prosedur. Saya telah menulis beberapa kode, seperti yang ditunjukkan pada gambar di bawah ini.
Kode:
Sub Do_Until_Example1 () Dim ST As Single ST = Timer Dim x Selama x = 1 Lakukan Hingga x = 100000 Sel (x, 1). Nilai = xx = x + 1 Loop MsgBox Timer - ST End Sub
Jika saya menjalankan kode ini sekarang, ini akan menunjukkan kepada saya total waktu yang dibutuhkan oleh VBA untuk mengeksekusi.
Tercantum 3.058594. Hasil yang diberikan oleh fungsi ini adalah dalam hitungan detik, yaitu total waktu yang dibutuhkan oleh kode ini adalah 3.058 detik.
Agar Anda dapat menggunakan kode tersebut, saya telah menulis kode di bawah ini untuk Anda.
Kode:
Sub Timer_Example1 () Dim StartingTime As Single StartingTime = Timer 'Masukkan kode Anda di sini' Masukkan kode Anda di sini 'Masukkan kode Anda di sini' Masukkan kode Anda di sini MsgBox Timer - StartingTime End Sub
Gunakan kode di atas dan ketikkan kode Anda setelah kode StartingTime = Timer, tetapi sebelum kode MsgBox Timer - StartingTime, yaitu di area hijau, Anda perlu memasukkan kode Anda.
Penjelasan: Pertama, variabel StartingTime = Timer artinya pada saat dijalankan kode sama dengan waktu yang telah berlalu dari tengah malam hingga waktu berjalan kode.
Timer - StartingTime: Artinya setelah menjalankan kode, berapa waktu yang berlalu dikurangi waktu yang dicatat di awal kode melalui waktu mulai variabel .
Ini akan memberikan perbedaan antara waktu mulai dan berakhir dan mengembalikan hasilnya.
Contoh # 2 - Tunjukkan Hasil dalam Format Waktu yang Benar
Seperti yang telah kita lihat, hasil yang diberikan oleh fungsi dalam hitungan detik tetapi tidak dalam format yang akurat. Namun, kita bisa menerapkan format waktu VBA ke hasil akhir dengan menggunakan fungsi FORMAT.
Gunakan kode di bawah ini untuk melihat hasil dalam format waktu yang benar, yaitu format “hh: mm: ss”.
Saya telah menggunakan fungsi FORMAT di sini. Hasilnya diberikan oleh (Timer - waktu mulai). Saya telah membaginya dengan angka 86400 untuk mengubahnya menjadi detik sesuai aturan format waktu, kemudian saya telah menerapkan format waktu dalam format jam, menit, dan detik.
Nah, jika saya menjalankan kodenya, maka akan memberikan hasil seperti ini.
Jadi total waktu yang dibutuhkan oleh kode tersebut adalah 3 Detik.
Keindahan kode ini adalah saat melewati 60 detik; itu akan menunjukkan hasilnya dalam beberapa menit. Saya telah menghentikan kode saya selama satu menit (menggunakan Ctrl + Break) dan melihat hasilnya.
Jadi total waktu yang dibutuhkan oleh kode ini sekarang 1 menit 2 detik.
Contoh # 3 - Kode Alternatif untuk Timer
Ada alternatif untuk TIMER dengan menggunakan fungsi SEKARANG () . Di bawah ini adalah kode alternatif.
Hal-hal untuk diingat
- Fungsi TIMER akan menghentikan nilai di penghujung hari, yaitu pada 11:59:59 PM.
- Fungsi SEKARANG mengembalikan tanggal dan waktu sekarang.
- TIMER menunjukkan total detik yang berlalu dari tanggal tengah malam saat ini.
