This article will demonstrate the use of the VBA TypeOf Operator.
The VBA TypeOf Operator is used in determining the type of an object. This can be useful in enabling or disabling controls on a VBA form or to control the flow of code depending on what type of object is being used.
Using TypeOf to Control Code
We can use TypeOf to ensure that the selection made is the type of specific object that we require – for example, we may want to select a range and then use an IF statement to see what is selected. If a range is selected, then we we will get a message telling us that a range is selected, but if a range is not selected, we will get a different message.
Let us select some cells on our worksheet.
Now, if we run the macro below, we will be told that we selected a Range.
Sub TestSelection() Dim rng As Object If TypeOf Selection Is Range Then MsgBox "A range has been selected!" Else MsgBox "Something else is selected" End If End Sub
However, if we do not select a range and select something else – perhaps a chart – and then run the macro, we will get a different result!
Using TypeOf on Form Controls
VBA enables us to create interactive forms that the user can fill in and return data to the code to be used in various ways. We can use the TypeOf operator to determine the type of controls that are being used on a form.
Using the code below, I can determine what type of controls are on the form by looping through all the controls on the form. I have used the TypeName function to return a message with the type of the control, and have used a VBA IF Statement using the TypeOf function to check what type of control is selected, and then a further message box to return that type of control.
Sub WhatControlType() Dim ctl As Object For Each ctl In Me.Controls MsgBox (TypeName(ctl)) 'Use the TypeOf function to determine the object's type. If TypeOf ctl Is msforms.TextBox Then MsgBox ("The control is a TextBox.") ElseIf TypeOf ctl Is msforms.ComboBox Then MsgBox ("The control is a ComboBox.") ElseIf TypeOf ctl Is msforms.Label Then MsgBox ("The control is a Label.") ElseIf TypeOf ctl Is msforms.CommandButton Then MsgBox ("The control is a Command Button.") ElseIf TypeOf ctl Is msforms.CheckBox Then MsgBox ("The control is a Check Box.") ElseIf TypeOf ctl Is msforms.OptionButton Then MsgBox ("The control is an Option/Radio Button.") Else MsgBox ("The object is some other type of control.") End If Next ctl End Sub
This type of code can be very useful if we wish to enable or disable controls. In the code below, when the form is first opened, the option buttons and check boxes are disabled.
Private Sub UserForm_Initialize() Dim ctl As Object For Each ctl In Me.Controls If TypeOf ctl Is msforms.CheckBox Then ctl.Enabled = False ElseIf TypeOf ctl Is msforms.OptionButton Then ctl.Enabled = False Else ctl.Enabled = True End If Next ctl End Sub
To enable the option buttons and checkboxes, I have written some further code behind the Enable Controls button.
Private Sub cmdEnable_Click() Dim ctl As Object For Each ctl In Me.Controls If TypeOf ctl Is msforms.CheckBox Then ctl.Enabled = Not ctl.Enabled ElseIf TypeOf ctl Is msforms.OptionButton Then ctl.Enabled = Not ctl.Enabled End If Next ctl End Sub
Now when we click on the Enable Controls button, if the controls are disabled, they will become enabled and if they are enabled they will become disabled. This is achieved using the Not Operator which enables us to toggle between disabled and enabled.
VBA Coding Made EasyStop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!