Lesson 22: Working with Check Box and Option Button

��[Lesson 21] [Home] [Lesson 23]



22.1 Check Box in Excel VBA

In Excel VBA , the Check box is a very useful control . It allows the user to select one or more items by checking the check box or check boxes concerned. For example, you may create a shopping cart where the user can click on check boxes that correspond to the items they intend to buy, and the total payment can be computed at the same time. One of most important properties of the check box in Excel VBA 2010 is Value. If the check box is selected or checked, the value is true, whilst if it is not selected or unchecked, the Value is False.

The usage of check box is illustrated in Example 22.1

Example 22.1

In this example, the user can choose to display the sale volume of one type of fruits sold or total sale volume. The code is shown below:

  Private Sub CommandButton1_Click()

    If CheckBox1.Value = True And CheckBox2.Value = False Then

      MsgBox "Quantity of apple sold is" & Cells (2, 2).Value

    ElseIf CheckBox2.Value = True And CheckBox1.Value = False Then

      MsgBox "Quantity of orange sold is " & Cells(2, 3).Value

    Else

      MsgBox "Quantity of Fruits sold is" & Cells (2, 4).Value

    End If

  End Sub

The output Interface is shown in Figure 22.1

vba2010_figure22.1

Figure 22.1


22.2 Option Button

The option button control also lets the user selects one of the choices. However, two or more option buttons must work together because as one of the option buttons is selected, the other option button will be deselected. In fact, only one option button can be selected at one time. When an option button is selected, its value is set to "True" and when it is deselected; its value is set to "False".

Example 22.2

This example demonstrates the usage of the option buttons. In this example, the Message box will display which option button selected by the user. The output interface is shown in Figure 22.2.

The code

  Private Sub CommandButton1_Click()

    If OptionButton1.Value = True Then

      MsgBox "Option1 is selected"

    ElseIf OptionButton2.Value = True Then

      MsgBox "Option2 is selected"

    Else

      MsgBox "Option3 is selected"

    End If

  End Sub

The output

vba2010_figure 22.2

Figure 22.2



  Bookmark and Share



��[Lesson 21] [Home] [Lesson 23]

Copyright ® 2008 Dr.Liew Voon Kiong . All rights reserved 

Contact: admin@excelvbatutor.com [Privacy Policy]