Microsoft KB Archive/829070

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

Article ID: 829070

Article Last Modified on 1/11/2006

-

APPLIES TO


 * Microsoft Excel 2000 Standard Edition
 * Microsoft Excel 2002 Standard Edition
 * Microsoft Office Excel 2003

-





SUMMARY
''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



INTRODUCTION
This article describes how to use VBA to make changes in UserForms in Excel.



MORE INFORMATION
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.

How to display a UserForm
The syntax that is used to display a UserForm programmatically is the following:

.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 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 &quot;Me&quot; keyword instead of the name of the UserForm. To use the &quot;Me&quot; 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 &quot;behind&quot; 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:  Create a new workbook in Excel. On the Tools menu, point to Macro, and then click Visual Basic Editor. On the Insert menu, click UserForm to insert a UserForm in your workbook. Double-click the UserForm to display the Code window for the UserForm.  In the module, type the following code: Private Sub UserForm_Click

Me.Height = Int(Rnd * 500) Me.Width = Int(Rnd * 750)

End Sub

Private Sub UserForm_Initialize

Me.Caption = &quot;Events Events Events!&quot; Me.BackColor = RGB(10, 25, 100)

End Sub

Private Sub UserForm_Resize

msg = &quot;Width: &quot; & Me.Width & Chr(10) & &quot;Height: &quot; & Me.Height MsgBox prompt:=msg, Title:=&quot;Resize Event&quot;

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

msg = &quot;Now Unloading &quot; & Me.Caption MsgBox prompt:=msg, Title:=&quot;QueryClose Event&quot;

End Sub

Private Sub UserForm_Terminate

msg = &quot;Now Unloading &quot; & Me.Caption MsgBox prompt:=msg, Title:=&quot;Terminate Event&quot;

End Sub  On the Run menu, click Run Sub/UserForm.</li></ol>

When the UserForm is first loaded, the macro uses the Initialize event to change the Caption property of the UserForm to &quot;Events Events Events!&quot; 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: <ol> Create a new workbook in Excel.</li> On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> Add a CommandButton control to the UserForm.</li> Double-click the UserForm to display the Code window for the UserForm.</li>  In the Code window, type the following code: Private Sub CommandButton1_Click

Unload Me

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

IF CloseMode = vbFormControlMenu Then Cancel = True Me.Caption = &quot;Click the CommandButton to close Me!&quot; End If

End Sub </li> On the Run menu, click Run Sub/UserForm.</li></ol>

The UserForm is not closed when you click the Close button. You must click the CommandButton control to close the UserForm.

For additional information, click the following article numbers to view the articles in the Microsoft Knowledge Base:

207714 XL2000: Run-time errors using UserForms collection

211527 XL2000: Cannot drag UserForm control onto a worksheet

211868 XL2000: Error running macro that inserts control into UserForm

213582 XL2000: Problems when you use macro to add control to UserForm

213583 XL2000: Unable to show UserForms in other projects

213736 XL2000: How to determine the key pressed along with mouse button

213744 XL2000: How to temporarily hide a UserForm

213747 XL2000: How to move between custom UserForms with command buttons

213749 XL2000: How to use a UserForm for entering data

213768 XL2000: How to dynamically resize a User Form

213774 XL2000: How to create a Startup screen with a 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:

 =  

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 = &quot;Bob&quot; 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 = &quot;Bob&quot; 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: <ol> Start Excel, and then open a new blank workbook.</li> On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> Add a Label control to the UserForm.</li> Add a CommandButton control to the UserForm.</li> Double-click the CommandButton control to open the Code window for the UserForm.</li>  In the Code window, type the following code for the CommandButton1 Click event: Private Sub CommandButton1_Click

With Label1 ' Set the text of the label. .Caption = &quot;This is Label Example 1&quot; ' Automatically size the label control. .AutoSize = True .WordWrap = False ' Set the font used by the Label control. .Font.Name = &quot;Times New Roman&quot; .Font.Size = 14 .Font.Bold = True ' Set the font color to blue. .ForeColor = RGB(0, 0, 255) End With

End Sub </li> On the Run menu, click Run Sub/UserForm.</li> Click the CommandButton.</li></ol>

The text &quot;This is Label Example 1&quot; 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 &quot;masked-edit&quot; 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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a TextBox control to the UserForm.</li> <li>On the View menu, click Properties to make the Properties window visible.</li> <li>In the PasswordChar property of the TextBox control, type *.

Note You are changing the value to an asterisk.</li> <li>Add a CommandButton control to the UserForm.</li> <li>Double-click the CommandButton control to open the Code window for the UserForm.</li> <li> In the Code window, type the following code for the CommandButton1 Click event: Private Sub CommandButton1_Click

If TextBox1.Text <> &quot;userform&quot; Then MsgBox &quot;Password is Incorrect. Please reenter.&quot; TextBox1.Text = &quot;&quot; TextBox1.SetFocus Else MsgBox &quot;Welcome!&quot; Unload Me   End If

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.</li> <li>Type the password userform in the TextBox control.</li> <li>Click the CommandButton control.</li></ol>

For this example, the password is &quot;userform&quot;. 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.

For additional information, click the following article number to view the article in the Microsoft Knowledge Base:

213555 XL2000: No Data Validation property for UserForm TextBoxes

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a CommandButton control to the UserForm.</li> <li>Double-click the CommandButton control to display the Code window for the UserForm.</li> <li> In the Code window, type the following code: Private Sub CommandButton1_Click

red = Int(Rnd * 255) green = Int(Rnd * 255) blue = Int(Rnd * 255) CommandButton1.BackColor = RGB(red, green, blue)

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.</li></ol>

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

For additional information about the CommandButton control, click the following article numbers to view the articles in the Microsoft Knowledge Base:

213572 XL2000: Clicking Cancel button may not dismiss UserForm

213743 XL2000: How to set the default command button on a UserForm

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>In cells A1:A5 on Sheet1, type the values that you want to use to populate the ListBox control.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a ListBox control to the UserForm.</li> <li>Double-click the ListBox control to display the Code window for the ListBox control.</li> <li> In the Code window, type the following code for the ListBox1 Click event: Private Sub ListBox1_Click

MsgBox ListBox1.Value

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.</li></ol>

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>In cells A1:A5 on Sheet1, type the values that you want to use to populate the ListBox control.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a ListBox control to the UserForm.</li> <li>On the View menu, click Properties to see the Properties window.</li> <li> Type the values that are indicated for the following ListBox control properties: <pre class="fixed_text">  Property       Value ---    ---   MultiSelect     1 - frmMultiSelectMulti RowSource      Sheet1!A1:A8 </li> <li>Add a CommandButton control to the UserForm.</li> <li>Double-click the CommandButton control to display the Code window for the UserForm.</li> <li> In the Code window, type the following code for the CommandButton1 Click event: Sub CommandButton1_Click

' Loop through the items in the ListBox. For x = 0 to ListBox1.ListCount - 1

' If the item is selected... If ListBox1.Selected(x) = True Then

' display the Selected item. MsgBox ListBox1.List(x) End If      Next x

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.</li> <li>Select one or more items in the list.</li> <li>Click CommandButton1.</li></ol>

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>In cells A1:A5 on Sheet1, type the values that you want to use to populate the ListBox control.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a ListBox control to the UserForm.</li> <li>Add a CommandButton control to the UserForm.</li> <li>Double-click the CommandButton control to display the Code window for the UserForm.</li> <li> In the Code window, type the following code for the CommandButton1 Click event: Private Sub CommandButton1_Click ListBox1.RowSource = &quot;=Sheet1!A1:A5&quot; End Sub </li> <li>On the Run menu, click Run Sub/UserForm.

NoteListBox1 does not contain any values.</li> <li>Click CommandButton1.</li></ol>

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a ListBox control to the UserForm.</li> <li>On the Insert menu, click Module to insert a module sheet.</li> <li> In the Code window, type the following code: Sub PopulateListBox

Dim MyArray As Variant Dim Ctr As Integer MyArray = Array(&quot;Apples&quot;, &quot;Oranges&quot;, &quot;Peaches&quot;, &quot;Bananas&quot;, &quot;Pineapples&quot;) For Ctr = LBound(MyArray) To UBound(MyArray) UserForm1.ListBox1.AddItem MyArray(Ctr) Next UserForm1.Show

End Sub </li> <li>On the Tools menu, click Macros, click PopulateListBox, and then click Run.</li></ol>

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>In cells A1:E1 on Sheet1, type the values that you want to use to populate the ListBox control.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a ListBox control to the UserForm.</li> <li>On the Insert menu, click Module to insert a module sheet.</li> <li> In the Code window, type the following code: Sub PopulateListWithHorizontalRange

For Each x In Sheet1.Range(&quot;A1:E1&quot;) UserForm1.ListBox1.AddItem x.Value Next UserForm1.Show

End Sub </li> <li>On the Tools menu, click Macros, click PopulateListWithHorizontalRange, and then click Run.</li></ol>

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>Type the following data in the cells that are indicated on Sheet1:

</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a Label control to the UserForm.</li> <li>Add a ListBox control to the UserForm.</li> <li>Right-click the ListBox, and then click Properties.</li> <li> Type or select the values that are indicated for the following properties of the ListBox control as listed in the following table: <pre class="fixed_text">  Property       Value BoundColumn    1 ColumnCount    3 ColumnHeads    True RowSource      Sheet1!A2:A5 </li> <li>Double-click the ListBox control to display the Code window for the ListBox control.</li> <li> In the Code window, type the following code: Private Sub ListBox1_Change

Dim SourceData As Range Dim Val1 As String, Val2 As String, Val3 As String Set SourceRange = Range(ListBox1.RowSource) Val1 = ListBox1.Value Val2 = SourceRange.Offset(ListBox1.ListIndex, 1).Resize(1, 1).Value Val3 = SourceRange.Offset(ListBox1.ListIndex, 2).Resize(1, 1).Value Label1.Caption = Val1 & &quot; &quot; & Val2 & &quot; &quot; & Val3

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.</li></ol>

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>In cells A1:A5 on Sheet1, type the values that you want to use to populate the ListBox control.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a ListBox control to the UserForm.</li> <li>Right-click the ListBox control, and then click Properties.</li> <li>In the RowSource property, type Sheet1!A1:A5 .</li> <li>Add a CommandButton control to the UserForm.</li> <li>Double-click the CommandButton control to display the Code window for the CommandButton control.</li> <li> In the Code window, type the following code for the CommandButton1 Click event: Private Sub CommandButton1_Click

ListBox1.RowSource = &quot;&quot;

End Sub </li> <li>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.</li> <li>Click CommandButton1.</li></ol>

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a ListBox control to the UserForm.</li> <li>On the Insert menu, click Module to insert a module sheet.</li> <li> In the Code window, type the following code: Sub PopulateListBox

Dim MyArray As Variant Dim Ctr As Integer MyArray = Array(&quot;Apples&quot;, &quot;Oranges&quot;, &quot;Peaches&quot;, &quot;Bananas&quot;, &quot;Pineapples&quot;) For Ctr = LBound(MyArray) To UBound(MyArray) UserForm1.ListBox1.AddItem MyArray(Ctr) Next UserForm1.Show

End Sub </li> <li>Add a CommandButton control to the UserForm.</li> <li>Double-click the CommandButton control to display the Code window for the CommandButton control.</li> <li> In the Code window, type the following code for the CommandButton1 Click event: Private Sub CommandButton1_Click

For i = 1 To ListBox1.ListCount ListBox1.RemoveItem 0 Next I

End Sub </li> <li>On the Tools menu, click Macros, click PopulateListBox, and then click Run.

The ListBox control is populated, and then the UserForm appears.</li> <li>Click CommandButton1.</li></ol>

All the items are removed from ListBox1.

For additional information about the ListBox control, click the following article numbers to view the articles in the Microsoft Knowledge Base:

161598 OFF: How to add data to a ComboBox or ListBox in Excel or Word

211446 XL2000: TextColumn property displays only the first column

211896 XL2000: How to simulate combination List-Edit control for UserForms

211899 XL2000: Problems setting column headings in ListBox control

213721 XL2000: How to remove all items from a ListBox or ComboBox

213722 XL2000: How to use the TextColumn property

213723 XL2000: How to return values from a List box that displays multiple columns

213746 XL2000: How to fill List Box control with multiple ranges

213748 XL2000: How to populate one List Box based on another List Box

213752 XL2000: Using the AddItem method causes an error when RowSource is data bound

213756 XL2000: Using the RemoveItem method with ListBox or ComboBox control

213759 XL2000: How to determine which items are selected in a List Box

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 &quot;How to obtain the selected items in a multiple select ListBox control&quot; 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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a ComboBox control to the UserForm.</li> <li>On the Insert menu, click Module to insert a module sheet.</li> <li> In the Code window, type the following code: Sub PopulateComboBox

Dim MyArray As Variant Dim Ctr As Integer MyArray = Array(&quot;Apples&quot;, &quot;Oranges&quot;, &quot;Peaches&quot;, &quot;Bananas&quot;, &quot;Pineapples&quot;) For Ctr = LBound(MyArray) To Ubound(MyArray) UserForm1.ComboBox1.AddItem MyArray(Ctr) Next UserForm1.Show

End Sub </li> <li>Add a CommandButton control to the UserForm.</li> <li>Double-click the CommandButton control to display the Code window for the CommandButton control.</li> <li> In the Code window, type the following code for the CommandButton1 Click event: Private Sub CommandButton1_Click

Dim listvar As Variant listvar = ComboBox1.List On Error Resume Next ' If the item is not found in the list... If IsError(WorksheetFunction.Match(ComboBox1.Value, listvar, 0)) Then ' add the new value to the list. ComboBox1.AddItem ComboBox1.Value End If

End Sub </li> <li>On the Tools menu, click Macros, click PopulateListBox, and then click Run.

The ComboBox control is populated, and then the UserForm appears.</li> <li>In the ComboBox control, type Mangoes (or any value that is not already in the list).</li> <li>Click CommandButton1.</li></ol>

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>In cells A1:A5 on Sheet1, type the values that you want to use to populate the ComboBox control.</li> <li>Select cells A1:A5 on Sheet1.</li> <li>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.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a ComboBox control to the UserForm.</li> <li>In the Properties for ComboBox1, type Sheet1!ListRange as the RowSource property.</li> <li>Add a CommandButton control to the UserForm.</li> <li>Double-click the CommandButton control to display the Code window for the CommandButton control.</li> <li> In the Code window, type the following code for the CommandButton1 Click event: Private Sub CommandButton1_Click

Dim SourceData As Range Dim found As Object Set SourceData = Range(&quot;ListRange&quot;) Set found = Nothing ' Try to find the value on the worksheet. Set found = SourceData.Find(ComboBox1.Value) ' If the item is not found in the list... If found Is Nothing Then ' redefine ListRange. SourceData.Resize(SourceData.Rows.Count + 1, 1).Name = &quot;ListRange&quot; ' Add the new item to the end of the list on the worksheet. SourceData.Offset(SourceData.Rows.Count, 0).Resize(1, 1).Value _ = ComboBox1.Value ' Reset the list displayed in the ComboBox. ComboBox1.RowSource = Range(&quot;listrange&quot;).Address(external:=True) End If

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.

The UserForm appears on Sheet1.</li> <li>In the ComboBox control, type a value that is not already in the list.</li> <li>Click CommandButton1.</li></ol>

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>In cells A1:A5 on Sheet1, type the values that you want to use to populate the ComboBox control.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a ComboBox control to the UserForm.</li> <li>In the Properties for ComboBox1, type Sheet1!A1:A5 as the RowSource property.</li> <li>Double-click the UserForm to display the Code window for the UserForm.</li> <li> In the Code window, type the following code for the CommandButton Click event: Private Sub UserForm_Activate

ComboBox1.DropDown

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.</li></ol>

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>In cells A1:A10 on Sheet1, type the values that you want to use to populate the ComboBox control.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click Module.</li> <li> In the Code window for the module, type the following code: Sub DropDown_ComboBox

UserForm1.ComboBox2.DropDown

End Sub </li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a ComboBox control to the UserForm.</li> <li>In the Properties for ComboBox1, type Sheet1!A1:A5 as the RowSource property.</li> <li>Double-click the ComboBox control to open the Code window for the ComboBox control.</li> <li> In the Code window for the ComboBox control, type the following code for the ComboBox Click event: Private Sub ComboBox1_Click

Application.OnTime Now, &quot;DropDown_ComboBox&quot;

End Sub </li> <li>Add a second ComboBox control to the UserForm.</li> <li>In the Properties for ComboBox2, type Sheet1!A6:A10 as the RowSource property.</li> <li>On the Run menu, click Run Sub/UserForm.</li></ol>

When you click an item in the ComboBox1 list, the list for ComboBox2 automatically appears.

For additional information about the ComboBox control, click the following article numbers to view the articles in the Microsoft Knowledge Base:

161598 OFF: How to add data to a ComboBox or ListBox in Excel or Word

211446 XL2000: TextColumn property displays only the first column

211899 XL2000: Problems setting column headings in ListBox control

213717 XL2000: Run-time error using the DropDown method with a ComboBox

213718 XL2000: How to display a ComboBox list when a UserForm Is displayed

213721 XL2000: How to remove all items from a ListBox or ComboBox

213722 XL2000: How to use the TextColumn property

213752 XL2000: Using the AddItem method causes an error when RowSource Is data bound

213756 XL2000: Using the RemoveItem method with ListBox or ComboBox control

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a Frame control to the UserForm.</li> <li>Add an OptionButton control to the Frame control.

Repeat this step to add two more OptionButton controls in the Frame control.</li> <li>Double-click the Frame control to open the Code window for the Frame control.</li> <li> In the Code window, type the following code for the Frame Click event: Private Sub Frame1_Click

Dim Ctrl As Control For Each Ctrl In Frame1.Controls Ctrl.Enabled = Not Ctrl.Enabled Next

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.</li> <li>In the UserForm, click the Frame control.</li></ol>

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a Frame control to the UserForm.</li> <li>Add an OptionButton control to the Frame control.

Repeat this step to add two more OptionButton controls in the Frame control.</li> <li>Add a CommandButton control on the UserForm outside the Frame control.</li> <li>Double-click the CommandButton control to display the Code window for the UserForm.</li> <li> In the Code window, type the following code for the CommandButton1 Click event: Private Sub CommandButton1_Click

For Each x In Frame1.Controls If x.Value = True Then MsgBox x.Caption End If    Next

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.</li> <li>In the UserForm, click one OptionButton control, and then click CommandButton1.</li></ol>

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a Frame control to the UserForm.</li> <li>Add an OptionButton control in the Frame control.

Repeat this step to add two more OptionButton controls in the Frame control.</li> <li>For each OptionButton control, type Group1 in the GroupName property.</li> <li>Repeat steps 4 and 5 to create a second Frame control that contains three OptionButton controls.</li> <li>For each OptionButton control in the second Frame control, type Group2 in the GroupName property.</li> <li>Add a CommandButton control on the UserForm outside the Frame controls.</li> <li>Double-click the CommandButton control to display the Code window for the UserForm.</li> <li> In the Code window, type the following code for the CommandButton1 Click event: Private Sub CommandButton1_Click

Dim x As Control ' Loop through ALL the controls on the UserForm. For Each x In Me.Controls ' Check to see if &quot;Option&quot; is in the Name of each control. If InStr(x.Name, &quot;Option&quot;) Then ' Check Group name. If x.GroupName = &quot;Group1&quot; Then ' Check the status of the OptionButton. If x.Value = True Then MsgBox x.Caption Exit For End If            End If         End If     Next

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.</li> <li>In the UserForm, click one OptionButton control in Group1, and then click CommandButton1.</li></ol>

A message box appears that contains the caption of the OptionButton control that is currently selected.

For additional information about OptionButton controls, click the following article number to view the article in the Microsoft Knowledge Base:

213724 XL2000: Problems using TripleState property for option button

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a CheckBox control to the UserForm.</li> <li>In the Properties list for CheckBox1, select True as the TripleState property.</li> <li>Double-click the CheckBox control to display the Code window for the CheckBox control.</li> <li> In the Code window, type the following code for the CheckBox1 Change event: Private Sub CheckBox1_Change

Select Case CheckBox1.Value Case True CheckBox1.Caption = &quot;True&quot; Case False CheckBox1.Caption = &quot;False&quot; Case Else CheckBox1.Caption = &quot;Null&quot; End Select

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.</li></ol>

When you click the CheckBox control, the caption of the CheckBox control changes to reflect the current value.

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a ToggleButton control on the UserForm.</li> <li>Add a Label control to the UserForm.</li> <li>Double-click the ToggleButton control to open the Code window for the ToggleButton control.</li> <li> In the Code window, type the following code for the ToggleButton1Click event: Private Sub ToggleButton1_Click

If ToggleButton1.Value = True Then ' Set UserForm background to Red. Me.BackColor = RGB(255, 0, 0) Else ' Set UserForm background to Blue. Me.BackColor = RGB(0, 0, 255) End If

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.</li></ol>

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click Module.</li> <li> In the Code window for the module, type the following code: ' Variable that holds the name of the ToggleButton that was clicked. Public clicked As String

Sub ExclusiveToggleButtons

Dim toggle As Control

' Loop through all the ToggleButtons on Frame1. For Each toggle In UserForm1.Frame1.Controls

' If Name of ToggleButton matches name of ToggleButton ' that was clicked... If toggle.Name = clicked Then '...select the button. toggle.Value = True Else '...otherwise clear the selection of the button. toggle.Value = False End If   Next

End Sub </li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a Frame control to the UserForm.</li> <li>Add a ToggleButton control in the Frame control.

Repeat this step to add two more ToggleButton controls in the Frame control.</li> <li>Double-click the Frame control to display the Code window for the UserForm.</li> <li> In the Code window for the module, type the following code for the ToggleButton MouseUp event: Private Sub ToggleButton1_MouseUp(ByVal Button As Integer, _             ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

clicked = ToggleButton1.Name Application.OnTime Now, &quot;ExclusiveToggleButtons&quot;

End Sub

Private Sub ToggleButton2_MouseUp(ByVal Button As Integer, _             ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

clicked = ToggleButton2.Name Application.OnTime Now, &quot;ExclusiveToggleButtons&quot;

End Sub

Private Sub ToggleButton3_MouseUp(ByVal Button As Integer, _             ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

clicked = ToggleButton3.Name Application.OnTime Now, &quot;ExclusiveToggleButtons&quot;

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.</li></ol>

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a TabStrip control to the UserForm.</li> <li>Add an Image control that covers the base of the TabStrip control, but that does not cover the tabs.</li> <li>In the Properties pane for Image1, type &H000000FF& in the BackColor property.</li> <li>Double-click the TabStrip control to open the Code window for the TabStrip control.</li> <li> In the Code window, type the following code for the TabStrip1 Change event: Private Sub TabStrip1_Change

Dim i As Integer

i = TabStrip1.SelectedItem.Index Select Case i       Case 0 ' If Tab1 is selected, change the color of Image control to Red. Image1.BackColor = RGB(255, 0, 0) Case 1 ' If Tab2 is selected, change the color of Image control to Green. Image1.BackColor = RGB(0, 255, 0) End Select

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.</li></ol>

The color of the Image control changes depending on the page in the TabStrip control that is active.

For additional information about the TabStrip control, click the following article number to view the article in the Microsoft Knowledge Base:

213254 XL2000: How to use the TabStrip control on a UserForm

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a MultiPage control to the UserForm.</li> <li>Add a Label control to Page1 on the MultiPage control.</li> <li>Add a TextBox control to Page1 on the MultiPage control.</li> <li>On the MultiPage control, click Page2, and then repeat steps 5 and 6 to add a Label control and a TextBox control.</li> <li>Double-click the MultiPage control to open the Code window for the MultiPage control.</li> <li> In the Code window, type the following code for the MultiPage1 Change event: Private Sub MultiPage1_Change

Select Case MultiPage1.Value ' If activating Page1... Case 0 Label1.Caption = TextBox2.Text TextBox1.Text = &quot;&quot; ' If activating Page2... Case 1 Label2.Caption = TextBox1.Text TextBox2.Text = &quot;&quot; End Select

End Sub </li> <li> In the Code window, type the following code for the UserForm Initialize event: Private Sub UserForm_Initialize

' Force Page1 to be active when UserForm is displayed. MultiPage1.Value = 0 Label1.Caption = &quot;&quot;

End Sub </li> <li>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 (&quot;Test&quot;).</li></ol>

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a MultiPage control to the UserForm.</li> <li>Right-click the Page1 tab, and then click New Page to add Page3 to the MultiPage control.</li> <li>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.</li> <li>Double-click the UserForm to open the Code window for the UserForm.</li> <li> In the Code window, type the following code for the UserForm Initialize event: Private Sub UserForm_Initialize

With MultiPage1 ' The next 2 lines disable Page2 & Page3. .Pages(1).Enabled = False .Pages(2).Enabled = False ' Make Page1 the active page. .Value = 0 End With ' Set the caption on the CommandButtons. CommandButton1.Caption = &quot;<Back&quot; CommandButton1.Enabled = False CommandButton2.Caption = &quot;Next>&quot;

End Sub

' Procedure for the &quot;<Back&quot; button Private Sub CommandButton1_Click Select Case MultiPage1.Value Case 1                                ' If Page2 is active... With MultiPage1 .Pages(0).Enabled = True      ' Enable Page1. .Value = MultiPage1.Value - 1 ' Move back 1 page. .Pages(1).Enabled = False     ' Disable Page2. End With CommandButton1.Enabled = False    ' Disable Back button. Case 2                                ' If Page3 is active... With MultiPage1 .Pages(1).Enabled = True      ' Enable Page2. .Value = MultiPage1.Value - 1 ' Move back 1 page. .Pages(2).Enabled = False     ' Disable Page3. CommandButton2.Caption = &quot;Next>&quot; End With End Select

End Sub

' Procedure for the &quot;Next>&quot; button Private Sub CommandButton2_Click

Select Case MultiPage1.Value Case 0                                 ' If Page1 is active... With MultiPage1 .Value = MultiPage1.Value + 1  ' Move forward 1 page. .Pages(1).Enabled = True       ' Enable Page2. .Pages(0).Enabled = False      ' Disable Page1. End With CommandButton1.Enabled = True      ' Enable Back button. Case 1                                 ' If Page2 is active... With MultiPage1 .Value = MultiPage1.Value + 1  ' Move forward 1 page. .Pages(2).Enabled = True       ' Enable Page3. .Pages(1).Enabled = False      ' Disable Page2. End With CommandButton2.Caption = &quot;Finish&quot;  ' Change Next button to Finish. Case 2                                 ' If Page3 is active...            MsgBox &quot;Finished!&quot;                  ' User is Finished. Unload Me                          ' Unload the UserForm. End Select

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.</li></ol>

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 &quot;Finish&quot;.

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a ScrollBar control to the UserForm.</li> <li>Add a Label control to the UserForm.</li> <li>Double-click the ScrollBar control to open the Code window for the ScrollBar control.</li> <li> In the Code window, type the following code for the ScrollBar1 Change event: Private Sub ScrollBar1_Change

Label1.Caption = ScrollBar1.Value

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.</li></ol>

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a SpinButton control to the UserForm.</li> <li>Add a TextBox control to the UserForm.</li> <li>Double-click the SpinButton control to open the Code window for the SpinButton control.</li> <li> In the Code window, type the following code for the SpinButton1 SpinUp event: Private Sub SpinButton1_SpinUp

TextBox1.Text = DateValue(TextBox1.Text) + 1

End Sub </li> <li> In the Code window, type the following code for the SpinButton1 SpinDown event: Private Sub SpinButton1_SpinDown

TextBox1.Text = DateValue(TextBox1.Text) - 1

End Sub </li> <li> In the Code window, type the following code for the UserForm Initialize event: Private Sub UserForm_Initialize

TextBox1.Text = Date

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.</li></ol>

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.

For additional information about the SpinButton control, click the following article number to view the article in the Microsoft Knowledge Base:

213224 XL2000: Visual Basic example for using a Spin Button with a date

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add a RefEdit control to the UserForm.</li> <li>Add a CommandButton control to the UserForm.</li> <li>Double-click the CommandButton control to open the Code window for the CommandButton control.</li> <li> In the Code window, type the following code for the CommandButton1 Click event: Private Sub CommandButton1_Click

Dim MyRange As String MyRange = RefEdit1.Value Range(MyRange).Value = &quot;test&quot; Unload Me

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.

The UserFormappears.</li> <li>Click the button in the RefEdit control.

Notice that the UserForm collapses.</li> <li>Select a range of cells such as A1:A5, and then click the button in the RefEdit control to expand the UserForm.</li> <li>Click CommandButton1.</li></ol>

The UserForm closes and the cells that you selected now contain the word &quot;test&quot;.

For additional information about the RefEdit control, click the following article number to view the article in the Microsoft Knowledge Base:

213776 XL2000: How to use the RefEdit control with a UserForm

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: <ol> <li>Start Excel, and then open a new blank workbook.</li> <li>On the Tools menu, point to Macro, and then click Visual Basic Editor.</li> <li>On the Insert menu, click UserForm to insert a UserForm in your workbook.</li> <li>Add an Image control on the UserForm.</li> <li>Double-click the Image control to open the Code window for the Image control.</li> <li> In the Code window, type the following code for the Image1 Click event: Private Sub Image1_Click

Dim fname As String ' Display the Open dialog box. fname = Application.GetOpenFilename(filefilter:= _           &quot;Bitmap Files(*.bmp),*.bmp&quot;, Title:=&quot;Select Image To Open&quot;) ' If you did not click Cancel... If fname <> &quot;False&quot; Then

' Load the bitmap into the Image control. Image1.Picture = LoadPicture(fname)

' Refresh the UserForm. Me.Repaint End If

End Sub </li> <li>On the Run menu, click Run Sub/UserForm.

The UserForm appears.</li> <li>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.</li></ol>

For additional information about the Image control, click the following article number to view the article in the Microsoft Knowledge Base:

213732 XL2000: Using the LoadPicture function with an Image control

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.

For additional information about how to install Microsoft Excel Help on your computer, click the following article number to view the article in the Microsoft Knowledge Base:

231946 OFF2000: How to add/remove a single Office program or component

Keywords: kbhowto kbhowtomaster kbprogramming kbfunctions KB829070

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.