If ElseIf ElseIf Statement or Nested If statement in VBA

VBA Excel: If … ElseIf … ElseIf Statement or Nested If statement

This function enables you to check multiple conditions and, based on that, then run one of the statement blocks present. If the ‘IF’ condition is TRUE, IF statement and condition will run if it is FALSE, then the program will check the ‘ELSEIF’ condition. If it is also false, i.e., not applicable, then the following ‘ELSEIF’ will work. If all return False, at last, the else statement will come in the loop. This statement will always have a closing ‘END IF’ statement else, VBA will give an error.

Syntax

If <Condition1> Then
     <Statements1>
 ,
 ElseIf <Condition2> Then
     <Statement2>
 , 
 ElseIf <Condition3> Then
     <Statement3>
 ,
 ElseIf <Condition4> Then
     <Statement4>
 .
 .
 .
 . 
 Else
     <StatementN>
 ,
 End If 

Example 1: Create a Macro using nested IF, to find out the Grade distribution for a student, if he scores 91 or above, categorize him under A1, if he scores in between 80 and 91, categorize him under A2, for Similarly if he scores between 70 to 81, categorize him under B1 if he scores between 60 to 71 it's B2, for 50 to 61 grade is C1, for 40 to 51 grade is C2, marks is between 32 to 41 grade is D1, and at last if it’s below 33 the student has failed.

Sub Nested_If_Example1()    
     'Variable declaration
     Dim Marks As String
     'Accepting the month by the user
     Marks = InputBox("Enter the students percentile marks:", "Marks")
     If Marks <= 100 And Marks >= 91 Then
         'Check if the Student's Grade is A1
         MsgBox "Grade : A1" 
     ElseIf Marks < 91 And Marks >= 81 Then
         'Check if the Student's Grade is A2
         MsgBox "Grade : A2"
     ElseIf Marks < 81 And Marks >= 71 Then
         'Check if the Student's Grade is B1
         MsgBox "Grade : B1" 
     ElseIf Marks < 71 And Marks >= 61 Then
         'Check if the Student's Grade is B2
         MsgBox "Grade : B2"
     ElseIf Marks < 61 And Marks >= 51 Then
         'Check if the Student's Grade is C1
         MsgBox "Grade : C1" 
     ElseIf Marks < 51 And Marks >= 41 Then
         'Check if the Student's Grade is C2
         MsgBox "Grade : C2"
     ElseIf Marks < 40 And Marks >= 33 Then
         'Check if the Student's Grade is D
         MsgBox "Grade : D"
     Else 
         'Check if the student has failed
         MsgBox "Grade : Fail"
     End If
 End Sub 

Output

Example 2: Write a macro to demonstrate the four quarters in a year.

Sub Nested_If_Example2()
     'Variable declaration
     Dim Month As String
     'Accepting the month by the user
     Month = InputBox("Enter the Month:", "Month")
     If Month = "January" Or Month = "February" Or Month = "March" Then
         'Checking if the month falls under the first quarter.
         MsgBox "I Quarter." 
     ElseIf Month = "April" Or Month = "May" Or Month = "June" Then
         'Checking if the month falls under the second quarter.
         MsgBox "II Quarter."
     ElseIf Month = "July" Or Month = "August" Or Month = "September" Then
         'Checking if the month falls under the third quarter.
         MsgBox "III Quarter." 
     ElseIf Month = "October" Or Month = "November" Or Month = "December" Then
         'Checking if the month falls under the fourth quarter.
         MsgBox "IV Quarter."
     Else
         MsgBox "Please enter a valid month."
     End If
 End Sub 

Output