Microsoft Office

Part VI
Programming Excel with VBA
Displaying a UserForm
You also need to write a procedure to display the UserForm. You use the Show method of the UserForm
object. The following procedure displays the UserForm named UserForm1:
Sub ShowDialog()
UserForm1.Show
End Sub
This procedure should be stored in a regular VBA module (not the code module for the UserForm). If your
VB project doesn’t have a normal VBA module, choose Insert ➪ Module to add one.
When the ShowDialog procedure is executed, the UserForm is displayed. What happens next depends on
the event-handler procedures that you create.
A UserForm Example
The preceding section is, admittedly, rudimentary. This section demonstrates how to develop a UserForm.
This example is rather simple. The UserForm displays a message to the user — something that can be
accomplished more easily by using the MsgBox function. However, a UserForm gives you a lot more flexibility
in terms of formatting and layout of the message.
ON the CD-ROM
This workbook is available on the companion CD-ROM. The file is named show message.xlsm.
Creating the UserForm
If you’re following along on your computer, start with a new workbook. Then follow these steps:
1. Choose Developer ➪ Visual Basic (or press Alt+F11) to activate the VB Editor window.
2. In the VB Editor Project window, double-click your workbook’s name to activate it.
3. Choose Insert ➪ UserForm. The VB Editor adds an empty form named UserForm1 and displays
the Toolbox.
4. Press F4 to display the Properties window and then change the following properties of the
UserForm object:
Property
Name
Caption
Change To
AboutBox
About This Workbook
5. Use the Toolbox to add a Label object to the UserForm.
6. Select the Label object. In the Properties window, enter any text that you want for the
label’s Caption.
7. In the Properties window, click the Font property and adjust the font. You can change the
typeface, size, and so on. The changes then appear in the form. Figure 41.8 shows an example of
a formatted Label control.
724