Cara Menggunakan MsgBox dan InputBox VBA
Berinteraksi dengan user sangatlah penting dalam pemrograman, pengguna program nantinya dapat berinteraksi dengan user, salah satunya adalah dengan cara merespon pilihan dan input nilai dalam program. anda dapat menggunakan Kotak Pesan / Message Boxes (MsgBox) dan InputBox. pada latihan kali ini kita akan mempelajari Cara menggunakan MsgBox dan InputBox dalam VBA Excel.
Cara menggunakan MsgBox
Message Boxes adalah adalah kotak pesan yang tampil pada layar monitor yang berfungsi untuk berinteraksi dengan user. Message boxes sering disebut sebagai MsgBox dalam VBA dapat menampilkan beberapa variasi tombol, icon, dan text judul pesan. Jika dibutuhkan MsgBox juga dapat berfungsi untuk menampilkan sebuah nilai yang jika sebuah tombol diklik oleh user.
Sintax MsgBox:
MsgBox(prompt[,buttons][,title][,helpfile][,context])
Penjelasan:
- Prompt adalah Ekspresi string yang akan di tampilkan pada kotak pesan
- Buttons adalah Espresi nomor opsional yang mendefinisikan jenis tombol, jenis icon yang digunakan dalam MsgBox.
- Title merupakan Ekspresi string optional yang digunakan sebagai judul kotak pesan. Default title pada MsgBox adalah “Microsoft Excel”.
- Helpfile menambahkan help bersifat optional, anda dapat menambahkan helpfile untuk menampilkan pesan penggunaan MsgBox.
- Context Menambahkan context bersifat optional, berisi ekspresi numeric untuk mengidentifikasi topik yang berkaitan dengan helpfile.
Menuliskan kotak pesan (MsgBox) pada VBA dapat anda gunakan didalam sebuah nama variable, atau Msgbox yang akan menampilkan Nilai dari variable tersebut.
Contoh Penulisan MsgBox:
Nilai = MsgBox(“apakah anda yakin akan menjalankan program?”,_ 36, “Program inventory”) Nilai = MsgBox(“apakah anda yakin akan menjalankan program?”,_ vbYesNo, “Program inventory”)
Jenis button (tombol) Msgbox:
Ada Berbagai jenis dan type tombol dalam MsgBox, masing-masing tombol dapat anda gunakan sesuai dengan kebutuhan program. berikut ini adalah jenis-jenis tombol dalam MsgBox
Value | Konstanta | Tombol |
0 | VbOKOnly | OK |
1 | vbOKCancel | OK dan Cancel |
2 | vbAbortRetryIgnore | Abort, Retry, dan Ignore |
3 | vbYesNoCancel | Yes, No, dan Cancel |
4 | vbYesNo | Yes dan No |
5 | vbRetryCancel | Retry dan cancel |
16384 | vbMsgBoxHelpButton | Menampilkan dialog Help |
Jenis Icon pada Msgbox
Anda juga dapat mengubah tampilan icon dalam Msgbox dengan tampilan VbCritical, VbQuestion atau yang lainya, berikut ini value dan jenis icon yang dapat anda gunakan.
Value | Konstanta | Icon |
16 | vbCritical | ![]() |
32 | VbQuestion | ![]() |
48 | VbExclamation | ![]() |
64 | VbInformation | ![]() |
MsgBox Return Value
Fungsi message boxes akan mengembalikan nilai jika tombol didalam MsgBox diklik. Anda dapat mereferensikan nilai berdasarkan nomor atau konstanta tersebut.
Tombol | Konstanta | Value return |
OK | vbOK | 1 |
Cancel | vbCancel | 2 |
Abort | vbAbort | 3 |
Retry | vbRetry | 4 |
Ignore | vbIgnore | 5 |
Yes | vbYes | 6 |
No | vbNo | 7 |
Contoh penggunaan MsgBox
Buatlah sebuah prosedur dengan Events worksheets_activate untuk menjalankan prosedur isi data dengan menambahkan kotak pesan (MsgBox).
- Buka File Sample xlsm
- Tambahakan perintah program dalam Sheet1(DATA) module
- Tuliskan perintah dibawah ini
- Jalan program menggunakan F5
- Klik OK pada Msgbox dan prosedur Isi_data akan dijalankan
- Jalankan kembali menggunakan F5
- Klik Cancel pada Msgbox maka prosedur Isi_data tidak dijalankan dan keluar dari program excel.
Cara Menggunakan InputBox
Inputbox adalah tampilan interaksi dengan user untuk menginput informasi dan mengembalikan nilainya menjadi sebuah string.
Syntax InputBox
InputBox(prompt[, title][,default][,xpos, ypos[,helpfile, context])
Contoh:
strNilai = InputBox(“Masukan Nilai”)
Penjelasan:
- Prompt adalah Ekspresi string yang akan di tampilkan pada inputBox, maksimum adalah 1024 karakter.
- Title merupakan Ekspresi string optional yang digunakan sebagai judul kotak pesan. Default title pada MsgBox adalah “Microsoft Excel”.
- Default merupakan ekspresi optional yang berisi respon standar. Jika anda tidak menambahkanya inputbox otomatis akan berisi blank (empty)
- Xpos merupakan ekspresi numeric secara horizontal untuk menampilkan inputbox disisi kiri layar. Jika anda menambahkan Xpos anda juga diharuskan menambahkan Ypos.
- Ypos merupakan ekspresi numeric secara vertikal untuk menampilkan inputbox disisi atas layar.
- Helpfile menambahkan help bersifat optional, anda dapat menambahkan helpfile untuk menampilkan pesan penggunaan Inputbox.
- Context Menambahkan context bersifat optional, berisi ekspresi numeric untuk mengidentifikasi topik yang berkaitan dengan helpfile.
Contoh Penggunaan InputBox
Gunakan inputbox untuk membuka file Filter.xlsm yang terletak lokasi folder yang sama dengan File Sample_data.
Langkah-langkah
- Buka file sample data.xlsm
- Tambahkan buah prosedur bernama Latihan_inputbox
- Tambahkan 2 variabel bernama strFilelocation dan strFile
- Deklarasikan variable tersebut dengan jenis data string
- Tuliskan perintah secara lengkap seperti dibawah ini
- Jalankan menggunakan F5 atau F8