Excel VBA Decisions

This post will guide you how to use conditional statements in MS excel VBA. There are two most useful conditional statements as bellows: If …Then…Else and Select Case.

IF…Then…Else Statement

This statement will test a condition and if the condition is true, then the conditional code will be executed. If the condition is false, then a different conditional code is executed.

The syntax of the IF …Then…Else statement is:

If conditional1 Then

Conditinal1 code (code will be executed if conditinal1 is true)

ElseIf Conditional2 Then

Conditinal2 code (code will be executed if conditinal2 is true)

Else

Code (if all of the above conditionals are false, this code will be executed)

End If

Example1: if the value of cell is “excelhow.net” and then set the font size to 40 or set the font size to 5.

Type the below VBA codes in the Visual Basic Editor:

Sub ifStatementdemo1()
    If ActiveCell.Value = "excelhow.net" Then
        ActiveCell.Font.Size = 40
    Else
        ActiveCell.Font.Size = 5
    End If
End Sub

ifStatementdemo1

VBA Select Case Statement

The “Select Case” statement is similar to the If … Then … Else statement… it will check expression/variable if matches the case statement values, if yes, the code will be executed under this case statement.

The syntax of the Select Case statement is:

Select Case Expression

Case Value1

Case statement code1 (to be executed if expression equal to Value1)

Case Value2

Case statement code2 (to be executed if expression equal to Value2)

Case Else

Case statement else(to be executed if none of values match expression)

End Select

Example1:  VBA Select Case statement example

1# open visual Basic Editor, then insert a module and name as :mySelectCaseDemo1

2# enter into the below VBA codes in code window.

Sub mySelectCaseDemo1()
    Dim mySales As Integer
    mySales = ActiveCell.Value
    Select Case mySales
    Case Is < 0
        cRate = 0
    Case Is <= 500
        cRate = 0.05
    Case Is <= 2000
        cRate = 0.1
    Case Else
        cRate = 0.2
    End Select
    MsgBox "cRate is" & cRate
End Sub

 

VBA Select Case statement example1

3# back to workbook and run the above macro.

VBA Select Case statement example1

VBA Select Case statement example1

Related Posts

VBA Macro For VLOOKUP From Another Sheet

In the previous post, you should know that how to fix or remove the #N/A error when using VLOOKUP formula to lookup value from another sheet. And this post will show you how to use VBA code to vlookup data ...

How To Remove Special Characters in Excel

This post will show you how to remove special characters from text strings in Excel. And I am going to introduce two ways to remove special characters (@&)#%$) from a string in Excel. Removing Special Characters using Power Query If ...

How To Insert Comments in Protected Worksheet in Excel

This post will show you how to allow comments in a protected worksheet in Excel. You can easily to insert comments into cells in a normal worksheet in Excel, but if want to insert a comment in a worksheet that ...

How To Convert Text to Upper Cases(Using VBA) in Excel

This post will show you how to switch from lower case to upper case in Excel. and I am going to show you two different ways of converting text to upper cases using formula or VBA macro in Excel 2013,Excel ...

How To Hide Every Other Row in Excel (Using VBA)

This post will show you how to hide alternate rows or columns in Excel or how to hide every third, fourth, fifth row or column in Excel. If you want to hide every other row in your current worksheet, how ...

Sidebar