“Not Equal” Operator in VBA

Usually, we do a logical test “whether something is equal to other things or not.” Sometimes, we also need to do the “inequality” test. The inequality test is nothing but not an equal test. Generally, we say if something is equal to another thing or not. If it is equal, perform some task if not a different task. Similarly, we can also do some operations using the Inequality test. For example, “NOT EQUAL” in VBA represents the combination of greater than and less than symbols. If both these operators are combined, then it becomes not equal, i.e., “<>.“

How Not Equal Works in Excel VBA?

VBA Not Equal works exactly opposite to the logic of equal to operator. Equal to operator returns TRUE if the supplied test is satisfied is not, it will return FALSE. So, for example, if you say 10 = 10, it will return TRUE or else FALSE.

Conversely, “Not Equal” works in the opposite direction. If the supplied logical test in excelLogical Test 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 is not equal, then only it will return TRUE or else FALSE.

For example, if you say 10 <> 10, it will return FALSE because 10 equals 10. Therefore, one value should not be equal to the other value to get a TRUE result.

You are free to use this image on you website, templates, etc., Please provide us with an attribution linkHow to Provide Attribution?Article Link to be HyperlinkedFor eg:Source: VBA Not Equal (wallstreetmojo.com)

Examples of Not Equal to in Excel VBA

Below are the examples of not equal to the operator in Excel VBA.

Example #1

Now, we will see how to practically use the VBA Not Equal (<>) sign. Look at the below piece of code.

Code:

Sub NotEqual_Example1()

Dim k As String

k = 100 <> 100

MsgBox k

End Sub

Here, we are testing whether the number 100 is not equal to the number 100. We know the number 100 equals 100, so the result will be FALSE.

Now, we will change the equation.

Sub NotEqual_Example1()

Dim k As String

k = 100 <> 99

MsgBox k

End Sub

Now, the test is whether the number 100 is not equal to 99. So the result will be TRUE.

Example #2

Now, we will see how to use this not equal operator in real-time examples. For the demonstration, we have created some data.

We have “Value 1” and “Value 2.”

Now, our requirement is if Value 1 is not equal to Value 2, then we need the result as “Different,” or else we need the result as “Same.”

Step 1: Define a variable as an Integer.

Sub NotEqual_Example2()

Dim k As Integer

End Sub

Step 2: Open FOR NEXT LOOP from 2 to 9.

Sub NotEqual_Example2()

Dim k As Integer

For k = 2 To 9

Next k

End Sub

Step 3: Inside the loop, we need to test whether Value 1 is not equal to Value 2. Since we need our results, we need to use IF Condition.

Sub NotEqual_Example2()

Dim k As Integer

For k = 2 To 9

  If Cells(k, 1) <> Cells(k, 2) Then
       Cells(k, 3).Value = "Different"
  Else
       Cells(k, 3).Value = "Same"
  End If

Next k

End Sub

Suppose the condition tests whether Value 1 is not equal to Value 2 or not. If not equal, it will return “Different.” If equal, it will return “Same.”

You can copy and paste the below VBA codeVBA 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.

Copy this code to your module and run using the F5 key or manually. It will return a result like this.

Hide and Unhide Sheets with Not Equal Sign

The various ways of using not equal sign are enormous. However, we can use this sign to fulfill our needs.

#1 – Hide All Sheets except One Sheet

We have seen this kind of situation many times. We needed to hide all the sheets except the particular sheet.

For example, if you want to hide all sheets except the sheet name “Customer Data,” then you can use this code.

Sub Hide_All()

Dim Ws As Worksheet

For Each Ws In ActiveWorkbook.Worksheets

    If Ws.Name <> "Customer Data" Then
        Ws.Visible = xlSheetVeryHidden
    End If
Next Ws

End Sub

#2 – Unhide All Sheets except One Sheet

Similarly, we can also unhide all sheets except one sheet. Use the below code to do this.

Sub Unhide_All()

Dim Ws As Worksheet

For Each Ws In ActiveWorkbook.Worksheets

    If Ws.Name <> "Customer Data" Then
        Ws.Visible = xlSheetVisible
    End If

Next Ws

End Sub

You can download this VBA Not Equal to Excel template here – VBA Not Equal Operator Template.

This article has been a guide to VBA, Not Equal. Here, we look at how to use the logical operator “Not Equal to” in VBA, along with practical examples and downloadable Excel sheets. Below are some useful VBA-related articles: –

  • Not Function in Excel VBAVBA StrConvVBA Integer