Cara Membuat Pesan YES dan NO dengan VBA

Excel-id.com | Bagaimana cara / coding membuat pesan dengan tampilan YES dan NO sebagai pilihan konfirmasi menggunakan Macro/VBA? Beberapa pesan atau lebih dikenal dengan "Message Box" ada beberapa jenis diantaranya ada konfirmasi, peringatan, informasi, dan lain-lain. Pesan ini biasa kita kenal dengan konstanta.

Kotak pesan yang muncul biasanya ada beberapa alasan bagi seorang programer dalam hal ini programer excel VBA dengan tujuan misalnya untuk memperingati user bahwa ada kesalahan entri atau bahkan pesan peringatan. Pada materi kali ini saya akan membahas bagaimana cara membuat sebuah kotak pesan yang muncul dimana hanya ada 2 pilihan yaitu YES dan NO.

Simak:
Contoh Pesan ketika Berpindah Cell

Contoh :
Buatlah 1 buah module dan ketikan coding berikut ini

Sub KotakPesan()
Dim Jawaban
Jawaban= MsgBox("Apakah Anda sedang belajar VBA", vbYesNo + vbQuestion, "Pertanyaan")
End Sub

Dari coding diatas akan menghasilkan sebuah kotak pesan seperti tampilan dibawah ini

Sebuah pesan pertanyaan yang disertai dengan simbol " Tanda Tanya " dan disertai dengan tulisan "Apakah Anda sedang belajar VBA" dan ada 2 buah tombol yaitu "YES" dan "NO" dan yang paling penting adalah tombol Close "X" di sudut kanan atas kotak pesan tersebut tidak bisa di klik / disable.

Bagaimana cara memanggil module kotak pesan tersebut?

Ada beberapa cara untuk memanggil module kotak pesan tersebut, Anda bisa menggunakan tombol untuk mengaktifkan pesan nya atau bisa juga ketika workbook aktif, atau ada juga ketika terjadi perpindahan pada pointer /perubahan pada worksheet hal ini tergantung kepada Anda.
Dalam kasus ini saya akan mencoba dengan prosedur ketika workbook baru dibuka maka Anda harus menempatkan / menambahkan coding pada Workbook.

Cara Lain :
Membuat Pesan Peringatan dengan VBA/Macro Excel

Gunakan object Workbook pada VBA editor anda kemudian pilih prosedure Open dan ketikkan coding berikut untuk memanggil kotak pesan YES dan NO tersebut

Private Sub Workbook_Open()
Call KotakPesan
End Sub

Perhatikan contoh saya dalam bentuk gambar

Contoh diatas merupakan pemanggilan module KotakPesan, lalu bagaimana jika Anda akan memanggil modul tersebut dengan sebuah tombol? Cukup sederhana Anda tinggal buat tombol dengan menggunakan CommandButton dari menu Depelover kemudian buat di worksheet

Jika Anda sudah pernah membuat commandbutton maka silakan klik tombol edit, namun jika Anda baru membuat tombol maka silakan klik New kemudian ketikkan coding berikut

Sub Button1_Click()
Call KotakPesan
End Sub

Silakan coba juka CommandButton1 Anda klik maka akan muncul pesan seperti tampilan gambar ke-1 diatas.

Demikian, semoga bermanfaat dan selamat mencoba.

Coba Belajar lagi Contoh Coding Pesan dengan VBA

Tweet