KODE MACRO CARA MEMBUAT KOTAK PESAN DI EXCEL

CARA MEMBUAT KOTAK PESAN DI MICROSOFT EXCEL
Anda dapat mengunjungi Koleksi Aplikasi Excel Gratis kami sebagai contoh

Ada beberapa Kode Macro Membuat Kotak Pesan di Microsoft Excel. Dibawah ini adalah contoh-contoh Kode Macro untuk Membuat Kotak Pesan melalui jendela Visual Basic for Application (VBA).

Kotak Pesan Dengan Tombol OK (vbOkOnly)
Biasanya ini digunakan untuk pesan yang bersifat satu tujuan

MsgBox "Silahkan klik OK untuk Melanjutkan", vbOkOnly , "sistem aplikasi"

Keterangan gambar :

Kotak Pesan Dengan Tombol OK CANCEL (vbOkCancel)

Biasanya pesan ini digunakan untuk dua pilihan, yaitu apabila OK maka melanjutkan/setuju dan apabila CANCEL maka kembali/tidak setuju.

pesan = MsgBox ("Klik OK untuk melanjutkan, dan klik CANCEL untuk kembali", vbOkCancel , "sistem aplikasi")
Select Case pesan
Case vbOk
MsgBox "Terimakasih, Anda telah mengunjungi blog ini", vbInformation , "sistem aplikasi"
End
Case vbCancel
End Select

Keterangan gambar :

Kotak Pesan Dengan Tombol YES NO (vbYesNo)
Ini hampir sama dengan Kode Macro yang diatas (vbOkCancel), hanya saja NO yang dimaksud adalah tidak setuju dengan pesan yang tercantum (Icon X desable).

pesan = MsgBox ("kata sandi yang Anda masukan salah, Apakah Anda ingin Login lagi ?", vbYesNo , "sistem aplikasi")
Select Case pesan
Case vbYes
Application.Visible = False
UserForm1.Show
Case vbNo
End
Application.Visible = False
Application.Quit
End Select

Keterangan gambar :

Kotak Pesan Dengan Tombol YES NO CANCEL (vbYesNoCancel)

Pesan muncul dengan tiga tombol pilihan, apabila Yes maka Anda setuju dan apabila No maka Anda tidak setuju (inputkan data) dan apabila Anda ingin mengulang maka Cancel.

pesan = MsgBox ("Maaf, Data yang Anda masukan ganda, apakah Anda ingin mengulang atau ingin menghapus atau Anda ingin membiarkan ?", vbYesNoCancel, "sistem aplikasi")
Select Case pesan
Case vbYes
Userform1.Show
Case vbNo
Set wsdatabase = Sheets("Sheet1")
Dim Barisdatabase As Long
With wsdatabase
Barisdatabase = .Cells(.Rows.Count, "A"). _
End(xlUp).Offset(0, 0).Row
.Cells(Barisdatabase + 1, 4).Value = TextBox1.Text
.Cells(Barisdatabase + 1, 5).Value = TextBox2.Text
TextBox1.Text = ""
TextBox2.Text = ""
End With
pesan = MsgBox ("data berhasil disimpan" & vbClrf & "Apakah Anda ingin menambah data ?", _ vbInformation + vbYesNo, "sistem aplikasi")
Select Case pesan
Case vbYes
UserForm1.Show
Case vbNo
Unload Me
ActiveWorkbook.Save
Case vbCancel
Unload Me
End Select
End Select

Keterangan gambar :

Kotak Pesan Dengan Kombinasi
Seperti contoh diatas, Anda juga dapat mengkombinasikan vbYesNo dengan vbCritical. Untuk lebih jelasnya silahkan simak Kode macro dibawah ini.

pesan = MsgBox ("password yang Anda masukan salah, apakah Anda ingin login lagi ?", vbCritical + vbYesNo, "sistem aplikasi")
Select Case pesan
Case vbYes
Application.Visible = False
UserForm1.Show
Case vbNo
End
Application.Visible = False
Application.Quit
End Select

Keterangan gambar :