Salah satu yang yang suka dari Macro VBA adalah kemampuannya dalam memanipulasi beragam perintah yang dapat disesuaikan dengan kebutuhan, sehingga kehadirannya sangat efektif dalam membantu menyelesaikan pekerjaan tepat pada waktunya. Namun kadangkala tidak sedikit pula dalam projek Microsoft Excel yang telah kita berikan kode Macro VBA di dalamnya, seringkali kita merasa bahwa ada sesuatu yang "kurang" sehingga perlu untuk dilakukan penambahan disetiap skrip yang telah dibuat.

Salah satu contoh sesuatu yang "kurang" tersebut adalah, ketika kita menyematkan sebuah skrip macro VBA berupa kotak pesan dalam sebuah tombol dan ketika pengguna menekan tombol tersebut, maka jendela kotak pesan yang telah kita buat akan ditampilkan. Dan untuk menutupnya, seorang pengguna harus mengkonfirmasi terlebih dulu dengan menekan tombol OK atau Cancel atau sejenisnya. Dan ini akan berjalan secara berulang-ulang.
Mungkin jika memang butuh sebuah konfirmasi dari pengguna, saya pikir hal ini tidak akan menggangu, namun jika kotak pesan hanya berupa informasi sederhana, misalnya berisi sebuah pesan "Selamat... database berhasil disimpan" atau pesan-pesan informasi lainnya, maka kehadiran kotak pesan yang mana proses menutupnya dilakukan secara manual maka saya pikir agak sedikit kurang tepat, karena justru akan mengganggu pengguna.

Baca tutorial terkait lain
Cara Mudah Memberikan Nilai Properti Berbeda Setiap Objek VBA Berdasarkan Kriteria
Skrip Macro VBA untuk menampilkan Informasi Data Dari 3 Kriteria
Cara menggunakan parameter Intersect
Nah, pada kesempatan kali ini saya akan share kepada anda tentang bagaimana membuat sebuah kotak pesan yang seperti saya contohkan di atas agar dapat menutup secara otomatis dalam kurun waktu tertentu tanpa harus menunggu konfirmasi dari pengguna sehingga dapat meminimalisir kesan "mengganggu" dari kemunculan kotak pesan ini. Langkah-langkah membuatnya adalah sebagai berikut :

1. Sebagai langkah awal buat sebuah module baru dan tempelkan skrip kode berikut ini di baris awal (baris paling atas)
   

   #If Win64 Then '64?
       Private Declare PtrSafe Function MsgBoxTimeout _
           Lib "user32" _
           Alias "MessageBoxTimeoutA" ( _
               ByVal hwnd As LongPtr, _
               ByVal lpText As String, _
               ByVal lpCaption As String, _
               ByVal wType As VbMsgBoxStyle, _
               ByVal wlange As Long, _
               ByVal dwTimeout As Long) _
       As Long
   #Else
       Private Declare Function MsgBoxTimeout _
           Lib "user32" _
           Alias "MessageBoxTimeoutA" ( _
               ByVal hwnd As Long, _
               ByVal lpText As String, _
               ByVal lpCaption As String, _
               ByVal wType As VbMsgBoxStyle, _
               ByVal wlange As Long, _
               ByVal dwTimeout As Long) _
       As Long
   #End If

2. Berikutnya silahkan buat Module baru atau letakkan kode berikut di baris setelah kode di langkah 1
   

   Sub PesanSatu()
       Call MsgBoxTimeout(0, "Pesan atau informasi yang terdapat dalam kotak pesan ", _
                             "Judul Pesan", vbInformation, 0, 2000)
   End Sub

   • Judul sub module di atas adalah PesanSatu yang bisa dipanggil menggunakan parameter Call
   • Angka yang bisa anda rubah untuk mengatur durasi lamanya kotak pesan agar bisa menutup secara otomatis adalah di bagian teks yang berwarna merah (2000)

Untuk mengetahui bagaimana pesan yang sudah dimodifikasi menggunakan skrip di atas, silahkan tekan tombol F5 yang terdapat di keyboard anda, atau bisa juga menjalankannya dengan menekan tombol yang terdapat di menubar.
Untuk hasil akhir, silahkan lihat kotak pesan berikut ini:


Selamat... Anda sudah berhasil membuat kotak pesan tertutup secara otomatis dalam kurun waktu tertentu tanpa harus menekan tombol konfirmasi.
Semoga tips ini bisa menambah wawasan baru kepada Anda. Dan jangan lupa kunjungi channel youtube kami untuk mengetahui video tutorial terbaru dari kami. Adios