TIMER untuk menjalankan macro VBA

14.08  Excel solution  

Langkah-langkah pembuatan:

Buka Excel 2007 dan simpan dengan tipe Excel Macro - Enabled Workbook
Tekan Alt + F11 untuk memunculkan jendela VBA
Klik menu Insert - Module untuk menambahkan modul pada jendela Project
Double Klik pada module1 dan ketikkan kode berikut

    Sub timer()
        On Error Resume Next
          MsgBox ("Terima Kasih sudah menggunakan contoh Aplikasi ini. " & _
          "Temukan contoh-contoh lain di blog kami."), vbOKOnly, "XLSOLUTION"
            Application.OnTime EarliestTime:=Now + TimeValue("00:00:05"), Procedure:="timer"
          End Sub

            Masih pada jendela Project, klik 2x ThisWorkbook dan ketikkan kode berikut:
            Sub workbook_open()
            Call timer
            End Sub

            tekan Ctrl + S
            Tutup jendela VBA dan Excel 

            untuk mencoba, buka kembali file yang sudah dibuat tadi, akan muncul kotak pesan seperti di bawah ini


            Kotak pesan ini akan muncul sesuai dengan waktu yang sudah kita tentukan pada kode macro di atas (5 detik)  "TimeValue("00:00:05")". Anda dapat menggantinya sesuai kebutuhan.

            Download contoh 

            lihat cara download di sini

            Posted in: ,
            Twitter Delicious Facebook Digg Stumbleupon Favorites More