Cara Membuat Pesan dengan Kode VBA

Membuat pesan menggunakan kode VBA tidaklah sulit, karena Anda bisa lihat beberapa contoh yang pernah saya masukan kedalam beberapa aplikasi yang pernah saya buat di blog excel ini. Pesan bisa berupa peringatan, pilihan maupun hanya sekedar informasi saja dari programmer. Untuk membuat kode tampilan pesan secara sedehana ikuti langkah berikut ini

Secara sederhana untuk srtuktur kode pesan adalah seperti berikut

Sub PesanPertama() 
MsgBox "Masukan pesan disini!" 
End Sub 

Namun pada kesnyataannya banyak sekali modifikasi yang bisa dilakukan untuk membuat sebuah pesan dengan menggunakan VBA dan  berikut ini salah satu contohnya.

Pertama silakan Anda buat sebuah module namun jangan lupa tampilkan VBA editor terlebih dahulu dengan menekan tombol F7 pada keyboard Anda kemudian klik menu Insert dan pilih Module

Jika module terlah terbuat dengan nama Module1 maka silakan Anda masukan atau ketik script berikut ini :

Sub Pesan()
Dim MenampilkanPesan As Integer
MenampilkanPesan = MsgBox("Apakah Anda suka dengan Kode ini?", vbYesNo + _
   vbQuestion, "Pertanyaan")
End Sub

Sub pesan ini akan dipanggil dengan menggunakan commandbutton maka Anda harus membuat sebuah tombol pada worksheet dengan cara klik menu Developer kemudian klik Insert dan pilih CommandButton

Jika selesai silakan klik kanan pada tombol tersebut kemudian pilih Asign macro dan silakan pilih Pesan kemudian klik OK. Artinya jika Anda klik tombol tersebut akan memanggil module pesan sehingga hasilnya akan tampak seperti gambar berikut

Nah, munculah pesan dengan nama kotak pesan "Pertanyaan" kemudian isi pesannya "Apakah Anda suka dengan kode ini?" Ada dua pilihan pada konvirmasi pesan diatas yaiu "Yes" dan "No". Sebenarnya Anda bisa kembangkan cara membuat pesan ini dengan menambahkan script VBA lain dengan logika apabila Anda pilih Yes maka akan dibuat seperti apa dan apabila pilih No akan menjalankan apa.

Demikian cara membuat pesan dengan kode VBA. Kode pesan dengan VBA lainnya Anda bisa gunakan contoh script pesan berikut.

Sub ContohPesan2()
Dim TampilanPesan As Integer
If TampilanPesan = vbYes Then
   'Anda bisa tambahkan kode disini
End If
End Sub

Demikian semoga bermanfaat, namun jika Anda ingin belajar VBA silakan bisa lihat contoh latihan berikut




Contoh lain jika menggunakan pesan dengan judul ini contoh script VBA nya

Sub PesandenganJudul() 
MsgBox "Pesan ini disampaikan untuk Anda", , "Judul Pesan" 
End Sub 

Contoh pesan dengan pilihan Abort, Retry, dan Ignore

Sub PesanIgnore() 
MsgBox "Masukan pesan 1" & vbCrLf & "Masukan pesan 2", , "TUliskan judul pesan" 
End Sub

Lebih lengkap lagi dalam penerapan aplikasi contohnya adalah script berikut

Sub PesanPilihan()
Dim Pesan As Integer
Dim Pesannya As String
Dim JudulPesan As String
' Dialog Message
Pesannya = "Silakan klik salah satu"
' Dialog's Title
JudulPesan = "Judul"
'Display MessageBox
    Pesan = MsgBox(Pesannya, vbYesNoCancel + vbQuestion, JudulPesan)
' Check pressed button
Select Case Pesan
Case 6
    MsgBox "Anda memilih YA"
Case 7
    MsgBox "Anda memilih TIDAK"
Case 2
    MsgBox "Anda Membatalkannya"
End Select
End Sub

Dari script diatas menghasilkan

Jika Anda memilih tombol Yes maka hasilnya akan

 

Jika Anda memilih No maka hasilnya

Tetapi jika Anda memilih cancel maka hasilnya adalah

Oke, saya kira kumpulan beberapa contoh cara membuat pesan sudah cukup, semoga bisa dimengerti dan selamat belajar.

Tweet