Thursday, March 17, 2011

How to use Visual Basic for Applications (VBA) to change UserForms in Excel 2003, Excel 2002, and Excel 2000


This article describes how to change UserForms programmatically in Microsoft Excel. It includes examples and Microsoft Visual Basic for Applications (VBA) macros that show you how to take advantage of the capabilities of UserForms and how to use the ActiveX™ controls that are available for UserForms.

An introduction to the basic principles of UserForms describes how to display UserForms, how to temporarily hide UserForms, and how to dismiss UserForms. You are also shown how to use the most common events that are associated with UserForms— the Initialize event, the Click event, and the Terminate event. One or more of the following examples demonstrate how to use each of the following ActiveX™ controls in a UserForm:
  • Label control
  • TextBox control
  • CommandButton control
  • ListBox control
  • ComboBox control
  • Frame control
  • OptionButton control
  • CheckBox control
  • ToggleButton control
  • TabStrip control
  • MultiPage control
  • ScrollBar control
  • SpinButton control
  • RefEdit control
  • Image control


Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.
serForm basics
How to display a UserForm
The syntax that is used to display a UserForm programmatically is the following:
UserFormName.Show
To display a UserForm that is named UserForm1, use the following code:
UserForm1.Show
You can load a UserForm into memory without actually displaying it. It may take a complex UserForm several seconds to appear. Because you can preload a UserForm into memory, you can decide when to incur this overhead. To load UserForm1 into memory without displaying it, use the following code:
Load UserForm1
To display the UserForm, you must use the Show method that was previously shown.
How to temporarily hide a UserForm
If you want to temporarily hide a UserForm, use the Hide method. You may want to hide a UserForm if your application involves moving between UserForms. To hide a UserForm, use the following code:
UserForm1.Hide
For additional information, click the following article number to view the article in the Microsoft Knowledge Base:
213747  (http://support.microsoft.com/kb/213747/ ) XL2000: How to move between custom UserForms with command buttons
How to remove a UserForm from memory
To remove a UserForm from memory, use the Unload statement. To unload a UserForm that is named UserForm1, use the following code:
Unload UserForm1
If you unload a UserForm in an event procedure that is associated with a UserForm or that is associated with a control on a UserForm (for example, you click a CommandButton control), you can use the "Me" keyword instead of the name of the UserForm. To use the "Me" keyword to unload a UserForm, use the following code:
Unload Me
How to use UserForm events
UserForms support many predefined events that you can attach VBA procedures to. When the event occurs, the procedure that you attached to the event runs. A single action that is performed by a user can initiate multiple events. Among the most frequently used events for a UserForm are the Initialize event, the Click event, and the Terminate event.

Note A Visual Basic module that contains an event procedure may be referred to as a module "behind" the UserForm. A module that contains event procedures is not visible in the Modules collection of the Microsoft Project Explorer window of the Visual Basic Editor. You must double-click the body of a UserForm to view the UserForm Code module.
How to trap UserForm events
To trap UserForm events, follow these steps:
  1. Create a new workbook in Excel.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Double-click the UserForm to display the Code window for the UserForm.
  5. In the module, type the following code:
6.  Private Sub UserForm_Click()
7.   
8.      Me.Height = Int(Rnd * 500)
9.      Me.Width = Int(Rnd * 750)
10. 
11.End Sub
12. 
13.Private Sub UserForm_Initialize()
14. 
15.    Me.Caption = "Events Events Events!"
16.    Me.BackColor = RGB(10, 25, 100)
17. 
18.End Sub
19. 
20.Private Sub UserForm_Resize()
21. 
22.    msg = "Width: " & Me.Width & Chr(10) & "Height: " & Me.Height
23.    MsgBox prompt:=msg, Title:="Resize Event"
24. 
25.End Sub
26. 
27. 
28.Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
29. 
30.    msg = "Now Unloading " & Me.Caption
31.    MsgBox prompt:=msg, Title:="QueryClose Event"
32. 
33.End Sub
34. 
35.Private Sub UserForm_Terminate()
36. 
37.    msg = "Now Unloading " & Me.Caption
38.    MsgBox prompt:=msg, Title:="Terminate Event"
39. 
End Sub
  1. On the Run menu, click Run Sub/UserForm.
When the UserForm is first loaded, the macro uses the Initialize event to change the Caption property of the UserForm to "Events Events Events!" and the BackColor property to dark blue.

When you click the UserForm, you initiate the Click event. The Click event resizes the UserForm. Because you created a procedure for the Resize event, you receive two message boxes after you click the UserForm. The Resize event occurs two times because the code behind the Click event changes both the Width property and the Height property of the UserForm.

Closing the UserForm initiates the QueryClose event. The QueryClose event displays a message box that contains the caption that you gave the UserForm in the code for the Initialize event. You can use the QueryClose event when you want to perform a certain set of actions if the user closes the UserForm.

The Terminate event then generates a message box that states that the caption of the UserForm is UserForm1. The Terminate event occurs after the UserForm is removed from memory and the caption of the UserForm returns to its original state.
How to prevent a UserForm from being closed by using the Close button
When you run a UserForm, a Close button is added to the upper-right corner of the UserForm window. If you want to prevent the UserForm from being closed by using the Close button, you must trap the QueryClose event.

The QueryClose event occurs just before the UserForm is unloaded from memory. Use the CloseMode argument of the QueryClose event to determine how the UserForm is closed. The vbFormControlMenu value for the CloseMode argument indicates that the Close button was clicked. To keep the UserForm active, set the Cancel argument of the QueryClose event to True. To use the QueryClose event to prevent a UserForm from being closed by using the Close button, follow these steps:
  1. Create a new workbook in Excel.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a CommandButton control to the UserForm.
  5. Double-click the UserForm to display the Code window for the UserForm.
  6. In the Code window, type the following code:
7.  Private Sub CommandButton1_Click()
8.   
9.      Unload Me
10. 
11.End Sub
12. 
13.Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
14. 
15.    IF CloseMode = vbFormControlMenu Then
16.        Cancel = True
17.        Me.Caption = "Click the CommandButton to close Me!"
18.    End If
19. 
End Sub
  1. On the Run menu, click Run Sub/UserForm.
The UserForm is not closed when you click the Close button. You must click the CommandButton control to close the UserForm.

VBA code
Excel includes fifteen different controls that you can use on UserForms. This section contains various examples that use these controls programmatically.

Note The VBA code that is included in this article does not contain examples that affect all the properties and events for the controls. If you have to, you can use the Properties window to see a list of the properties that are available for a control. To see a list of properties, on the View menu, click Properties Window.
How to use design mode to edit controls
When you use the Visual Basic Editor to design a dialog box, you are using design mode. In design mode, you can edit controls and you can change the properties of a control on a UserForm in the Properties window. To display the Properties window, on the View menu, click Properties Window.

Note Controls do not respond to events while you are in design mode. When you run a dialog box to display it the way that users see it, the program is in run mode. Changes that you make to the properties of a control in run mode are not retained when the UserForm is unloaded from memory.

Note Controls do respond to events in run mode.
How to refer to controls on a UserForm
How you refer to controls programmatically depends on the type of Visual Basic module sheet where you run the code. If the code is running from a General module, the syntax is the following:
UserFormName.Controlname.Property = Value
For example, if you want to set the Text property of a TextBox control that is named TextBox1 on a UserForm that is named UserForm1 to the value of Bob, use the following code:
UserForm1.TextBox1.Text = "Bob"
If the code is in a procedure that is initiated by an event of a control or by the UserForm, you do not have to refer to the name of the UserForm. Instead, use the following code:
TextBox1.Text = "Bob"
When you attach code to an object, the code is attached to one of the events of that object. In many of the examples in this article, you attach code to the Click event of the CommandButton object.
Label controls
Label controls are mainly used to describe other controls on a UserForm. A Label control cannot be edited by the user while the UserForm is running. Use the Caption property to set or to return the text in a Label control. Other frequently used properties for formatting a Label control include the Font property and the ForeColor property.
How to use a WITH statement to format a Label control
To use the WITH statement to change the properties of a Label control, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a Label control to the UserForm.
  5. Add a CommandButton control to the UserForm.
  6. Double-click the CommandButton control to open the Code window for the UserForm.
  7. In the Code window, type the following code for the CommandButton1 Click event:
8.  Private Sub CommandButton1_Click()
9.   
10.    With Label1
11.        ' Set the text of the label.
12.        .Caption = "This is Label Example 1"
13.        ' Automatically size the label control.
14.        .AutoSize = True
15.        .WordWrap = False
16.        ' Set the font used by the Label control.
17.        .Font.Name = "Times New Roman"
18.        .Font.Size = 14
19.        .Font.Bold = True
20.        ' Set the font color to blue.
21.        .ForeColor = RGB(0, 0, 255)
22.    End With
23. 
End Sub
  1. On the Run menu, click Run Sub/UserForm.
  2. Click the CommandButton.
The text "This is Label Example 1" appears on the Label control in bold Times New Roman with a font size of 14.
TextBox controls
TextBox controls are frequently used to gather input from a user. The Text property contains the entry that is made in a TextBox control.
How to use a TextBox control to validate a password
If you set the PasswordChar property of a TextBox control, it becomes a "masked-edit" control. Every character that is typed in the TextBox control is replaced visually by the character that you specify. To use a TextBox control to validate a password, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a TextBox control to the UserForm.
  5. On the View menu, click Properties to make the Properties window visible.
  6. In the PasswordChar property of the TextBox control, type *.

    Note You are changing the value to an asterisk.
  7. Add a CommandButton control to the UserForm.
  8. Double-click the CommandButton control to open the Code window for the UserForm.
  9. In the Code window, type the following code for the CommandButton1 Click event:
10.Private Sub CommandButton1_Click()
11. 
12.    If TextBox1.Text <> "userform" Then
13.        MsgBox "Password is Incorrect. Please reenter."
14.        TextBox1.Text = ""
15.        TextBox1.SetFocus
16.    Else
17.        MsgBox "Welcome!"
18.        Unload Me
19.    End If
20. 
21.End Sub
22. 
  1. On the Run menu, click Run Sub/UserForm.
  2. Type the password userform in the TextBox control.
  3. Click the CommandButton control.
For this example, the password is "userform". If you type an incorrect password, you receive a message box that states that your password is incorrect, the TextBox control is cleared, and then you can retype the password. When you type a correct password, you receive a welcome message, and the UserForm is closed.

CommandButton controls
You can use a CommandButton control to start a VBA procedure. The VBA procedure is typically attached to the Click event of the CommandButton control. To use a CommandButton control that runs a procedure when the Click event occurs, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a CommandButton control to the UserForm.
  5. Double-click the CommandButton control to display the Code window for the UserForm.
  6. In the Code window, type the following code:
7.  Private Sub CommandButton1_Click()
8.   
9.      red = Int(Rnd * 255)
10.    green = Int(Rnd * 255)
11.    blue = Int(Rnd * 255)
12.    CommandButton1.BackColor = RGB(red, green, blue)
13. 
End Sub
  1. On the Run menu, click Run Sub/UserForm.

The background color of the CommandButton1 control changes every time that you click it.

ListBox controls

The purpose of the ListBox control is to present the user with a list of items to select from. You can store the item list for a ListBox control on an Excel worksheet. To populate a ListBox control with a range of cells on a worksheet, use the RowSource property. When you use the MultiSelect property, you can set up a ListBox control to accept multiple selections.
How to obtain the currently selected item from the ListBox control
Use the Value property of a ListBox control to return the currently selected item. To return the currently selected item in a single select ListBox control, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. In cells A1:A5 on Sheet1, type the values that you want to use to populate the ListBox control.
  3. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  4. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  5. Add a ListBox control to the UserForm.
  6. Double-click the ListBox control to display the Code window for the ListBox control.
  7. In the Code window, type the following code for the ListBox1 Click event:
8.  Private Sub ListBox1_Click()
9.   
10.    MsgBox ListBox1.Value
11. 
End Sub
  1. On the Run menu, click Run Sub/UserForm.
When you click an item in the list, a message box appears with the currently selected item.
How to obtain the selected items in a multiple select ListBox control
To determine the items that are selected in a multiple select ListBox control, you must loop through all the items in the list, and then query the Selected property. To return the currently selected items in a multiple select ListBox control, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. In cells A1:A5 on Sheet1, type the values that you want to use to populate the ListBox control.
  3. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  4. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  5. Add a ListBox control to the UserForm.
  6. On the View menu, click Properties to see the Properties window.
  7. Type the values that are indicated for the following ListBox control properties:
8.     Property         Value
9.     -----------     -----------------------
10.   MultiSelect      1 - frmMultiSelectMulti
   RowSource        Sheet1!A1:A8
  1. Add a CommandButton control to the UserForm.
  2. Double-click the CommandButton control to display the Code window for the UserForm.
  3. In the Code window, type the following code for the CommandButton1 Click event:
14.Sub CommandButton1_Click ()
15. 
16.       ' Loop through the items in the ListBox.
17.       For x = 0 to ListBox1.ListCount - 1
18. 
19.          ' If the item is selected...
20.          If ListBox1.Selected(x) = True Then
21. 
22.             ' display the Selected item.
23.             MsgBox ListBox1.List(x)
24.          End If
25.       Next x
26. 
    End Sub
  1. On the Run menu, click Run Sub/UserForm.
  2. Select one or more items in the list.
  3. Click CommandButton1.
After you click CommandButton1, every item that you selected in the ListBox control appears in a separate message box. After all the selected items appear in a message box, the UserForm is automatically closed.
How to use the RowSource property to populate a ListBox control with cells on a worksheet
To use the RowSource property to populate a ListBox control from a range of cells on a worksheet, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. In cells A1:A5 on Sheet1, type the values that you want to use to populate the ListBox control.
  3. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  4. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  5. Add a ListBox control to the UserForm.
  6. Add a CommandButton control to the UserForm.
  7. Double-click the CommandButton control to display the Code window for the UserForm.
  8. In the Code window, type the following code for the CommandButton1 Click event:
9.  Private Sub CommandButton1_Click()
10.    ListBox1.RowSource = "=Sheet1!A1:A5"
End Sub
  1. On the Run menu, click Run Sub/UserForm.

    NoteListBox1 does not contain any values.
  2. Click CommandButton1.
ListBox1 is populated with the values in cells A1:A5 on Sheet1.
How to populate a ListBox control with values in an array
This example shows you how to populate a ListBox control with an array variable. You must assign the values from the array to the ListBox control one item at a time. Typically, this process requires that you use a looping structure, such as a For…Next loop. To populate a ListBox control with an array variable, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a ListBox control to the UserForm.
  5. On the Insert menu, click Module to insert a module sheet.
  6. In the Code window, type the following code:
7.  Sub PopulateListBox()
8.   
9.      Dim MyArray As Variant
10.    Dim Ctr As Integer
11.    MyArray = Array("Apples", "Oranges", "Peaches", "Bananas", "Pineapples")
12.   
13.    For Ctr = LBound(MyArray) To UBound(MyArray)
14.        UserForm1.ListBox1.AddItem MyArray(Ctr)
15.    Next
16.   
17.    UserForm1.Show
18. 
End Sub
  1. On the Tools menu, click Macros, click PopulateListBox, and then click Run.
The PopulateListBox procedure builds a simple array, and then adds the items in the array to the ListBox control by using the AddItem method. Then, the UserForm appears.
How to use a horizontal range of cells on a worksheet to populate a ListBox control
If you set the RowSource property of a ListBox control to a horizontal range of cells, only the first value appears in the ListBox control.

To populate a ListBox control from a horizontal range of cells by using the AddItem method, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. In cells A1:E1 on Sheet1, type the values that you want to use to populate the ListBox control.
  3. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  4. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  5. Add a ListBox control to the UserForm.
  6. On the Insert menu, click Module to insert a module sheet.
  7. In the Code window, type the following code:
8.  Sub PopulateListWithHorizontalRange()
9.   
10.    For Each x In Sheet1.Range("A1:E1")
11.        UserForm1.ListBox1.AddItem x.Value
12.    Next
13.   
14.    UserForm1.Show
15. 
End Sub
  1. On the Tools menu, click Macros, click PopulateListWithHorizontalRange, and then click Run.
The macro procedure loops through cells A1:E5 on Sheet1, adding the values to ListBox1 one at a time.

NoteListBox1 is not bound to cells A1:E5 on Sheet1.
How to return multiple values from a ListBox control that is bound to multiple columns of data
You can format ListBox controls to display more than one column of data. This means that the ListBox control displays more than one item on each line of the list. To return multiple values from the selected item in the list, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. Type the following data in the cells that are indicated on Sheet1:
Collapse this tableExpand this table
A1: Year
B1: Region
C1: Sales
A2: 1996
B2: North
C2: 140
A3: 1996
B3: South
C3: 210
A4: 1997
B4: North
C4: 190
A5: 1997
B5: South
C5: 195
  1. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  2. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  3. Add a Label control to the UserForm.
  4. Add a ListBox control to the UserForm.
  5. Right-click the ListBox, and then click Properties.
  6. Type or select the values that are indicated for the following properties of the ListBox control as listed in the following table:
9.     Property       Value
10.   ----------------------------
11.   BoundColumn     1
12.   ColumnCount     3
13.   ColumnHeads     True
   RowSource       Sheet1!A2:A5
  1. Double-click the ListBox control to display the Code window for the ListBox control.
  2. In the Code window, type the following code:
16.Private Sub ListBox1_Change()
17. 
18.    Dim SourceData As Range
19.    Dim Val1 As String, Val2 As String, Val3 As String
20.   
21.    Set SourceRange = Range(ListBox1.RowSource)
22.   
23.    Val1 = ListBox1.Value
24.    Val2 = SourceRange.Offset(ListBox1.ListIndex, 1).Resize(1, 1).Value
25.    Val3 = SourceRange.Offset(ListBox1.ListIndex, 2).Resize(1, 1).Value
26.   
27.    Label1.Caption = Val1 & " " & Val2 & " " & Val3
28. 
End Sub
  1. On the Run menu, click Run Sub/UserForm.
When you click an entry in the ListBox control, the label changes to display all three of the items in that entry.
How to remove all the items from a ListBox control that is bound to a worksheet
To remove all the items from a ListBox control that is bound to a worksheet, clear the value that is stored in the RowSource property. To remove items from a ListBox control that is bound to a worksheet, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. In cells A1:A5 on Sheet1, type the values that you want to use to populate the ListBox control.
  3. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  4. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  5. Add a ListBox control to the UserForm.
  6. Right-click the ListBox control, and then click Properties.
  7. In the RowSource property, type Sheet1!A1:A5.
  8. Add a CommandButton control to the UserForm.
  9. Double-click the CommandButton control to display the Code window for the CommandButton control.
  10. In the Code window, type the following code for the CommandButton1 Click event:
11.Private Sub CommandButton1_Click()
12. 
13.    ListBox1.RowSource = ""
14. 
End Sub
  1. On the Run menu, click Run Sub/UserForm.

    The ListBoxcontrol that you added to the UserForm is populated with the values that you entered on Sheet1.
  2. Click CommandButton1.
All the items are removed from ListBox1.
How to remove all the items from a ListBox control that is not bound to a worksheet
There is no single VBA command that removes all the items from a ListBox control if the list is not bound to a worksheet. To remove all the items from a ListBox control that is populated from a Visual Basic array, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a ListBox control to the UserForm.
  5. On the Insert menu, click Module to insert a module sheet.
  6. In the Code window, type the following code:
7.  Sub PopulateListBox()
8.   
9.      Dim MyArray As Variant
10.    Dim Ctr As Integer
11.    MyArray = Array("Apples", "Oranges", "Peaches", "Bananas", "Pineapples")
12.   
13.    For Ctr = LBound(MyArray) To UBound(MyArray)
14.        UserForm1.ListBox1.AddItem MyArray(Ctr)
15.    Next
16.   
17.    UserForm1.Show
18. 
End Sub
  1. Add a CommandButton control to the UserForm.
  2. Double-click the CommandButton control to display the Code window for the CommandButton control.
  3. In the Code window, type the following code for the CommandButton1 Click event:
22.Private Sub CommandButton1_Click()
23. 
24.    For i = 1 To ListBox1.ListCount
25.        ListBox1.RemoveItem 0
26.    Next I
27. 
End Sub
  1. On the Tools menu, click Macros, click PopulateListBox, and then click Run.

    The ListBox control is populated, and then the UserForm appears.
  2. Click CommandButton1.
All the items are removed from ListBox1.

ComboBox controls
You can use the ComboBox control as a drop-down list box, or as a combo box where you can select a value in a list or type a new value. The Style property determines if the ComboBox control acts as a drop-down list box or a combo box.

Note All the examples in the previous section for the ListBox control can also be applied to the ComboBox control, except for the "How to obtain the selected items in a multiple select ListBox control" example.
How to add a new item to the list if the ComboBox control is not bound to a worksheet
When you type a value that is not already in the list in the ComboBox control, you may want to add the new value to the list. To add the new value that you typed in the ComboBox control if the ComboBox control is not bound to the worksheet, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a ComboBox control to the UserForm.
  5. On the Insert menu, click Module to insert a module sheet.
  6. In the Code window, type the following code:
7.  Sub PopulateComboBox()
8.   
9.       Dim MyArray As Variant
10.     Dim Ctr As Integer
11.     MyArray = Array("Apples", "Oranges", "Peaches", "Bananas", "Pineapples")
12.   
13.     For Ctr = LBound(MyArray) To Ubound(MyArray)
14.         UserForm1.ComboBox1.AddItem MyArray(Ctr)
15.     Next
16.   
17.     UserForm1.Show
18. 
 End Sub
  1. Add a CommandButton control to the UserForm.
  2. Double-click the CommandButton control to display the Code window for the CommandButton control.
  3. In the Code window, type the following code for the CommandButton1 Click event:
22.Private Sub CommandButton1_Click()
23. 
24.     Dim listvar As Variant
25.    
26.     listvar = ComboBox1.List
27.   
28.     On Error Resume Next
29.     ' If the item is not found in the list...
30.     If IsError(WorksheetFunction.Match(ComboBox1.Value, listvar, 0)) Then
31.         ' add the new value to the list.
32.         ComboBox1.AddItem ComboBox1.Value
33.     End If
34. 
 End Sub
  1. On the Tools menu, click Macros, click PopulateListBox, and then click Run.

    The ComboBox control is populated, and then the UserForm appears.
  2. In the ComboBox control, type Mangoes (or any value that is not already in the list).
  3. Click CommandButton1.
The new value that you typed now appears at the end of the list.
How to add a new item to the list if the ComboBox control is bound to a worksheet
When a user types a value that is not already in the list in the ComboBox control, you may want to add the new value to the list. To add the new value that you typed in the ComboBox control to the list, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. In cells A1:A5 on Sheet1, type the values that you want to use to populate the ComboBox control.
  3. Select cells A1:A5 on Sheet1.
  4. On the Insert menu, point to Name, and then click Define.

    In the Names in workbook box, type ListRange , and then click OK. This creates the defined name ListRange. You can use the defined name ListRange to bind the RowSource property of the ComboBox control to the worksheet.
  5. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  6. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  7. Add a ComboBox control to the UserForm.
  8. In the Properties for ComboBox1, type Sheet1!ListRange as the RowSource property.
  9. Add a CommandButton control to the UserForm.
  10. Double-click the CommandButton control to display the Code window for the CommandButton control.
  11. In the Code window, type the following code for the CommandButton1 Click event:
12.Private Sub CommandButton1_Click()
13. 
14.    Dim SourceData As Range
15.    Dim found As Object
16.   
17.    Set SourceData = Range("ListRange")
18.    Set found = Nothing
19.    ' Try to find the value on the worksheet.
20.    Set found = SourceData.Find(ComboBox1.Value)
21.   
22.    ' If the item is not found in the list...
23.    If found Is Nothing Then
24.        ' redefine ListRange.
25.        SourceData.Resize(SourceData.Rows.Count + 1, 1).Name = "ListRange"
26.        ' Add the new item to the end of the list on the worksheet.
27.        SourceData.Offset(SourceData.Rows.Count, 0).Resize(1, 1).Value _
28.         = ComboBox1.Value
29.        ' Reset the list displayed in the ComboBox.
30.        ComboBox1.RowSource = Range("listrange").Address(external:=True)
31.    End If
32. 
End Sub
  1. On the Run menu, click Run Sub/UserForm.

    The UserForm appears on Sheet1.
  2. In the ComboBox control, type a value that is not already in the list.
  3. Click CommandButton1.
The new item that you typed in the ComboBox control is added to the list, and the list that the ComboBox control is bound to is expanded to include cells A1:A6.
How to display the list of a ComboBox control when the UserForm appears
Sometimes, it may be useful to display the list of a ComboBox control when a UserForm first appears. The following example uses the Activate event of the UserForm. To display the list of a ComboBox control, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. In cells A1:A5 on Sheet1, type the values that you want to use to populate the ComboBox control.
  3. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  4. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  5. Add a ComboBox control to the UserForm.
  6. In the Properties for ComboBox1, type Sheet1!A1:A5 as the RowSource property.
  7. Double-click the UserForm to display the Code window for the UserForm.
  8. In the Code window, type the following code for the CommandButton Click event:
9.  Private Sub UserForm_Activate()
10. 
11.           ComboBox1.DropDown
12. 
       End Sub
  1. On the Run menu, click Run Sub/UserForm.
The UserForm appears on Sheet1, and you can see the list for ComboBox1.
How to display the list of one ComboBox control when you make a selection in another ComboBox control
To automatically display the list of one ComboBox control when a choice is made in another ComboBox control, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. In cells A1:A10 on Sheet1, type the values that you want to use to populate the ComboBox control.
  3. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  4. On the Insert menu, click Module.
  5. In the Code window for the module, type the following code:
6.  Sub DropDown_ComboBox()
7.   
8.      UserForm1.ComboBox2.DropDown
9.   
End Sub
  1. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  2. Add a ComboBox control to the UserForm.
  3. In the Properties for ComboBox1, type Sheet1!A1:A5 as the RowSource property.
  4. Double-click the ComboBox control to open the Code window for the ComboBox control.
  5. In the Code window for the ComboBox control, type the following code for the ComboBox Click event:
15.Private Sub ComboBox1_Click()
16. 
17.    Application.OnTime Now, "DropDown_ComboBox"
18. 
End Sub
  1. Add a second ComboBox control to the UserForm.
  2. In the Properties for ComboBox2, type Sheet1!A6:A10 as the RowSource property.
  3. On the Run menu, click Run Sub/UserForm.
When you click an item in the ComboBox1 list , the list for ComboBox2 automatically appears.
Frame control
Use a Frame control to group logically related items in a UserForm. Frame controls are frequently used to group OptionButton controls.
How to loop through all the controls on a Frame control
To use a For Each…Next loop to access all the controls in a Frame control, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a Frame control to the UserForm.
  5. Add an OptionButton control to the Frame control.

    Repeat this step to add two more OptionButton controls in the Frame control.
  6. Double-click the Frame control to open the Code window for the Frame control.
  7. In the Code window, type the following code for the Frame Click event:
8.  Private Sub Frame1_Click()
9.   
10.    Dim Ctrl As Control
11.   
12.    For Each Ctrl In Frame1.Controls
13.        Ctrl.Enabled = Not Ctrl.Enabled
14.    Next
15. 
End Sub
  1. On the Run menu, click Run Sub/UserForm.
  2. In the UserForm, click the Frame control.
The first time that you click the Frame control, all the controls in the Frame control are unavailable. If you click the Frame control again, the controls are available again.

OptionButton control
You can use groups of OptionButton controls to make one selection among a group of options. You can use either of the following techniques to group OptionButton controls:
  • Frame control
  • GroupName property
Note The On value, the Yes value, and the True value indicate that an OptionButton is selected. The Off value, the No value, and the False value indicate that an OptionButton is not selected.
How to determine the OptionButton control that is selected when the OptionButton controls are on a Frame control
When you group OptionButtons controls by using a Frame control, you can determine the OptionButton control that is selected by looping through all the controls in the Frame control and checking the Value property of each control. To determine the OptionButton control that is selected, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a Frame control to the UserForm.
  5. Add an OptionButton control to the Frame control.

    Repeat this step to add two more OptionButton controls in the Frame control.
  6. Add a CommandButton control on the UserForm outside the Frame control.
  7. Double-click the CommandButton control to display the Code window for the UserForm.
  8. In the Code window, type the following code for the CommandButton1 Click event:
9.  Private Sub CommandButton1_Click()
10. 
11.     For Each x In Frame1.Controls
12.         If x.Value = True Then
13.             MsgBox x.Caption
14.         End If
15.     Next
16. 
 End Sub
  1. On the Run menu, click Run Sub/UserForm.
  2. In the UserForm, click one OptionButton control, and then click CommandButton1.
A message box appears that contains the caption of the currently selected OptionButton control.

How to determine the OptionButton control that is selected
The purpose of the following example is to determine the OptionButton control that is selected in Group1. To create a UserForm that has two groups of OptionButton controls, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a Frame control to the UserForm.
  5. Add an OptionButton control in the Frame control.

    Repeat this step to add two more OptionButton controls in the Frame control.
  6. For each OptionButton control, type Group1 in the GroupName property.
  7. Repeat steps 4 and 5 to create a second Frame control that contains three OptionButton controls.
  8. For each OptionButton control in the second Frame control, type Group2 in the GroupName property.
  9. Add a CommandButton control on the UserForm outside the Frame controls.
  10. Double-click the CommandButton control to display the Code window for the UserForm.
  11. In the Code window, type the following code for the CommandButton1 Click event:
12.Private Sub CommandButton1_Click()
13. 
14.     Dim x As Control
15.    
16.     ' Loop through ALL the controls on the UserForm.
17.     For Each x In Me.Controls
18.         ' Check to see if "Option" is in the Name of each control.
19.         If InStr(x.Name, "Option") Then
20.             ' Check Group name.
21.             If x.GroupName = "Group1" Then
22.                 ' Check the status of the OptionButton.
23.                 If x.Value = True Then
24.                     MsgBox x.Caption
25.                     Exit For
26.                 End If
27.             End If
28.         End If
29.     Next
30. 
 End Sub
  1. On the Run menu, click Run Sub/UserForm.
  2. In the UserForm, click one OptionButton control in Group1, and then click CommandButton1.
A message box appears that contains the caption of the OptionButton control that is currently selected.
CheckBox control
You can use a CheckBox control to indicate a true or false value. A CheckBox control that appears with a check mark in it indicates a value of True. A CheckBox that appears with no check mark indicates a value of False. If the value of the TripleState property is True, a CheckBox control can also have a value of Null. A CheckBox control that has a value of Null appears to be unavailable.

Note The On value, the Yes value, and the True value indicate that a CheckBox control is selected. The Off value, the No value, and the False value indicate that a CheckBox control is cleared.
How to check the value of a CheckBox control
To use the Value property to return the current value of a CheckBox control, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a CheckBox control to the UserForm.
  5. In the Properties list for CheckBox1, select True as the TripleState property.
  6. Double-click the CheckBox control to display the Code window for the CheckBox control.
  7. In the Code window, type the following code for the CheckBox1 Change event:
8.  Private Sub CheckBox1_Change()
9.   
10.    Select Case CheckBox1.Value
11.        Case True
12.            CheckBox1.Caption = "True"
13.        Case False
14.            CheckBox1.Caption = "False"
15.        Case Else
16.            CheckBox1.Caption = "Null"
17.    End Select
18. 
End Sub
  1. On the Run menu, click Run Sub/UserForm.
When you click the CheckBox control, the caption of the CheckBox control changes to reflect the current value.
http://support.microsoft.com/library/images/support/kbgraphics/public/en-us/uparrow.gifBack to the top
ToggleButton control
A ToggleButton control has the same appearance as a CommandButton control until you click it. When you click a ToggleButton control, it appears to be pressed or pushed down. The Value property of a ToggleButton control is True when the button is selected and False when the button is not selected. If the value of the TripleState property is True, a ToggleButton control can also have a value of Null. A ToggleButton control that has a value of Null appears to be unavailable.

Note The On value, the Yes value, and the True value indicate that a ToggleButton control is selected. The Off value, the No value, and the False value indicate that a ToggleButton control is not selected.
How to obtain the value of a ToggleButton control
To obtain the value of a ToggleButton control, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a ToggleButton control on the UserForm.
  5. Add a Label control to the UserForm.
  6. Double-click the ToggleButton control to open the Code window for the ToggleButton control.
  7. In the Code window, type the following code for the ToggleButton1Click event:
8.  Private Sub ToggleButton1_Click()
9.   
10.    If ToggleButton1.Value = True Then
11.        ' Set UserForm background to Red.
12.        Me.BackColor = RGB(255, 0, 0)
13.    Else
14.        ' Set UserForm background to Blue.
15.        Me.BackColor = RGB(0, 0, 255)
16.    End If
17. 
End Sub
  1. On the Run menu, click Run Sub/UserForm.
When you click the ToggleButton control, the background color of the UserForm changes.
How to create a group of mutually exclusive ToggleButton controls
This example uses the MouseUp event to set a variable and calls the ExclusiveToggleButtons procedure. The ExclusiveToggleButtons procedure determines the ToggleButton control that is selected, and then cancels the others. To create a group of mutually exclusive ToggleButton controls, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click Module.
  4. In the Code window for the module, type the following code:
5.  ' Variable that holds the name of the ToggleButton that was clicked.
6.  Public clicked As String
7.   
8.  Sub ExclusiveToggleButtons()
9.   
10.   Dim toggle As Control
11. 
12.   ' Loop through all the ToggleButtons on Frame1.
13.   For Each toggle In UserForm1.Frame1.Controls
14. 
15.       ' If Name of ToggleButton matches name of ToggleButton
16.       ' that was clicked...
17.       If toggle.Name = clicked Then
18.          '...select the button.
19.          toggle.Value = True
20.       Else
21.          '...otherwise clear the selection of the button.
22.          toggle.Value = False
23.       End If
24.    Next
25. 
End Sub
  1. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  2. Add a Frame control to the UserForm.
  3. Add a ToggleButton control in the Frame control.

    Repeat this step to add two more ToggleButton controls in the Frame control.
  4. Double-click the Frame control to display the Code window for the UserForm.
  5. In the Code window for the module, type the following code for the ToggleButton MouseUp event:
31.Private Sub ToggleButton1_MouseUp(ByVal Button As Integer, _
32.              ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
33. 
34.       clicked = ToggleButton1.Name
35.       Application.OnTime Now, "ExclusiveToggleButtons"
36. 
37.    End Sub
38. 
39.    Private Sub ToggleButton2_MouseUp(ByVal Button As Integer, _
40.              ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
41. 
42.        clicked = ToggleButton2.Name
43.        Application.OnTime Now, "ExclusiveToggleButtons"
44. 
45.    End Sub
46. 
47.    Private Sub ToggleButton3_MouseUp(ByVal Button As Integer, _
48.              ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
49. 
50.        clicked = ToggleButton3.Name
51.        Application.OnTime Now, "ExclusiveToggleButtons"
52. 
    End Sub
  1. On the Run menu, click Run Sub/UserForm.
When you click a ToggleButton control, the previously selected ToggleButton control is canceled.
TabStrip control
Use a TabStrip control to view different sets of information for a set of controls.
How to control a TabStrip control programmatically
To change the BackColor property of an Image control based on the tab that is selected, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a TabStrip control to the UserForm.
  5. Add an Image control that covers the base of the TabStrip control, but that does not cover the tabs.
  6. In the Properties pane for Image1, type &H000000FF& in the BackColor property.
  7. Double-click the TabStrip control to open the Code window for the TabStrip control.
  8. In the Code window, type the following code for the TabStrip1 Change event:
9.  Private Sub TabStrip1_Change()
10. 
11.    Dim i As Integer
12. 
13.    i = TabStrip1.SelectedItem.Index
14.    Select Case i
15.        Case 0
16.            ' If Tab1 is selected, change the color of Image control to Red.
17.            Image1.BackColor = RGB(255, 0, 0)
18.        Case 1
19.            ' If Tab2 is selected, change the color of Image control to Green.
20.            Image1.BackColor = RGB(0, 255, 0)
21.    End Select
22. 
End Sub
  1. On the Run menu, click Run Sub/UserForm.
The color of the Image control changes depending on the page in the TabStrip control that is active.
MultiPage control
Use a MultiPage control to work with a lot of information that can be sorted into several categories. A MultiPage control is made up of one or more Page objects that each contain a different set of controls. You can set the active page programmatically by setting the Value property of the MultiPage control.
How to control a MultiPage control programmatically
To add a MultiPage control and control it by using a macro, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a MultiPage control to the UserForm.
  5. Add a Label control to Page1 on the MultiPage control.
  6. Add a TextBox control to Page1 on the MultiPage control.
  7. On the MultiPage control, click Page2, and then repeat steps 5 and 6 to add a Label control and a TextBox control.
  8. Double-click the MultiPage control to open the Code window for the MultiPage control.
  9. In the Code window, type the following code for the MultiPage1 Change event:
10.Private Sub MultiPage1_Change()
11. 
12.    Select Case MultiPage1.Value
13.        ' If activating Page1...
14.        Case 0
15.            Label1.Caption = TextBox2.Text
16.            TextBox1.Text = ""
17.        ' If activating Page2...
18.        Case 1
19.            Label2.Caption = TextBox1.Text
20.            TextBox2.Text = ""
21.    End Select
22. 
End Sub
  1. In the Code window, type the following code for the UserForm Initialize event:
24.Private Sub UserForm_Initialize()
25. 
26.    ' Force Page1 to be active when UserForm is displayed.
27.    MultiPage1.Value = 0
28.    Label1.Caption = ""
29. 
End Sub
  1. On the Run menu, click Run Sub/UserForm.

    In the TextBox control on Page1, type Test. When you click the Page2 tab, TextBox2 is cleared, and the caption of Label2 changes to the entry that you made in TextBox1 on Page1 ("Test").
How to create a wizard interface by using a MultiPage control
When a task requires several incremental steps, a wizard interface can be very effective. You can use the MultiPage control to create a wizard interface instead of using multiple UserForms. This example manipulates a MultiPage control that has three pages. A procedure that is attached to the Initialize event of the UserForm disables Page2 and Page3, and forces Page1 of the MultiPage control to be active.

Note When you index the pages of a MultiPage control by using the Pages collection, the first page in the collection is page zero. This procedure also sets the caption of the CommandButton controls and disables the <Back button.

Note The procedure that is assigned to the Click event of CommandButton1 controls the functionality of the <Back button. The procedure that is assigned to the Click event of CommandButton2 controls the functionality of the Next> button. To create a wizard interface by using a MultiPage control, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a MultiPage control to the UserForm.
  5. Right-click the Page1 tab, and then click New Page to add Page3 to the MultiPage control.
  6. Add a CommandButton control on the UserForm that is not on the MultiPage control.

    Repeat this step to add a second CommandButton control on the UserForm.
  7. Double-click the UserForm to open the Code window for the UserForm.
  8. In the Code window, type the following code for the UserForm Initialize event:
9.  Private Sub UserForm_Initialize()
10. 
11.    With MultiPage1
12.        ' The next 2 lines disable Page2 & Page3.
13.        .Pages(1).Enabled = False
14.        .Pages(2).Enabled = False
15.        ' Make Page1 the active page.
16.        .Value = 0
17.    End With
18.   
19.    ' Set the caption on the CommandButtons.
20.    CommandButton1.Caption = "<Back"
21.    CommandButton1.Enabled = False
22.    CommandButton2.Caption = "Next>"
23. 
24.End Sub
25. 
26.' Procedure for the "<Back" button
27.Private Sub CommandButton1_Click()
28.    Select Case MultiPage1.Value
29.        Case 1                                 ' If Page2 is active...
30.            With MultiPage1
31.                .Pages(0).Enabled = True       ' Enable Page1.
32.                .Value = MultiPage1.Value - 1  ' Move back 1 page.
33.                .Pages(1).Enabled = False      ' Disable Page2.
34.            End With
35.            CommandButton1.Enabled = False     ' Disable Back button.
36.           
37.        Case 2                                 ' If Page3 is active...
38.            With MultiPage1
39.                .Pages(1).Enabled = True       ' Enable Page2.
40.                .Value = MultiPage1.Value - 1  ' Move back 1 page.
41.                .Pages(2).Enabled = False      ' Disable Page3.
42.   CommandButton2.Caption = "Next>"
43.            End With
44.    End Select
45. 
46.End Sub
47. 
48.' Procedure for the "Next>" button
49.Private Sub CommandButton2_Click()
50. 
51.    Select Case MultiPage1.Value
52.        Case 0                                  ' If Page1 is active...
53.            With MultiPage1
54.                .Value = MultiPage1.Value + 1   ' Move forward 1 page.
55.                .Pages(1).Enabled = True        ' Enable Page2.
56.                .Pages(0).Enabled = False       ' Disable Page1.
57.            End With
58.            CommandButton1.Enabled = True       ' Enable Back button.
59.           
60.        Case 1                                  ' If Page2 is active...
61.            With MultiPage1
62.                .Value = MultiPage1.Value + 1   ' Move forward 1 page.
63.                .Pages(2).Enabled = True        ' Enable Page3.
64.                .Pages(1).Enabled = False       ' Disable Page2.
65.            End With
66.            CommandButton2.Caption = "Finish"   ' Change Next button to Finish.
67.           
68.        Case 2                                  ' If Page3 is active...
69.            MsgBox "Finished!"                  ' User is Finished.
70.            Unload Me                           ' Unload the UserForm.
71.    End Select
72. 
73.End Sub
  1. On the Run menu, click Run Sub/UserForm.
When you click Next>, Page2 is activated and the <Back button becomes available. When you click Next> a second time, Page3 is activated and the caption for CommandButton2 changes to "Finish".
ScrollBar control
You can use a ScrollBar control when you want to change the value that is displayed by another control, such as a Label control.
How to change a Label control that is based on the value of a ScrollBar control
To change the Caption property of a Label control to the current setting of the Value property of a ScrollBar control, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a ScrollBar control to the UserForm.
  5. Add a Label control to the UserForm.
  6. Double-click the ScrollBar control to open the Code window for the ScrollBar control.
  7. In the Code window, type the following code for the ScrollBar1 Change event:
8.  Private Sub ScrollBar1_Change()
9.   
10.    Label1.Caption = ScrollBar1.Value
11. 
End Sub
  1. On the Run menu, click Run Sub/UserForm.
When you scroll by using the ScrollBar control, Label1 is updated with the current value of the ScrollBar control.

SpinButton control
A SpinButton control, like a ScrollBar control, is frequently used to increment or to decrement the value of another control, such as a Label control. The SmallChange property determines how much the value of a SpinButton control changes when it is clicked.
How to add a SpinButton control that increments or decrements a date that is stored in a TextBox control
To add a SpinButton control that increments or decrements a date that is stored in a TextBox control, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a SpinButton control to the UserForm.
  5. Add a TextBox control to the UserForm.
  6. Double-click the SpinButton control to open the Code window for the SpinButton control.
  7. In the Code window, type the following code for the SpinButton1 SpinUp event:
8.  Private Sub SpinButton1_SpinUp()
9.   
10.    TextBox1.Text = DateValue(TextBox1.Text) + 1
11. 
12.End Sub
  1. In the Code window, type the following code for the SpinButton1 SpinDown event:
14.Private Sub SpinButton1_SpinDown()
15. 
16.    TextBox1.Text = DateValue(TextBox1.Text) - 1
17. 
18.End Sub
  1. In the Code window, type the following code for the UserForm Initialize event:
20.Private Sub UserForm_Initialize()
21. 
22.    TextBox1.Text = Date
23. 
24.End Sub
  1. On the Run menu, click Run Sub/UserForm.
When the UserForm appears, the current date appears in TextBox1. When you click the SpinButton control, the date is incremented or decremented by one day.

In this example, if you change the SmallChange property of SpinButton1, you do not affect the number of days the entry in TextBox1 is changed by when you click SpinButton1. The number of days is determined only by the procedure that you attached to the SpinUp event and the SpinDown event of SpinButton1.
RefEdit control
The RefEdit control imitates the behavior of the reference boxes that are built into Excel. You can use the Value property to obtain the current cell address that are stored in a RefEdit control.
How to populate a range of cells based on the range that you select by using the RefEdit control
To use the RefEdit control to populate cells, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add a RefEdit control to the UserForm.
  5. Add a CommandButton control to the UserForm.
  6. Double-click the CommandButton control to open the Code window for the CommandButton control.
  7. In the Code window, type the following code for the CommandButton1 Click event:
8.  Private Sub CommandButton1_Click()
9.   
10.    Dim MyRange As String
11.    MyRange = RefEdit1.Value
12.    Range(MyRange).Value = "test"
13.    Unload Me
14. 
End Sub
  1. On the Run menu, click Run Sub/UserForm.

    The UserFormappears.
  2. Click the button in the RefEdit control.

    Notice that the UserForm collapses.
  3. Select a range of cells such as A1:A5, and then click the button in the RefEdit control to expand the UserForm.
  4. Click CommandButton1.
The UserForm closes and the cells that you selected now contain the word "test".
Image control
The purpose of the Image control is to display a picture on a UserForm. To assign a picture to an Image control at run time, use the LoadPicture function.
How to load a picture into an Image control
To insert an Image control that prompts you to select a picture to load when you click the Image control, follow these steps:
  1. Start Excel, and then open a new blank workbook.
  2. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  3. On the Insert menu, click UserForm to insert a UserForm in your workbook.
  4. Add an Image control on the UserForm.
  5. Double-click the Image control to open the Code window for the Image control.
  6. In the Code window, type the following code for the Image1 Click event:
7.  Private Sub Image1_Click()
8.   
9.      Dim fname As String
10.   
11.    ' Display the Open dialog box.
12.    fname = Application.GetOpenFilename(filefilter:= _
13.            "Bitmap Files(*.bmp),*.bmp", Title:="Select Image To Open")
14.   
15.    ' If you did not click Cancel...
16.    If fname <> "False" Then
17. 
18.        ' Load the bitmap into the Image control.
19.        Image1.Picture = LoadPicture(fname)
20. 
21.        ' Refresh the UserForm.
22.        Me.Repaint
23.    End If
24. 
25.End Sub
  1. On the Run menu, click Run Sub/UserForm.

    The UserForm appears.
  2. Click the Image control.

    When you click the Image control, the Select Image To Open dialog box appears, and then you can select a bitmap file to insert into the control.


Additional information
The Object Browser
A complete list of all the properties and methods for a specific command is available in the Object Browser. To find this information in Excel, follow these steps:
  1. On the Tools menu, point to Macro, and then click Visual Basic Editor.
  2. On the View menu, click Object Browser.
  3. In the Search Text box, type the name of the control that you want, and then click Search.
For more information about how to use the Object Browser, in the Visual Basic Editor, click Microsoft Visual Basic Help on the Help menu, type Object Browser in the Office Assistant or the Answer Wizard, and then click Search to view the topic.



Posted by at No comments:
Subscribe to: Posts (Atom)