5 Jenis Massage Box VBA Excel

Bagaimana Cara Membuat Kotak Pesan Di Excel ?
Apa Rumus Membuat Kotak Pesan Di Excel ?
Kode Macro Membuat Kotak Pesan Di Excel

Ada beberapa jenis kotak pesan yang terdapat di Microsoft Excel salah satunya kotak pesan yang berjenis VB Information atau VB Ok Only dan masih banyak lagi.

Membuat kotak pesan di excel sebenarnya sama saja, baik kotak pesan yang berjenis VB Exlamation, VB Critical atau yang lainnya sebenarnya sama saja itu hanya saja yang membedakan adalah jenis dari perintahnya.

Langkah Membuat Kotak Pesan Di Excel Menggunakan VBA

1. Buka Microsoft Excel Anda dan simpan dengan type .xlsb atau .xlsm

2. Buat 5 buah tombol melalui menu Developer > Insert > ActiveX Control > CommandButton

3. klik kanan pada tombol "Jenis 1" dan pilih "View Code" dan taruh kode macro dibawah ini pada VBA excel Anda

MsgBox "Selamat Datang Di www.dolananexcel.id" _ & vbCrLf & "" _ & vbCrLf & "Nama : Dolanan Excel" _ & vbCrLf & "Alamat : https://www.dolananexcel.site/" _ , vbInformation, "Belajar VBA Excel"

Maka pesan excel yang dihasilkan akan seperti dibawah ini

4. klik kanan pada tombol "Jenis 2" dan pilih "View Code" dan taruh kode macro dibawah ini pada VBA excel Anda

MsgBox "maaf, nama yang anda cari tidak ada", vbExclamation

Maka pesan excel yang dihasilkan akan seperti dibawah ini

5. klik kanan pada tombol "Jenis 3" dan pilih "View Code" dan taruh kode macro dibawah ini pada VBA excel Anda

MsgBox "STOP !!, VBA belum berjalan", vbCritical

Maka pesan excel yang dihasilkan akan seperti dibawah ini

6. klik kanan pada tombol "Jenis 4" dan pilih "View Code" dan taruh kode macro dibawah ini pada VBA excel Anda

pesan = MsgBox("Verifikasi ID GAGAL, apakah Anda ingin mengulang", vbYesNoCancel) Select Case pesan Case vbYes MsgBox "ID Terverifikasi", vbOKOnly Case vbNo MsgBox "Terjadi kesalahan", vbCritical MsgBox "Anda akan dibawa ke halaman DOLANAN EXCEL" On Error Resume Next ActiveWorkbook.FollowHyperlink "https://www.dolananexcel.id" Case vbCancel End End Select

Maka pesan excel yang dihasilkan akan seperti dibawah ini

7. klik kanan pada tombol "Jenis 5" dan pilih "View Code" dan taruh kode macro dibawah ini pada VBA excel Anda

pesan = MsgBox("siapa nama Anda ?", vbYesNo, "tanya?") Select Case pesan Case vbYes pesan1 = MsgBox("nama saya Admin", vbYesNo, "jawab") Select Case pesan1 Case vbYes pesan2 = MsgBox("tinggal dimana?", vbYesNo, "tanga?") Select Case pesan2 Case vbYes pesan3 = MsgBox("di DOLANAN EXCEL", vbYesNo, "jawab") Select Case pesan3 Case vbYes pesanakhir = MsgBox("oke terimakasih :)", vbOKOnly, "akhir") Case vbNo End End Select: End Select: End Select: End Select

Maka pesan excel yang dihasilkan akan seperti dibawah ini

Jika Anda melakukan langkah-langkah diatas dengan benar dan penempatan kode macro juga benar, maka sistem akan bekerja sesuai insturuksi yang Anda berikan.

File Penerapan Untuk Pemahaman Mendalam