Microsoft Office

Creating UserForms 41
The following example uses a combination of constants to display a message box with a Yes button, a No
button (vbYesNo), and a question mark icon (vbQuestion); the second button is designated as the
default button (vbDefaultButton2) — which is the button that is executed if the user presses Enter. For
simplicity, these constants are assigned to the Config variable, and Config is then used as the second
argument in the MsgBox function.
Sub GetAnswer()
Config = vbYesNo + vbQuestion + vbDefaultButton2
Ans = MsgBox(“Process the monthly report?”, Config)
If Ans = vbYes Then RunReport
If Ans = vbNo Then Exit Sub
End Sub
Figure 41.4 shows how this message box appears when the GetAnswer Sub is executed. If the user clicks
the Yes button (or presses Enter), the routine executes the procedure named RunReport (which is not
shown). If the user clicks the No button, the procedure is ended with no action. Because the title argument
was omitted in the MsgBox function, Excel uses the default title (“Microsoft Excel”).
FIGURE 41.4
The second argument of the MsgBox function determines what appears in the message box.
The Sub procedure that follows is another example of using the MsgBox function:
Sub GetAnswer2()
Msg = “Do you want to process the monthly report?”
Msg = Msg & vbNewLine & vbNewLine
Msg = Msg & “Processing the monthly report will take approximately “
Msg = Msg & “15 minutes. It will generate a 30-page report for all “
Msg = Msg & “sales offices for the current month.”
Title = “XYZ Marketing Company”
Config = vbYesNo + vbQuestion
Ans = MsgBox(Msg, Config, Title)
If Ans = vbYes Then RunReport
If Ans = vbNo Then Exit Sub
End Sub
This example demonstrates an efficient way to specify a longer message in a message box. A variable (Msg)
and the concatenation operator (&) are used to build the message in a series of statements. vbNewLine is a
constant that represents a break character. (Using two line breaks inserts a blank line.) The title argument is
also used to display a different title in the message box. Figure 41.5 shows how this message box appears
when the procedure is executed.
719