Message Box

Updated on July 25, 2023 . 3 min read

MsgBox adalah sebuah fungsi di VBA (Visual Basic for Applications) yang digunakan untuk menampilkan kotak pesan dalam program.

Kotak pesan ini dapat digunakan untuk memberikan informasi kepada pengguna, meminta konfirmasi dari pengguna, atau mengambil input dari pengguna.

Syntax MsgBox

Berikut adalah syntax dari MsgBox pada VBA:

MsgBox(prompt [, buttons] [, title] [, helpfile, context])

Parameter MsgBox

Berikut adalah parameter yang digunakan dalam MsgBox pada VBA:

prompt (Wajib): parameter ini digunakan untuk menentukan teks yang akan ditampilkan dalam kotak pesan. Parameter ini dapat berupa nilai string atau ekspresi.
buttons (Opsional) : parameter ini digunakan untuk menentukan tombol yang ditampilkan dalam kotak pesan. Parameter ini dapat memiliki nilai dari kombinasi konstanta yang tersedia pada VBA.
title (Opsional) : parameter ini digunakan untuk menentukan judul kotak pesan.
helpfile: Opsional, parameter ini digunakan untuk menentukan nama file bantuan.
context: Opsional, parameter ini digunakan untuk menentukan konteks dari file bantuan (help file).

Berikut adalah contoh penggunaan MsgBox sederhana pada VBA:

Contoh penggunaan MsgBox

Sub Example()
    MsgBox "Hello, World!"
End Sub

Pada contoh di atas, MsgBox digunakan untuk menampilkan pesan “Hello, World!” dalam kotak pesan.

Pada sebuah Msgbox isian yang wajib diisi adalah Pesannya sedangkan bagian pada Buttons dan title itu optional. Untuk button dan style ada beberapa konstantan yang bisa digunakan diantaranya:

Group	Constants	Value	Description
A	vbOKOnly	0	OK button only (default)
A	vbOKCancel	1	OK and Cancel buttons
A	vbAbortRetryIgnore	2	Abort, Retry, and Ignore buttons
A	vbYesNoCancel	3	Yes, No, and Cancel buttons
A	vbYesNo	4	Yes and No buttons
A	vbRetryCancel	5	Retry and Cancel buttons
B	vbCritical	16	Critical message
B	vbQuestion	32	Warning query
B	vbExclamation	48	Warning message
B	vbInformation	64	Information message
C	vbDefaultButton1	0	First button is default (default)
C	vbDefaultButton2	256	Second button is default
C	vbDefaultButton3	512	Third button is default
C	vbDefaultButton4	768	Fourth button is default
D	vbApplicationModal	0	Application modal message box (default)
D	vbSystemModal	4096	System modal message box
E	vbMsgBoxHelpButton	16384	Adds Help button to the message box
E	VbMsgBoxSetForeground	65536	Specifies the message box window as the foreground window
E	vbMsgBoxRight	524288	Text is right aligned
E	vbMsgBoxRtlReading	1048576	Specifies text should appear as right-to-left reading on Hebrew and Arabic systems

Setiap contants bisa digabungkan dengan constant lain yang belainan group, misalnya: menggabungkan Constants Group A dan Group B

Jika ingin menampilkan tombol yes dan no berserta icon Informasi maka bisa menggunakan

vbYesNo + vbInformation

Sub Example()
    Dim answer As VbMsgBoxResult
    answer = MsgBox("Do you want to save the changes?", vbYesNoCancel + vbQuestion, "Save Changes")
    If answer = vbYes Then
        'Save the changes
    ElseIf answer = vbNo Then
        'Don't save the changes
    Else
        'Cancel the operation
    End If
End Sub

atau bisa juga langsung menjumlahkan nilainya constantsnya misalnya vbYesNoCancel itu 3 dan vbInformation adalah 64 jadi bisa langsung ditulis dengan angka 67, atau sama juga artinya dengan 3+64

Sub Example()
    Dim answer As VbMsgBoxResult
    answer = MsgBox("Do you want to save the changes?", 67 , "Save Changes")
    If answer = vbYes Then
        'Save the changes
    ElseIf answer = vbNo Then
        'Don't save the changes
    Else
        'Cancel the operation
    End If
End Sub

Pada contoh di atas, MsgBox digunakan untuk menampilkan pesan “Do you want to save the changes?” dengan tiga tombol, yaitu Yes, No, dan Cancel. Selain itu, kotak pesan juga memiliki judul “Save Changes”. dan juga sebuah icon tanda tanya.