MsgBox function in Excel VBA
Welcome
back
In this article, we will learn a very beautiful function of the Excel VBA functions, which is the
MsgBox in Excel programming
.png)
MsgBox performs
a very important function, which is to display a message in a dialog box and
wait for the user to click on the button until it returns an integer to the
button that the user clicked on
Syntax
MsgBox (prompt, [ buttons, ] [ title, ] [ helpfile], context(
|
Part |
Description |
|
prompt |
Required. String expression displayed
as the message in the dialog box. The maximum length of prompt is
approximately 1024 characters, depending on the width of the characters used.
If prompt consists of more than one line, you can separate
the lines by using a carriage return character (Chr(13)), a linefeed
character (Chr(10)), or carriage return - linefeed character
combination (Chr(13) & Chr(10)) between each line. |
|
buttons |
Optional. Numeric
expression that is the
combination of values specifying the number and type of buttons to display,
the icon style to use, the identity of the default button, and the modality
of the message box. If omitted, the default value for buttons is
0. |
|
title |
Optional. String expression displayed in the
title bar of the dialog box. If you omit title, the application
name is placed in the title bar. |
|
helpfile |
Optional. String expression that identifies
the Help file to use to provide context-sensitive Help for the dialog box.
If helpfile is provided, context must also
be provided. |
|
context |
Optional. Numeric expression that is the
Help context number assigned to the appropriate Help topic by the Help
author. If context is provided, helpfile must
also be provided. |
Settings
The buttons argument settings
are:
|
Constant |
Value |
Description |
|
vbOKOnly |
0 |
Display OK button only. |
|
vbOKCancel |
1 |
Display OK and Cancel buttons. |
|
vbAbortRetryIgnore |
2 |
Display Abort, Retry, and Ignore buttons. |
|
vbYesNoCancel |
3 |
Display Yes, No, and Cancel buttons. |
|
vbYesNo |
4 |
Display Yes and No buttons. |
|
vbRetryCancel |
5 |
Display Retry and Cancel buttons. |
|
vbCritical |
16 |
Display Critical Message icon. |
|
vbQuestion |
32 |
Display Warning Query icon. |
|
vbExclamation |
48 |
Display Warning Message icon. |
|
vbInformation |
64 |
Display Information Message icon. |
|
vbDefaultButton1 |
0 |
First button is default. |
|
vbDefaultButton2 |
256 |
Second button is default. |
|
vbDefaultButton3 |
512 |
Third button is default. |
|
vbDefaultButton4 |
768 |
Fourth button is default. |
|
vbApplicationModal |
0 |
Application modal; the user must respond to the message
box before continuing work in the current application. |
|
vbSystemModal |
4096 |
System modal; all applications are suspended until the
user responds to the message box. |
|
vbMsgBoxHelpButton |
16384 |
Adds Help button to the message box. |
|
vbMsgBoxSetForeground |
65536 |
Specifies the message box window as the foreground window. |
|
vbMsgBoxRight |
524288 |
Text is right-aligned. |
|
vbMsgBoxRtlReading |
1048576 |
Specifies text should appear as right-to-left reading on
Hebrew and Arabic systems. |
Hence, it is clear to us that the first set of values (0-5) describes
the number and type of buttons displayed in the dialog box; The second group
(16, 32, 48, 64) describes the style of the icon; The third group (0, 256, 512)
defines the default button; And the fourth group (0, 4096) defines the message
box method. When combining numbers to create a final value for the button
argument, use only one number from each group.
Return
values
|
Constant |
Value |
Description |
|
vbOK |
1 |
OK |
|
vbCancel |
2 |
Cancel |
|
vbAbort |
3 |
Abort |
|
vbRetry |
4 |
Retry |
|
vbIgnore |
5 |
Ignore |
|
vbYes |
6 |
Yes |
|
vbNo |
7 |
No |
Examples of message
boxes in Excel
Sub
example_msgbox()
Dim
Msg, Style, Title, Help, Ctxt, Response, MyString
Msg
= "Do you want to continue ?"
' Define message.
Style
= vbYesNo Or vbCritical Or vbDefaultButton2
' Define buttons.
Title
= "MsgBox Demonstration" '
Define title.
Help
= "DEMO.HLP" ' Define Help
file.
Ctxt
= 1000 ' Define topic context.
' Display message.
Response
= MsgBox(Msg, Style, Title, Help, Ctxt)
If
Response = vbYes Then ' User chose
Yes.
MyString = "Yes" ' Perform some action.
Else ' User chose No.
MyString = "No" ' Perform some action.
End
If
End Sub
Related
Articles
Input
box function in excel vba