
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 :
- 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
- 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 parameterCall - Angka yang bisa anda rubah untuk mengatur durasi lamanya kotak pesan agar bisa menutup secara otomatis adalah di bagian teks yang berwarna merah (2000)
- Judul sub module di atas adalah
Untuk mengetahui bagaimana pesan yang sudah dimodifikasi menggunakan skrip di atas, silahkan tekan tombol
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.
Incoming Search Terms
Membuat Message Box VBA Excel Tertutup secara Otomatis Skrip Kode Macro VBA untuk Menutup Jendela Kotak Pesan
Bekerja Lebih Cepat Tanpa Harus Menekan Tombol Konfirmasi Kotak Pesan
Tutorial Membuat Kotak Pesan Menutup Secara Otomatis
Panduan Singkat Membuat Message Box VBA Ms. Excel
Terimakasih sudah membaca
Tutorial: Skrip VBA Untuk Menutup Kotak Pesan Secara Otomatis Dalam Waktu Tertentu
Label: Message Box - Author: excelive
Tutorial: Skrip VBA Untuk Menutup Kotak Pesan Secara Otomatis Dalam Waktu Tertentu
Label: Message Box - Author: excelive
Masih mau belajar lagi !
Yuk, klik tautan berikut ini :