In this post, you’ll be learning about Conditional statements in Excel VBA and how you can use them in your Excel spreadsheets.
Conditional Statements in Excel VBA
Conditional Statements in VBA is used to make decisions between the given options or to make decision based on a set of conditions.
The following conditional statements are in VBA
If statement is a conditional statement in VBA used when a particular condition needs to be satisfied.
IF condition Then true_code [Else false_code]
Sample program using IF statement in VBA
Sub CheckScore() If Range("A1").Value >=35 Then MsgBox "Pass" End Sub
This VBA conditional statement is used when a decision is need to be made between two conditions
IF condition Then true_code Else false_code End IF
Sample program using IF else statement in VBA
Sub CheckScore() If Range("A1").Value >= 35 Then MsgBox "Pass" Else MsgBox "Fail" End If End Sub
This VBA conditional statement is an If statement followed by one or more ElseIf statements that consists of boolean expressions and with a else statement at the ending.
If(boolean_expression) Then Statements ElseIf (boolean_expression) Then Statements ElseIf (boolean_expression) Then Statements Else Statements End If
Sample program using elseif statement in VBA
Private Sub if_demo_Click() Dim a As Integer Dim b As Integer a = 111 b = 123 If a > b Then MsgBox "a is Greater than b" ElseIf b > a Then MsgBox "b is Greater than a" Else MsgBox "a and b are EQUAL" End If End Sub
IF GO TO
With the help Goto we can go to any specified code of line or location in VBA.
Sample program using IF GOTO in VBA
Sub GoTo_Example() Dim number As Integer number = 57 If number >= 100 Then GoTo Skip MsgBox "Number is lesser than 100" Skip: End Sub
Select case in VBA is similar to If else statement. It helps in checking multiple conditions.
Select Case Syntax
Select Case Test_Expression Case Value_1 Code Block when Test_Expression = Value_1 Case Value_2 Code Block when Test_Expression = Value_2 Case Value_3 Code Block when Test_Expression = Value_3 Case Else Code Block when none of the case conditions are met End Select
Sample program using select case statement in VBA
Sub CheckNumber() Dim UserInput As Integer UserInput = InputBox("Please enter a number between 110 and 115") Select Case UserInput Case 111 MsgBox "You entered 111" Case 112 MsgBox "You entered 112" Case 113 MsgBox "You entered 113" Case 114 MsgBox "You entered 114" Case 115 MsgBox "You entered 115" End Select End Sub