Vba excel switch case

Excel VBA Switch Case

In VBA Switch Case, when we need to logically check or analyze a condition and execute the different lines of codes based on the same, we use IF-Else conditional statement. Similarly, there is one more statement Switch Case which is more widely known as Select Case statement which can check or analyze the multiple logical conditions and execute the code lines based on those. When you have three or more logical conditions to check, it is recommended that you use Select Case or Switch Case instead of a conventional IF-Else statement. Because it makes the VBA Code faster and more understandable instead of nested IF-Else statements in such cases.

Switch Case / Select Case

Switch Case or Select Case in VBA works on similar lines as of IF-Else statements. It checks the multiple logical/conditional expressions against different values (cases). As soon as any of the case is matching the condition (becomes true for the given condition), the system executes that case and rest other cases are ignored to execute. In case, there are two cases that are true for the given condition, only the first one will be executed with the law of precedence.

Syntax for Switch Case/Select Case is as below:

Select Case <Expression to check>
Case value_1
Code to Execute when Expression = value_1
Case value_2
Code to Execute when Expression = value_2
Case value_3
Code to Execute when Expression = value_3
.
.
.
Case value_n
Code to Execute when Expression = value_n
Case Else
Code to Execute when no case value meets the expression/logical test.
End Select

Where,

Expression: This is an expression for which we wanted to check or analyze using different case values.

value_1, value_2, value_3, … are the logical conditions that are needed to be checked for the given expression.

How to Use the Switch Case Statement in Excel VBA?

We will learn how to use the Switch Case statement in Excel by using the VBA Code.

You can download this VBA Switch Case Excel Template here – VBA Switch Case Excel Template

VBA Switch Case – Example #1

We will check whether the given number is less than 100 or more than 100. For this, follow the steps below:

Step 1: Insert a new module inside Visual Basic Editor (VBE). Click on Insert tab > select Module.

Step 2: Define a new subprocedure within the inserted module that can hold your macro.

Code:

Sub switch_case_example1()

End Sub

Step 3: Define a new variable named usrInpt which can hold the user value. Make use of the VBA InputBox function to create an input box that takes user values through variable usrInpt.

Code:

Sub switch_case_example1()

Dim usrInpt As Integer
usrInpt = InputBox("Please enter your value")

End Sub

Step 4: Use the Select Case statement and supply the value provided by the user through variable usrInpt. This is the expression we need to check with logical conditions.

Code:

Sub switch_case_example1()

Dim usrInpt As Integer
usrInpt = InputBox("Please enter your value")
Select Case usrInpt

End Sub

Step 5: Enter the first logical test to be checked under the Case statement as follows.

Code:

Sub switch_case_example1()

Dim usrInpt As Integer
usrInpt = InputBox("Please enter your value")
Select Case usrInpt
Case Is < 100

End Sub

Step 6: Use MsgBox function to add an output message if Case Is < 100 is true.

Code:

Sub switch_case_example1()

Dim usrInpt As Integer
usrInpt = InputBox("Please enter your value")
Select Case usrInpt
Case Is < 100
MsgBox "The provided number is less than 100"

End Sub

Step 7: Now, we need to provide an executable statement when the value for usrInpt is greater than 100. Add a Case and MsgBox to achieve this.

Code:

Sub switch_case_example1()

Dim usrInpt As Integer
usrInpt = InputBox("Please enter your value")
Select Case usrInpt
Case Is < 100
MsgBox "The provided number is less than 100"
Case Is > 100
MsgBox "The provided number is greater than 100"

End Sub

Step 8: What if the value provided by the user is exactly the 100? We have no case added for that. Let’s add the one that gives the user a message that the value he entered is 100.

Code:

Sub switch_case_example1()

Dim usrInpt As Integer
usrInpt = InputBox("Please enter your value")
Select Case usrInpt
Case Is < 100
MsgBox "The provided number is less than 100"
Case Is > 100
MsgBox "The provided number is greater than 100"
Case Is = 100
MsgBox "The provided number is 100"

End Sub

Step 9: We need to end the Select Case statement. Use End Select to end the loop created.

Code:

Sub switch_case_example1()

Dim usrInpt As Integer
usrInpt = InputBox("Please enter your value")
Select Case usrInpt
Case Is < 100
MsgBox "The provided number is less than 100"
Case Is > 100
MsgBox "The provided number is greater than 100"
Case Is = 100
MsgBox "The provided number is 100"
End Select

End Sub

Step 10: Now, run this code by hitting the Run button or F5. A new popup box will appear asking for the value to be checked. I will enter a value as 110 and hit the OK button on the input box. Since the number I enter is greater than 100, as soon as I click on OK, a new message will pop-up on my screen saying, “The provided number is greater than 100”.

VBA Switch Case – Example #2

Suppose we want to capture the grade of students based on their marks. See the steps below on how we can achieve this.

Step 1: Define a new sub-procedure named switch_case_example2.

Code:

Sub switch_case_example2()

End Sub

Step 2: Define two new variables – marks as integer and grades as a string using Dim statement in the sub-procedure created.

Code:

Sub switch_case_example2()

Dim marks As Integer
Dim grades As String

End Sub

Step 3: Use the VBA InputBox function through which the user can input the value for the variable marks.

Code:

Sub switch_case_example2()

Dim marks As Integer
Dim grades As String
marks = InputBox("Please enter the marks")

End Sub

Step 4: Use the Select Case statement and supply the variable marks as an expression to be checked.

Code:

Sub switch_case_example2()

Dim marks As Integer
Dim grades As String
marks = InputBox("Please enter the marks")
Select Case marks

End Sub

Since we want to assign the grades to students based on the marks they input, we need to define the grades first.

Step 5: Use the case statement to check whether the marks are less than 35. If so, assign value as “F” to variable grades.

Code:

Sub switch_case_example2()

Dim marks As Integer
Dim grades As String
marks = InputBox("Please enter the marks")
Select Case marks
Case Is < 35
grades = "F"

End Sub

Step 6: If the marks are between 35 to 45, assign value as “D” to variable grades.

Code:

Sub switch_case_example2()

Dim marks As Integer
Dim grades As String
marks = InputBox("Please enter the marks")
Select Case marks
Case Is < 35
grades = "F"
Case 35 To 45
grades = "D"

End Sub

Step 7: If the marks inputted are between 46 to 55, value “C” should get assigned to variable grades.

Code:

Sub switch_case_example2()

Dim marks As Integer
Dim grades As String
marks = InputBox("Please enter the marks")
Select Case marks
Case Is < 35
grades = "F"
Case 35 To 45
grades = "D"
Case 46 To 55
grades = "C"

End Sub

Step 8: When the marks are in range 56 to 65, the value assigned to variable grades should be “B”.

Code:

Sub switch_case_example2()

Dim marks As Integer
Dim grades As String
marks = InputBox("Please enter the marks")
Select Case marks
Case Is < 35
grades = "F"
Case 35 To 45
grades = "D"
Case 46 To 55
grades = "C"
Case 56 To 65
grades = "B"

End Sub

Step 9: For marks between 66 to 75, the grade should be “A”.

Code:

Sub switch_case_example2()

Dim marks As Integer
Dim grades As String
marks = InputBox("Please enter the marks")
Select Case marks
Case Is < 35
grades = "F"
Case 35 To 45
grades = "D"
Case 46 To 55
grades = "C"
Case 56 To 65
grades = "B"
Case 66 To 75
grades = "A"

End Sub

Step 10: If the marks inputted are more than 75, grades variable should be assigned a value as “A+”

Code:

Sub switch_case_example2()

Dim marks As Integer
Dim grades As String
marks = InputBox("Please enter the marks")
Select Case marks
Case Is < 35
grades = "F"
Case 35 To 45
grades = "D"
Case 46 To 55
grades = "C"
Case 56 To 65
grades = "B"
Case 66 To 75
grades = "A"
Case Is > 75
grades = "A+"

End Sub

Step 11: Use End Select the close the Select Case loop.

Code:

Sub switch_case_example2()

Dim marks As Integer
Dim grades As String
marks = InputBox("Please enter the marks")
Select Case marks
Case Is < 35
grades = "F"
Case 35 To 45
grades = "D"
Case 46 To 55
grades = "C"
Case 56 To 65
grades = "B"
Case 66 To 75
grades = "A"
Case Is > 75
grades = "A+"
End Select

End Sub

Step 12: Now, we need to check what is the grade associated with the marks a student has inputted. In order to achieve that, use MsgBox function in such a way that it denotes the achieved grades inside a message box.

Code:

Sub switch_case_example2()

Dim marks As Integer
Dim grades As String
marks = InputBox("Please enter the marks")
Select Case marks
Case Is < 35
grades = "F"
Case 35 To 45
grades = "D"
Case 46 To 55
grades = "C"
Case 56 To 65
grades = "B"
Case 66 To 75
grades = "A"
Case Is > 75
grades = "A+"
End Select
MsgBox "Grade achieved is: " & grades

End Sub

Step 13: Run this code by hitting the F5 or Run button and you can see a VBA input box asking for a mark value. I will enter the marks as 72 and hit the OK button present on the input box. As soon as I hit the OK button inside the input box, I will get a message box indicating the grades associated with the marks entered.

This is how we can use the Switch/Select Case statement inside VBA.

Things to Remember

• Switch case is actually a synonym for Select Case statement in VBA. It has been called so because with the help of this statement we can switch between the different outputs at the same time.
• This statement can be used as an alternative to the IF-Else loop whenever we have three or more conditions to check.
• It is OK if you don’t use ELSE Case in Select Case statement. However, in that case, you need to make sure that at least one condition is true throughout the loop.

Recommended Articles

This is a guide to VBA Switch Case. Here we discuss How to Use the Switch Case Statement in Excel VBA along with practical examples and downloadable excel template. You can also go through our other suggested articles –

1. VBA IF Statements
2. VBA Sort
3. VBA While Loop
4. VBA Environ

Switch Case or Select Case is a statement available in VBA to conduct logical tests where it works as an alternative to the IF-THEN statement in VBA. Using a Switch Case, we can conduct multiple logical tests and arrive at results based on multiple results.

Below is the syntax of the Switch Case/Select Case statement.

Code:

Select Case < Logical Test >
Case 1 < Logical Test >
Value if Case 1 Test is TRUE
Case 2 < Logical Test >
Value if Case 2 Test is TRUE
Case 3 < Logical Test >
Value if Case 3 Test is TRUE
Case Else
Value if none of the above cases are TRUE
End Select

< Logical Test >: What is the logical test? We need to enter the test here.

Case 1, Case 2: We need to test multiple logical tests in excelA logical test in Excel results in an analytical output, either true or false. The equals to operator, “=,” is the most commonly used logical test.read more in each case.

How to Use VBA Switch Case Statement?

You can download this VBA Switch Case Excel Template here – VBA Switch Case Excel Template

Example #1

In cell A1 we have entered the value as 550.

We will test this number using switch case statements and arrive at a “More than 500” status if the value exceeds 500. Else, we will arrive at the status of “Less than 500.”

Open the VBA Sub procedureSUB in VBA is a procedure which contains all the code which automatically gives the statement of end sub and the middle portion is used for coding. Sub statement can be both public and private and the name of the subprocedure is mandatory in VBA.read more first.

Code:

Sub Switch_Case()

End Sub

Open Select Case Statement in VBAVBA Case Statement is a function that assists the users to execute multiple logical tests and arrive at results in two ways, i.e. first, if the result or logical test is TRUE and second, if the result or logical test is FALSE.read more and supply the logical test Range(“A2”).Value

Code:

Sub Switch_Case()

  Select CaseA select case is a substitute for writing down multiple IF statements in VBA. In the case of many IF statements, it becomes tedious and more complex, but in select case statements, we define the criteria as different cases and results.read more Range("A2").Value

End Sub

Now, enter the first case as the Case is >500.

Code:

Sub Switch_Case()

  Select CaseA select case is a substitute for writing down multiple IF statements in VBA. In the case of many IF statements, it becomes tedious and more complex, but in select case statements, we define the criteria as different cases and results.read more Range("A2").Value
  Case Is > 500

End Sub

If this case is TRUE, what is the result we need in cell B2? i.e., “More Than 500.”

Code:

Sub Switch_Case()

 Select Case Range("A2").Value
  Case Is > 500
   Range("B2").Value = "More than 500"

End Sub

We left with only one result, i.e., Case Else statement. Therefore, if the first Case is FALSE, we need the result as “Less than 500.”

Code:

Sub Switch_Case()

 Select Case Range("A2").Value
  Case Is > 500
    Range("B2").Value = "More than 500"
  Case Else
    Range("B2").Value = "Less than 500"

End Sub

Now, close the statement by using the “End Select” statement.

Code:

Sub Switch_Case()

 Select Case Range("A2").Value
  Case Is > 500
   Range("B2").Value = "More than 500"
  Case Else
   Range("B2").Value = "Less than 500"
 End Select

End Sub

Run the code. We will get the value in cell B2.

Since the value in cell A2 is greater than 500, we got the result of “More than 500.”

Example #2

Now, we will see using more case examples. Below is the score of the student in the examination.

With this score, we need to arrive at a grade. For that, below is the criteria.

• Score >=85, Grade = “Dist”
• Score >=60, Grade = “First”
• Score >=50, Grade = “Second”
• Score >=35, Grade = “Pass”
• If anything else Grade = “Fail.”

Code:

Sub Switch_Case1()

 Dim Score As Integer

 Score = 65

 Select Case Score
  Case Is >= 85
   MsgBox "Dist"
  Case Is >= 60
   MsgBox "First"
  Case Is >= 50
   MsgBox "Second"
  Case Is >= 35
   MsgBox "Pass"
  Case Else
   MsgBox "Fail"
End Select

End Sub

Run this code. We will get the grade in the message box.

Since the score is more than 60 but less than 85 grade is “First.”

Example #3

We have seen how to find a grade for one student. What about finding a grade for more than one student? Below are the scores of the students.

Since more than one student is involved, we need to enclose FOR NEXT loop in VBAAll programming languages make use of the VBA For Next loop. After the FOR statement, there is a criterion in this loop, and the code loops until the criteria are reached. read more. Below is the VBA codeVBA code refers to a set of instructions written by the user in the Visual Basic Applications programming language on a Visual Basic Editor (VBE) to perform a specific task.read more.

Code:

Sub Switch_Case2()

 Dim k As Integer

 For k = 2 To 7
  Select Case Cells(k, 2).Value
   Case Is >= 85
    Cells(k, 3).Value = "Dist"
   Case Is >= 60
    Cells(k, 3).Value = "First"
   Case Is >= 50
    Cells(k, 3).Value = "Second"
   Case Is >= 35
    Cells(k, 3).Value = "Pass"
   Case Else
    Cells(k, 3).Value = "Fail"
 End Select
 Next k

End Sub

Run this code. We will get grades.

Things to Remember

• Often, Switch Case refers to as “Select Case.”
• The switch is a functionSwitch function in excel is a comparison and referencing function which compares and matches a referred cell to a group of cells and returns the result based on the first match found. The method to use this function is =SWITCH( target cell, value 1, result 1….).read more, not a statement.
• If no logical tests are TRUE, you can pass the alternative result in the CASE ELSE statement and always close the statement with the “END SELECT” word.

Recommended Articles

This article is a guide to VBA Switch Case. Here, we discuss switching-case statements in Excel VBA, examples, and downloadable Excel templates. Below are some useful articles related to VBA: –

• Case Statement in Excel VBA
• VBA UCase
• Index Match in VBA
• IF OR in VBA

Improve Article

Save Article

Like Article

Read

Discuss

We can use Select case instead of using multiple if then statements in Excel VBA. In the below example user will enter the student mark in “Cell C5” as an input.  Macro read C5 cell value and fill grade in “Cell D5”.

Grade:

• <35 – Fail
• 35-60 – Grade C
• 60-80 – Grade B
• >=80 – Grade A

VBA Code read cell C5 value, use select case statement (apply criteria) and fill grade of a student.

Declaring Variables:

Variable	Data Type	Comments
mark	Integer	read cell C5 Value
result	String	write in cell D5

'variable declaration
Dim mark As Integer, result As String

Initialize variable

'initialize variable
mark = Range("C5").Value

Select case… – check the mark variable and assign a respective grade to the variable result

'select case statement to check mark and execute case statement
Select Case mark
    Case Is >= 80
        result = "Grade A"
    Case Is >= 60
        result = "Grade B"
    Case Is >= 35
        result = "Grade C"
    Case Else
        result = "FAIL"
End Select

Write the Grade to cell D5

Range("D5").Value = result

Step 1: Just create a template like below

Step 2: Add a shape “Update Grade”

Step 3: Right-click on “Update Grade” and “Assign Macro..”

Step 4: Select “updateGrade”, you can see a list of available macros in your workbook

Step 5: Save your excel file as “Excel Macro-Enabled Workbook” *.xlsm

Step 6: Click “Update Grade” to execute the VBA code and see the output in cell D5

Outputs:

Like Article

Save Article