Cara Menciptakan Message Box Di Vba Excel

RumusExcel.com – Pada kesempatan kali ini kita akan melanjutkan mencar ilmu perihal Macro / VBA Excel, kali ini perihal 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 memberitahukan apakah user dan password sudah benar atau ada yang salah dan sebagainya.
Untuk itu mempelajari perihal cara menciptakan Message Box pada VBA Excel sangat penting sekali, berikut materi yang akan kita pelajari perihal Message Box kali ini:

    1. Membuat Message Box Sederhana
    2. Membuat Message Box dengan Button
    3. Menampilkan Gambar pada Message Box
    4. Membuat / Mengubah Title pada Message Box
    5. Membuat isi Message Box menjadi beberapa baris
    6. Membuat Message Box dengan 2 pilihan atau lebih
Sebelum berlanjut ke materi diatas alangkah baiknya kita mencar ilmu perihal fungsi dasar atau syntax Message Box, yaitu:

MsgBox (Prompt, Buttons, Title, Helpfile, Context)
 Keterangan:
Prompt yakni isi dari Message Box dan  harus berformat string (di tandai dengan tanda petik dua [” “] di awal dan selesai pesan).
Buttons (opsional) yakni tombol yang ingin di tampilkan dapat berupa 1 tombol ataupun lebih. Jika lebih dari satu maka di gunakan operator (+) sebagai pemisahnya.
Title (opsional) yakni untuk menciptakan Title atau judl pada Message Box.
Untuk Helpfile dan Context ini juga bersifat opsional dan jarang sekali di gunakan, fungsinya untuk menampilkan File Help/Bantuan dan Context untuk menampilkan konten topik pada File Help menurut nomor tertentu.

Membuat Message Box Sederhana

Disebut sederhana alasannya yakni hanya memakai bab Prompt-nya saja. misalnya ibarat berikut ini:

MsgBox “Belajar Buat Message Box”

Yang perlu di ingat penulisan isi Message Box harus di awali tanda petik dua (“teks”) di awal dan selesai teks, Hasilnya akan menjadi ibarat gambar dibawah ini:

 Pada kesempatan kali ini kita akan melanjutkan mencar ilmu perihal Macro  Cara Membuat Message Box di VBA Excel

Membuat Message Box dengan Button

Selanjutnya kita dapat menambahkan Button pada Messgae Box yang kita buat, Karena Button ini sipatnya Opsional jadi kalau tidak di tambakan maka secara default yang tampil yakni Button (tombol) OK, ada banyak Button yang dapat di pakai di Messgae Box ibarat diantanya vbOKOnly, vbOKCancel, vbOKYesNo, vbYesNoCancel dll. sebagai percobaan kita akan menampilkan tombol vbOKCancel dan penulisan scripnya yakni sebagai berikut:

MsgBox “Belajar Buat Message Box”, vbOKCancel

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

 Pada kesempatan kali ini kita akan melanjutkan mencar ilmu perihal Macro  Cara Membuat Message Box di VBA Excel

Menampilkan Gambar pada Message Box

Masih perihal 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 yakni dengan script vbCritical, vbExclamation, vbInformation dan vbQuestion. peletakan scriptnya yakni pada posisi Buttons atau dapat juga di gabung dengan button dengan operator (+). Contohnya ibarat berikut ini:

MsgBox “Belajar Buat Message Box”, vbOKOnly + vbCritical

Pada bab Buttons di suplemen tombol OK saja dan gambar Critical (X). Hasilnya ibarat terlihat pda gambar berikut ini:

 Pada kesempatan kali ini kita akan melanjutkan mencar ilmu perihal Macro  Cara Membuat Message Box di VBA Excel

Membuat / Mengubah Title pada Message Box

Secara Default kalau bab Title tidak di isi, maka pada bab title tersebut hanya akan terisi dengan teks Microsoft Excel, namun kalau ingin mengubahnya caranya sangat mudah, ibarat halnya pada penulisan prompt atau isi Message Box, pada penulisan title juga harus di mulai dan di akhiri dengan tanda petik dua di awal dan di selesai title (” “). Contoh penulisan tanpa mengisi bab buttons.

MsgBox “Belajar Buat Message Box”,  , “ini Title-nya”

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

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

Dengan penambahan Button dan gambar kesudahannya akan terlihat ibarat ini:

 Pada kesempatan kali ini kita akan melanjutkan mencar ilmu perihal Macro  Cara Membuat Message Box di VBA Excel

Membuat isi Message Box Menjadi Beberapa Baris

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

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

Contoh penerapan pada Message Box yakni 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 berikut ini:

 Pada kesempatan kali ini kita akan melanjutkan mencar ilmu perihal Macro  Cara Membuat Message Box di VBA Excel

Membuat Message Box dengan 2 pilihan atau lebih

Setelah kita mempelajari pembuatan Message Box, kali kita akan kembangkan untuk menciptakan Message Box dengan 2 pilihan (opsi) atau lebih, teladan untuk menampilkan pada tombol Keluar, dikala tombol tersebut di klik maka akan keluar obrolan Message Box, yang kalau di klik Yes maka akan keluar dari jadwal / UserForm dan kalau klik No maka akan kembali ke Program / UserForm. Penulisan Message Boxnya yakni sebagai berikut:
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 yakni sebagai berikut:

 Pada kesempatan kali ini kita akan melanjutkan mencar ilmu perihal Macro  Cara Membuat Message Box di VBA Excel

Latihan Menggunakan Message Box

  1. Buka Aplikasi Microsoft Excel dan tekan tombol Alt+F11 untuk membuka aplikasi Microsoft Visual Basic.
  2. Tambahkan sebuah User Form dan 6 buah Tombol / Command Button.
  3. Ubah Caption pada Command Button menjadi Msg Box 1 hingga Msg Box 6.
  4.  Pada kesempatan kali ini kita akan melanjutkan mencar ilmu perihal Macro  Cara Membuat Message Box di VBA Excel

  5. Klik kanan pada UserForm dan pilih View Code lalu masukkan script berikut ini:
  6. 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 
  7. Selanjutnya tekan tombol F5 untuk menjalankan UserForm atau dapat juga dengan mengklik pada tombol Run Sub pada Toolbar.
Sekian tutorial cara menciptakan Message Box di VBA Excel, Semoga Bermanfaat…


Sumber http://www.rumusexcel.com