Diskusi tentang Excel

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


Materi UserForm Materi Combobox Materi Textbox Materi Listbox Materi Checkbox Materi OptionButton

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.

Related

Macro Excel VBA 5744421382768413125

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item