Используйте MessageBoxes с помощью VBA в Microsoft Excel
В этой статье мы познакомимся с окном сообщений в vba.
Вот примеры Excel vba msgbox о том, как использовать msgbox в excel:
MsgBox "The job is done !"
' messagebox with text and OK-button
MsgBox "The job is done !", vbInformation
' messagebox with text, OK-button and an information-icon
MsgBox "The job is done !", vbCritical
' messagebox with text, OK-button and a warning-icon
MsgBox "The job is done !", vbInformation, "My Title"
' messagebox with text, OK-button, information-icon and a custom title text
Answer = MsgBox("Do you want to continue ?", vbYesNo)
' messagebox with YES- and NO-buttons,
' the result is an integer, the constants are named vbYes and vbNo.
Answer = MsgBox("Do you want to continue ?", vbYesNo + vbQuestion)
' messagebox with YES- and NO-buttons and a question-icon
Answer = MsgBox("Do you want to continue ?", vbYesNo + vbQuestion, "My Title")
' messagebox with YES- and NO-buttons,
' question-icon and a custom title text
Answer = MsgBox("Do you want to continue ?", vbYesNo + 256 + vbQuestion, "My Title")
' messagebox with YES- and NO-buttons, question-icon and a custom title text,
' the NO-button is default
Answer = MsgBox("Do you want to continue ?", vbOKCancel, "My Title")
' messagebox with OK- and CANCEL-buttons, the result is an integer,
' the constants are named vbOK og vbCancel.
Результат функции MsgBox-VBA можно сохранить в переменной.
Переменная может иметь тип Integer.
Эта переменная может использоваться позже в коде макроса следующим образом:
Answer = MsgBox("Do you want to continue ?", _
vbOKCancel, "My Title")
If Answer = vbCancel Then Exit Sub ' the macro ends if the user selects the CANCEL-button
Или вот так:
If MsgBox("Do you want to continue ?", vbOKCancel, _
"My Title") = vbCancel then Exit Sub