√ Cara Menciptakan Pesan Dengan Isyarat Vba

Membuat pesan memakai arahan VBA tidaklah sulit, alasannya yaitu Anda dapat lihat beberapa tumpuan yang pernah saya masukan kedalam beberapa aplikasi yang pernah saya buat di blog excel ini. Pesan dapat berupa peringatan, pilihan maupun hanya sekedar isu saja dari programmer. Untuk menciptakan arahan tampilan pesan secara sedehana ikuti langkah berikut ini

Secara sederhana untuk srtuktur arahan pesan yaitu menyerupai berikut

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

Namun pada kesnyataannya aneka macam modifikasi yang dapat dilakukan untuk menciptakan sebuah pesan dengan memakai 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 lalu klik sajian 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 memakai commandbutton maka Anda harus menciptakan sebuah tombol pada worksheet dengan cara klik sajian Developer lalu klik Insert dan pilih CommandButton

Jika akibat silakan klik kanan pada tombol tersebut lalu pilih Asign macro dan silakan pilih Pesan lalu klik OK. Artinya jikalau Anda klik tombol tersebut akan memanggil module pesan sehingga balasannya akan tampak menyerupai gambar berikut

Nah, munculah pesan dengan nama kotak pesan "Pertanyaan" lalu isi pesannya "Apakah Anda suka dengan arahan ini?" Ada dua pilihan pada konvirmasi pesan diatas yaiu "Yes" dan "No". Sebenarnya Anda dapat kembangkan cara menciptakan pesan ini dengan menambahkan script VBA lain dengan logika apabila Anda pilih Yes maka akan dibentuk menyerupai apa dan apabila pilih No akan menjalankan apa.

Demikian cara menciptakan pesan dengan arahan VBA. Kode pesan dengan VBA lainnya Anda dapat gunakan tumpuan script pesan berikut.

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

Demikian biar bermanfaat, namun jikalau Anda ingin berguru VBA silakan dapat lihat tumpuan latihan berikut

Contoh lain jikalau memakai pesan dengan judul ini tumpuan 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 misalnya yaitu 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 menentukan YA"
Case 7
    MsgBox "Anda menentukan TIDAK"
Case 2
    MsgBox "Anda Membatalkannya"
End Select
End Sub

Dari script diatas menghasilkan

Jika Anda menentukan tombol Yes maka balasannya akan

Jika Anda menentukan No maka hasilnya

Tetapi jikalau Anda menentukan cancel maka balasannya adalah

Oke, saya kira kumpulan beberapa tumpuan cara menciptakan pesan sudah cukup, biar dapat dimengerti dan selamat belajar.
Sumber http://www.excel-id.com/