Cara Menciptakan Message Box Di Vba Excel

[.] com - Pada peluang kali ini kita akan melanjutkan mencar ilmu tentang Macro / VBA Excel, kali ini tentang Message Box (MsgBox).

Message Box atau yang berarti Box Pesan dipakai untuk menampilkan pesan berupa obrolan Box yang di gunakan untuk berkomunikasi antara Programmer sebuah aplikasi dengan usernya.

Misal ibarat pada pembuatan Form Login dipakai untuk memdiberitahukan apakah user dan password sudah benar atau ada yang salah dan sebagainya.

Untuk itu mempelajari tentang cara membuat Message Box pada VBA Excel sangat penting sekali, diberikut materi yang akan kita pelajari tentang Message Box kali ini:

1Membuat Message Box Sederhana
2Membuat Message Box dengan Button
3Menampilkan Gambar pada Message Box
4Membuat / Mengubah Title pada Message Box
5Membuat isi Message Box menjadi beberapa baris
6Membuat Message Box dengan 2 pilihan atau lebih
7Latihan Menggunakan Message Box

Sebelum berlanjut ke materi diatas alangkah baiknya kita mencar ilmu tentang fungsi dasar atau syntax Message Box, yaitu:

MsgBox (Prompt, Buttons, Title, Helpfile, Context)

Keterangan:

Prompt yaitu isi dari Message Box dan  harus berformat string (di tandai dengan tanda petik dua [" "] di pertama dan tamat pesan).

Buttons (opsional) yaitu tombol yang ingin di tampilkan dapat berupa 1 tombol ataupun lebih. Jika lebih dari satu maka di gunakan operator (+) sebagai pemisahnya.

Title (opsional) yaitu untuk membuat Title atau judul pada Message Box.

Untuk Helpfile dan Context ini juga bersifat opsional dan jarang sekali di gunakan, fungsinya untuk menampilkan File Help/pertolongan dan Context untuk menampilkan konten topik pada File Help menurut nomor tertentu.

Membuat Message Box Sederhana

Disebut sederhana sebab spesialuntuk memakai belahan Prompt-nya saja. contohnya ibarat diberikut ini:

MsgBox "Belajar Buat Message Box"

Yang perlu di ingat penulisan isi Message Box harus di pertamai tanda petik dua ("teks") di pertama dan tamat teks, Hasilnya akan menjadi ibarat gambar dibawah ini:

Membuat Message Box dengan Button

Selanjutnya kita dapat menambahkan Button pada Message Box yang kita buat, Karena Button ini sipatnya Opsional jadi kalau tidak di tambakan maka secara default yang tampil yaitu Button (tombol) OK.

Ada banyak Button yang dapat di pakai di Message Box ibarat diantanya vbOKOnly, vbOKCancel, vbOKYesNo, vbYesNoCancel dll. sebagai percobaan kita akan menampilkan tombol vbOKCancel dan penulisan scripnya yaitu sebagai diberikut:

MsgBox "Belajar Buat Message Box", vbOKCancel

Antara isi Message Box dan Button di pisahkan dengan koma, Hasilnya akan menjadi ibarat gambar diberikut ini:

Menampilkan Gambar pada Message Box

Masih tentang button pada MsgBox kali ini kita akan menampilkan gambar pada sebelah kiri isi Message Box, ibarat gambar Warning, Error, Help dll. Untuk gambar yang dapat di pakai di antaranya yaitu dengan script vbCritical, vbExclamation, vbInformation dan vbQuestion.

Peletakan scriptnya yaitu pada posisi Buttons atau dapat juga di gabung dengan button dengan operator (+). contohnya ibarat diberikut ini:

MsgBox "Belajar Buat Message Box", vbOKOnly + vbCritical

Pada belahan Buttons di aksesori tombol OK saja dan gambar Critical (X). Hasilnya ibarat terlihat pada gambar diberikut ini:

Membuat / Mengubah Title pada Message Box

Secara Default jikalau belahan Title tidak di isi, maka pada belahan title tersebut spesialuntuk akan terisi dengan teks Microsoft Excel, jikalau ingin mengubahnya caranya sangat gampang, ibarat halnya pada penulisan prompt atau isi Message Box, pada penulisan title juga harus di mulai dan di akhiri dengan tanda petik dua di pertama dan di tamat title (" ").

misal penulisan tanpa mengisi belahan buttons.

MsgBox "Belajar Buat Message Box",  , "ini Title-nya"

Bagian buttons dibiarkan kosong spesialuntuk di tulis pemisahnya saja yaitu koma atau yang dengan buttons, scriptnya ibarat ini:

MsgBox "Belajar Buat Message Box", vbOKOnly + vbExclamation, "ini Title-nya"

melaluiataubersamaini penambahan Button dan gambar balasannya akan terlihat ibarat ini:

Membuat isi Message Box Menjadi Beberapa Baris

Isi Message Box dapat juga di buat menjadi beberapa baris / paragraf, caranya yaitu dengan menambhakan script vbNewLine atau dapat juga dengan script vbCrLf penulisanya antara teks dan scriptnya di pisahkan dengan tanda (&) ibarat diberikut ini:

"Teks Baris 1" & vbNewLine & "baris ke 2" & vbNewLine & "teks Baris ke-3 dst"

misal penerapan pada Message Box yaitu ibarat ini:

MsgBox "Belajar Buat Message Box" & vbNewLine & "Ini baris keduanya Bos...." & vbCrLf & "Dan Ini Baris yang ketiga...", vbOKOnly + vbInformation, "ini Title-nya"

Hasilnya akan menjadi ibarat diberikut ini:

Membuat Message Box dengan 2 pilihan atau lebih

Sesudah kita mempelajari pembuatan Message Box, kali kita akan kembangkan untuk membuat Message Box dengan 2 pilihan (opsi) atau lebih. 

misal untuk menampilkan tombol Keluar, saat tombol tersebut di klik maka akan keluar obrolan Message Box, yang jikalau di klik Yes maka akan keluar dari agenda / UserForm dan jikalau klik No maka akan kembali ke Program / UserForm. Penulisan Message Boxnya yaitu sebagai diberikut:

Dim pesan As Integer

pesan = MsgBox("Yakin ingin menutup user Form???", vbYesNo + vbQuestion, "Peringatan")

    If pesan = vbYes Then

        End

    End If

Dan Tampilan Message Boxnya yaitu sebagai diberikut:

Latihan Menggunakan Message Box

1Buka Aplikasi Microsoft Excel dan tekan tombol Alt+F11 untuk membuka aplikasi Microsoft Visual Basic.

2Tambahkan sebuah User Form dan 6 buah Tombol / Command Button.

3Ubah Caption pada Command Button menjadi Msg Box 1 hingga Msg Box 6.

4Klik kanan pada UserForm dan pilih View Code kemudian masukkan script diberikut ini:

Private Sub CommandButton1_Click()     MsgBox "Belajar Buat Message Box" End Sub  Private Sub CommandButton2_Click()     MsgBox "Belajar Buat Message Box", vbOKCancel End Sub  Private Sub CommandButton3_Click()     MsgBox "Belajar Buat Message Box", vbOKOnly + vbCritical End Sub  Private Sub CommandButton4_Click()     MsgBox "Belajar Buat Message Box", vbOKOnly + vbExclamation, "ini Title-nya" End Sub  Private Sub CommandButton5_Click()     MsgBox "Belajar Buat Message Box" & _     vbNewLine & "Ini baris keduanya Bos...." & _     vbCrLf & "Dan Ini Baris yang ketiga...", _     vbOKOnly + vbInformation, "ini Title-nya" End Sub  Private Sub CommandButton6_Click() Dim pesan As Integer pesan = MsgBox("Yakin ingin menutup user Form???", vbYesNo + vbQuestion, "Peringatan")     If pesan = vbYes Then         End     End If End Sub 

5Selanjutnya tekan tombol F5 untuk menjalankan UserForm atau dapat juga dengan mengklik pada tombol Run Sub pada Toolbar.

Lampiran

Belajar Message Box di VBA Excel.xlsb   [ 16,3 KB ]

Sekian tutorial cara membuat Message Box di VBA Excel, Semoga Bermanfaat...