Daftar Isi:
- Acara OnTime
- Saat Anda bekerja, Excel terus memantau jenis yang Anda ketik. Karena itu, Anda dapat mengatur semuanya sehingga penekanan tombol atau kombinasi tombol menjalankan prosedur.
Video: Visual Basic .NET Tutorial 21 - How to use Timer Control in VB.NET 2024
Ada dua jenis acara yang dapat Anda gunakan dalam pemrograman VBA untuk Excel 2016 yang tidak terkait dengan objek: waktu dan penekanan tombol. Karena waktu dan penekanan tombol tidak terkait dengan objek tertentu seperti buku kerja atau lembar kerja, Anda memprogram kejadian ini dalam modul VBA normal.
Acara OnTime
Peristiwa OnTime terjadi saat waktu tertentu terjadi. Contoh berikut menunjukkan bagaimana mendapatkan Excel untuk menjalankan prosedur saat 3 p. m. acara terjadi Dalam kasus ini, suara robot memberitahu Anda untuk bangun, disertai dengan kotak pesan:
Sub SetAlarm () Aplikasi. OnTime 0. 625, "DisplayAlarm" End Sub Sub DisplayAlarm () Aplikasi. Pidato. Bicaralah ("Hei, bangunlah") MsgBox "Sudah waktunya untuk istirahat soremu! "End Sub
Dalam contoh ini, metode OnTime dari objek Aplikasi digunakan. Metode ini mengambil dua argumen: waktu (0. 625 atau 3: 00 p. M.) Dan nama prosedur Sub untuk dijalankan saat kejadian terjadi (DisplayAlarm).
Prosedur ini cukup berguna jika Anda cenderung terbungkus dalam pekerjaan sehingga Anda melupakan pertemuan dan janji temu. Cukup atur acara OnTime untuk mengingatkan diri sendiri.
Kebanyakan orang merasa sulit untuk memikirkan waktu dalam hal sistem penomoran Excel. Oleh karena itu, Anda mungkin ingin menggunakan fungsi TimeValue VBA untuk mewakili waktu. TimeValue mengubah string yang terlihat seperti waktu menjadi nilai yang bisa ditangani Excel. Pernyataan berikut menunjukkan cara yang lebih mudah untuk memprogram sebuah acara selama 3 hal. m.:
Aplikasi OnTime TimeValue ("3: 00: 00 pm"), "DisplayAlarm"
Jika Anda ingin menjadwalkan acara relatif terhadap waktu saat ini (misalnya, 20 menit dari sekarang), Anda dapat menggunakan pernyataan seperti ini: < Aplikasi OnTime Now + TimeValue ("00: 20: 00"), "DisplayAlarm"
Anda juga dapat menggunakan metode OnTime untuk menjalankan prosedur VBA pada hari tertentu. Anda harus memastikan komputer Anda terus berjalan dan buku kerja dengan prosedur tetap terbuka. Pernyataan berikut menjalankan prosedur DisplayAlarm pada 5 hal. m. pada tanggal 31 Desember 2016:
Aplikasi. OnTime DateValue ("12/31/2016 5:00 pm"), "DisplayAlarm"
Baris kode khusus ini bisa berguna untuk memperingatkan Anda bahwa Anda harus pulang dan bersiap-siap untuk perayaan Tahun Baru.
Berikut contoh lain yang menggunakan acara OnTime. Melaksanakan prosedur UpdateClock menulis waktu ke sel A1 dan juga memprogram acara lain lima detik kemudian.Acara ini memutar ulang prosedur UpdateClock. Efek bersihnya adalah sel A1 diperbarui dengan waktu sekarang setiap lima detik. Untuk menghentikan acara, jalankan prosedur StopClock (yang membatalkan acara). Perhatikan bahwa NextTick adalah variabel tingkat modul yang menyimpan waktu untuk acara berikutnya.
Dim NextTick As Date Sub UpdateClock () 'Memperbarui sel A1 dengan waktu sekarang ThisWorkbook. Lembar (1). Range ("A1") = Waktu 'Set up event berikutnya lima detik dari sekarang NextTick = Now + TimeValue ("00: 00: 05") Application. OnTime NextTick, "UpdateClock" End Sub Sub StopClock () 'Membatalkan acara OnTime (menghentikan jam) Pada Error Resume Next Application. OnTime NextTick, "UpdateClock", False End Sub
Acara OnTime berlanjut bahkan setelah buku kerja ditutup. Dengan kata lain, jika Anda menutup buku kerja tanpa menjalankan prosedur StopClock, buku kerja akan dibuka kembali dalam lima detik (dengan asumsi Excel masih berjalan). Untuk mencegah hal ini, gunakan prosedur Workbook_Beforeclose event yang berisi pernyataan berikut:
Call StopClock
Metode OnTime memiliki dua argumen tambahan. Jika Anda berencana untuk menggunakan metode ini, Anda harus merujuk ke sistem Bantuan untuk rincian lengkap.
Jika Anda ingin melihat aplikasi yang agak rumit, lihat aplikasi jam analog ini. Tampilan jam sebenarnya adalah bagan, dan bagan diperbarui setiap detik untuk menampilkan waktu dalam sehari. Tak ada gunanya, tapi menyenangkan.
Aplikasi jam analog.
Saat Anda bekerja, Excel terus memantau jenis yang Anda ketik. Karena itu, Anda dapat mengatur semuanya sehingga penekanan tombol atau kombinasi tombol menjalankan prosedur.
Berikut adalah contoh yang menugaskan tombol PgDn dan PgUp:
Sub Setup_OnKey () Application. Aplikasi OnKey "{PgDn}", "PgDn_Sub". OnKey "{PgUp}", "PgUp_Sub" End Sub Sub PgDn_Sub () Pada Error Resume Next ActiveCell. Offset (1, 0). Aktifkan End Sub Sub PgUp_Sub () Pada Error Resume Next ActiveCell. Offset (-1, 0). Aktifkan End Sub
Setelah menyiapkan acara OnKey dengan menjalankan prosedur Setup_OnKey, menekan tombol PgDn untuk menurunkan satu baris. Menekan PgUp membuat Anda bergerak satu baris.
Perhatikan bahwa kode kunci dilekatkan pada kawat gigi, bukan dalam tanda kurung. Untuk daftar lengkap kode keyboard, lihat sistem Bantuan. Pencarian untuk
OnKey. Dalam contoh ini, On Error Resume Next digunakan untuk mengabaikan kesalahan yang dihasilkan. Misalnya, jika sel aktif berada di baris pertama, mencoba untuk naik satu baris menyebabkan kesalahan yang bisa diabaikan dengan aman. Dan jika lembar grafik aktif, tidak ada sel aktif.
Dengan melakukan rutinitas berikut, Anda membatalkan acara OnKey:
Sub Cancel_OnKey () Application. Aplikasi OnKey "{PgDn}". OnKey "{PgUp}" End Sub
Dengan menggunakan string kosong sebagai argumen kedua untuk metode OnKey tidak
tidak membatalkan event OnKey. Sebaliknya, ini menyebabkan Excel mengabaikan begitu saja keystroke. Sebagai contoh, pernyataan berikut memberitahu Excel untuk mengabaikan Alt + F4. Tanda persen mewakili tombol Alt: Application.OnKey "% {F4}", ""
Meskipun Anda dapat menggunakan metode OnKey untuk menetapkan tombol cara pintas untuk menjalankan makro, Anda harus menggunakan kotak dialog Makro Options untuk tugas ini.
Jika Anda menutup buku kerja yang berisi kode dan membiarkan Excel terbuka, metode OnKey tidak akan diatur ulang. Sebagai konsekuensinya, menekan tombol shortcut akan menyebabkan Excel membuka file secara otomatis dengan makro. Untuk mencegah hal ini terjadi, Anda harus menyertakan kode di kode Workbook_BeforeClose event untuk mengatur ulang acara OnKey.
