Minggu, 08 Juni 2014

Membuka atau Menutup UserForm Dalam Waktu Tertentu

Metode OnTime
Dalam kondisi tertentu barangkali kita menginginkan agar UserForm, perintah, atau code dijalankan dalam waktu tertentu, sehingga pengguna tidak perlu untuk mengeksekusi menggunakan perintah-perintah lain. dan dalam tutorial ini kita menggunakan UserForm sebagai bahan percobaan.

Perintah utama dalam menjalankan kondisi ini adalah menggunakan metode
Application.OnTime kode inilah yang kemudian dimasukkan dalam sebuah Module untuk berikutnya dijalankan.

contoh penggunaannya dalam sebuah module
Sub X ()
Application.OnTime Now + TimeValue ("00:00:05"), "Perintah_Lain"
End Sub
Application.Ontime :
digunakan untuk menjalankan sebuah prosedur dalam waktu yang sudah kita spesifikasikan
TimeValue :
merupakan sebuah kondisi dimana perintah akan dijalankan, dalam contoh di atas perintah akan dijalankan dalam hitungan 05 detik
Perintah_Lain :
adalah sebuah prosedur (Module) lain yang akan dijalankan ketika waktu yang yang kita masukkan sedang terjadi.
Untuk membuat prosedur "perintah_lain" maka kita membuat sebuah module baru yang berisi perintah atau kode-kode tertentu yang kita inginkan.
sebagai contoh :
Sub Perintah_Lain()
UserForm1.Show
End Sub
Artinya, ketika pengguna menjalankan perintah Sub X - pengguna harus menunggu sekitar 05 detik kemudian Sub Perintah_Lain akan dijalankan, dalam contoh diatas yakni menampilkan UserForm1

Ilustrasi dalam menggunakan metode ini sebagai berikut

Tidak ada komentar:

Posting Komentar