Message Box

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:

GroupConstantsValueDescription
AvbOKOnly0OK button only (default)
AvbOKCancel1OK and Cancel buttons
AvbAbortRetryIgnore2AbortRetry, and Ignore buttons
AvbYesNoCancel3YesNo, and Cancel buttons
AvbYesNo4Yes and No buttons
AvbRetryCancel5Retry and Cancel buttons
BvbCritical16Critical message
BvbQuestion32Warning query
BvbExclamation48Warning message
BvbInformation64Information message
CvbDefaultButton10First button is default (default)
CvbDefaultButton2256Second button is default
CvbDefaultButton3512Third button is default
CvbDefaultButton4768Fourth button is default
DvbApplicationModal0Application modal message box (default)
DvbSystemModal4096System modal message box
EvbMsgBoxHelpButton16384Adds Help button to the message box
EVbMsgBoxSetForeground65536Specifies the message box window as the foreground window
EvbMsgBoxRight524288Text is right aligned
EvbMsgBoxRtlReading1048576Specifies 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.

Setelah pengguna memilih tombol, program akan mengeksekusi perintah yang sesuai dengan pilihan pengguna.

List Tutorial
Apa yang sedang kamu cari?

Temukan beberapa kata kunci yang diinginkan.

Search