Cara Membuat Kotak Pesan Macro VBA untuk Mengambil Keputusan dalam Excel
Sejauh ini, contoh-contoh dalam postingan sebelumnya yang menunjukkan kemampuan VBA dalam pengambilan keputusan tidak memerlukan input apa saja dari pengguna.
Dalam situasi tertentu Anda mungkin memerlukan atau sekedar menginginkan informasi dari pengguna supaya keputusan yang dibuat tersebut hanya dapat dijalankan atas izin pengguna.
Kotak pesan adalah salah satu alat yang paling tepat dan unggul untuk berinteraksi dengan pengguna.
Anda telah banyak melihat contoh kode yang mencakup suatu kotak pesan.
Dalam contoh-contoh kode tersebut, kotak pesan adalah kotak pop-up sederhana yang menampilkan suatu pesan berupa tulisan berisi informasi, dengan sebuah tombol OK untuk mengakui informasi tersebut.
Kotak pesan adalah alat yang luwes karena memungkinkan Anda membuat tombol sesuai spesifikasi Anda sendiri sementara pertanyaan diajukan secara langsung kepada pengguna sehingga memaksanya memilih salah satu opsi diantara opsi lainnya.
Selain tombol OK, Anda dapat menampilkan tombol Yes atau No pada kotak pesan dan tulis kode yang akan diikuti jika pengguna meng-klik tombol Yes atau No.
Sebagai contoh, anggap saja Anda memiliki macro untuk melakukan perintah agar pengguna melakukan konfirmasi sebagai tahap penyelesaian untuk meyakinkan mereka jika benar-benar ingin melakukan sesuatu.
Adapun contoh skenarionya yaitu sheet yang aktif akan disalin dan kemudian ditempatkan sebelum sheet yang disalin tersebut, namun proses dapat dilakukan jika pengguna memilih tombol Yes untuk menegaskan maksudnya agar proses tersebut dapat terjadi.
Jika pengguna memilih No, maka kotak pesan memberitahukan pengguna bahwa macro tidak dapat melanjutkan prosesnya.
Berikut contoh kode macro tersebut:
Select Case MsgBox( _
"Apakah Anda benar-benar ingin menyalin sheet ini?", _
vbYesNo + vbQuestion, _
"Silakan nyatakan dengan tegas…")
Case vbNo
MsgBox _
"Tidak mengapa, sheet ini tidak jadi disalin.", _
vbInformation, _
"Anda memilih No."
Exit Sub
Case vbYes
MsgBox _
"Mantap... Silakan klik OK untuk menjalankan macro.", _
vbInformation, _
"Terima kasih telah mengkonfimasi."
ActiveSheet.Copy Before:=Sheets("Sheet1")
End Select
End Sub
Coba Anda perhatikan garis kode MsgBox di atas bahwa argumen kotak pesan berada dalam tanda kurung.
Adapun kotak pesan memiliki dua argumen perintah: (1) prompt dimana tulisan yang Anda masukkan pada badan kotak pesan, dan (2) tombol konfigurasi.
Tombol gabungan lainnya meliputi OKCancel, YesNoCancel, dan AbortRetryIgnore.
Adapun judul kotak pesan bersifat pilihan dan bukan suatu keharusan, namun Anda bisa menambahkan judul tersebut bagi pengguna.
Ketika Anda menyusun kode untuk sebuah kotak pesan, agar lebih mengingatkan Anda dalam menuliskan sintaks kode yang benar maka Anda harus mengaktifkan IntelliSense yang selengkapnya dibahas dalam postingan Cara Memunculkan Menu Drop-Down Daftar Pilihan Properti dan Metode Suatu Objek VBA dalam Kode Macro Excel.
Itulah penjelasan tentang cara membuat kotak pesan Macro VBA sebagai suatu menu pilihan dalam mengambil keputusan di Excel.
Selamat mempraktekkan dan semoga bermanfaat.