Vba excel аналог функции или

The OR function is a logical function in any of the programming languages. Similar to VBA, we have an OR function, as it is a logical function. The result given by this function is either “True” or “False.” This function is used for two or many conditions together. It gives us a “True” result when either of the conditions returns “True.”

What is OR Function in VBA?

In Excel, logical functions are the heart of daily formulas. Logical functions are there to conduct the logical test and result in Boolean data type, i.e., TRUE or FALSE. Some logical formulas in Excel are IF, IFERROR in excelThe IFERROR function in Excel checks a formula (or a cell) for errors and returns a specified value in place of the error.read more, ISERROR in excelISERROR is a logical function that determines whether or not the cells being referred to have an error. If an error is found, it returns TRUE; if no errors are found, it returns FALSE.read more, , AND, and OR Excel functions.

We hope you have used them quite often as a worksheet function. In VBA, too, we can use all of them, and in this article, we will explain the ways of using the “VBA OR” function.

What is the first thing that comes to mind when you think of the word “OR”?

In simple terms, “OR” means “either this or that.”

With the same idea, OR is a logical function that gives the result as TRUE if any of the logical tests is TRUE and gives FALSE if none of the logical tests are TRUE.

It works exactly the opposite of the VBA AND function. The AND function returns TRUE only if all the logical conditions are TRUE. If any of the conditions are not satisfied, we will get FALSE.

You are free to use this image on your website, templates, etc, Please provide us with an attribution linkArticle Link to be Hyperlinked
For eg:
Source: VBA OR Function (wallstreetmojo.com)

The formula of VBA OR Function

Let me frame a syntax for you to understand the function.

[Logical Test] OR [Logical Test] OR [Logical Test]

First, we need to mention the logical test, then mention the word “OR,” and then mention the second logical test. If you wish to conduct a more logical test, mention the word OR after a logical test.

Of all the logical tests you do, if any of the tests are satisfied or true, then we will get the result as TRUE if none or satisfied, then the result is FALSE.

Examples of Using OR Function in VBA

We will show you a simple example of using the OR function in VBA.

You can download this VBA OR Excel Template here – VBA OR Excel Template

To understand the logical VBA function OR let us give you an example. Let us say we want to conduct the logical test of whether the number 25 is greater than 20 or the number 50 is less than 30.

Step 1: Create a macro name.

Step 2: Define the variable as a string.

Code:

Sub OR_Example1()
 
  Dim i As String

End Sub

Step 3: Now, we will assign the value through the OR logical test for this variable.

Code:

Sub OR_Example1()
 
  Dim i As String

  i =

End Sub

Step 4: Our first logical test is 25 >20.

Code:

Sub OR_Example1()

  Dim i As String

  i = 25 > 20

End Sub

Step 5: Now, after the first logical test, mention the word OR and enter the second logical test.

Code:

Sub OR_Example1()

  Dim i As String

  i = 25 > 20 Or 50 < 30

End Sub

Step 6: Now, VBA OR function tests whether the logical tests are TRUE or FALSE. Now assign the result of the variable to the VBA message box.

Code:

Sub OR_Example1()

  Dim i As String

  i = 25 > 20 Or 50 < 30

  MsgBox i

End Sub

Step 7: Run the Macro and what the result is.

We got the result as TRUE because out of the two logical testsA 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 we have provided, one test is TRUE, so the result is TRUE.

25 is greater than 20, and 50 is not less than 30. In this case, the first logical test is TRUE, but the second is FALSE. Because we have applied the VBA OR function, it needs any one of the conditions to be TRUE to get the result as TRUE.

Now, look at the code below.

Code:

Sub OR_Example1()

  Dim i As String

  i = 25 = 20 Or 50 = 30

  MsgBox i

End Sub

We have changed the logical test equations from > and < to equal (=) sign. Therefore, it will return FALSE as the result because 25 is not equal to 20, and 50 is not equal to 30.

VBA OR Function With IF Condition is Powerful

As we said, the OR function can return either TRUE or FALSE as a result, but with the other logical function, “IF,” we can manipulate results as per our needs.

Take the same logical tests from above. Again, the OR function has returned only TRUE or FALSE, but let us combine this OR with IF.

Step 1: Before conducting any test, open the function IF.

Code:

Sub OR_Example2()
  Dim i As String

  IF

End Sub

Step 2: Now, conduct tests using the OR function.

Code:

Sub OR_Example2()
  Dim i As String

  IF 25 = 20 Or 50 = 30

End Sub

Step 3: Put the word “Then” and write the result. If the condition is TRUE, assign the value to the variable as “Condition is Satisfied.”

Code:

Sub OR_Example2()
  Dim i As String

  If 25 = 20 Or 50 = 30 Then
    i = "Condition is Satisfied"

End Sub

Step 4: If the condition is FALSE, then we need a different result, so put the word “ELSE” and, in the next line, assign the value to the variable “what should be the result if the condition or logical test is FALSE.”

Code:

Sub OR_Example2()
  Dim i As String
 
 If 25 = 20 Or 50 = 30 Then
    i = "Condition is Satisfied"
 Else
   i = "Condition is not Satisfied"

End Sub

Step 5: End the IF function with “End If.”

Code:

Sub OR_Example2()
  Dim i As String

  If 25 = 20 Or 50 = 30 Then
    i = "Condition is Satisfied"
  Else
    i = "Condition is not Satisfied"
  End If

End Sub

Step 6: Assign the value of the variable result to the message box.

Code:

Sub OR_Example2()
  Dim i As String

  If 25 = 20 Or 50 = 30 Then
     i = "Condition is Satisfied"
  Else
     i = "Condition is not Satisfied"
  End If

  MsgBox i

End Sub

Run the Macro. If the logical test is TRUE, we will get the result as “Condition is Satisfied,” or else we will get “Condition is not Satisfied.”

We got the result  “Condition is not Satisfied” because both the logical tests are FALSE.

Now, we will change the logical tests.

Code:

Sub OR_Example2()
   Dim i As String

   If 25 > 20 Or 50 < 30 Then
      i = "Condition is Satisfied"
   Else
      i = "Condition is not Satisfied"
   End If

   MsgBox i

End Sub

We will run the macro and see what the result is.

Like this, we can use one logical function with other logical functions to arrive at the results.

Solve the below case study to get used to logical functions.

Case Study to Solve

We have employee names and their respective departments.

If you have tried and not found the result, then you can refer below code to understand the logic.

Code:

Sub Bonus_Calculation()
  Dim i As Long

  For i = 2 To 10
  If Cells(i, 2).Value = "Finance" Or Cells(i, 2).Value = "IT" Then
     Cells(i, 3).Value = 5000
  Else
     Cells(i, 3).Value = 1000
  End If

  Next i

End Sub

If the employee is from “Finance” or “IT,” then they should get the bonus of “5000.” For other department employees, the bonus is “1000.”

Conduct the logical test and arrive at the results.

Recommended Articles

This article has been a guide to VBA OR Function. Here, we learn how to use OR Logical Operator in VBA along with some practical examples and a downloadable Excel template. Below are some useful Excel articles related to VBA: –

• IFERROR in VBA
• Excel VBA On Error Statement
• Excel OR Function
• VBA Month Function

Excel VBA OR Function

Like a worksheet function excel VBA also has a logical function which is OR function. In any programming language OR function is defined as follows:

Condition 1 OR Condition 2. If any of the given conditions happens to be true the value returned by the function is true while if both of the condition happens to be false the value returned by the function is false. OR Function can be termed as that it is opposite to AND function because in AND function both of the condition needs to be true in order to get a true value. Even if a single condition is termed as false then the whole value returned by the AND function is false. While in OR Function only one condition needs to be true in order to get TRUE as an output.

Syntax of OR Function in Excel VBA

VBA OR function has the following syntax:

{Condition 1} OR {Condition 2}

Let us use this function in VBA to have a clear mindset of how to use this function in general terms.

Note: In order to use VBA we need to have developer access enabled from the file tab.

How to Use Excel VBA OR Function?

We will learn how to use VBA OR Function with few examples in excel.

You can download this VBA OR Excel Template here – VBA OR Excel Template

Example #1 – VBA OR

To use this OR Function in our first example let us assume that there are four values A, B, C and D. We will assign these variables certain Values and check that if A>B or C>D and if any of the conditions is true what we will get as an output.

Follow the below steps to use VBA Union function in Excel:

Step 1: Now once we are in VB Editor go ahead and insert a new module from the insert section.

Step 2: A code window will appear on the right-hand side of the screen. Define the subfunction as Sample.

Code:

Sub Sample()

End Sub

Step 3: Define the four variables A B C and D as integers.

Code:

Sub Sample()

Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer

End Sub

Step 4: Define a variable X to store the value of OR Function, define it as a string.

Code:

Sub Sample()

Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim X As String

End Sub

Step 5: Assign Random Values to A B C and D.

Code:

Sub Sample()

Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim X As String
A = 10
B = 15
C = 20
D = 25

End Sub

Step 6: Define X’s Values as conditions for A B C and D.

Code:

Sub Sample()

Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim X As String
A = 10
B = 15
C = 20
D = 25
X = A > B Or C > D

End Sub

Step 7: Now we will display the value of X stored in it.

Code:

Sub Sample()

Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim X As String
A = 10
B = 15
C = 20
D = 25
X = A > B Or C > D
MsgBox X

End Sub

Step 8: Run the code from the run button provided in the screenshot below and then we see the following result when we run the above code.

Why we get the value as false because A is not greater than B and C is not greater than D. Both of the values of the condition were returned as false so our final output is also returned as false.

Example #2 – VBA OR

Now let us interchange the values for X from example 1. I mean to say that this time our expression for X will be A<B OR C>D. And we will see what will be the result displayed by the code.

Step 1: Now once we are in VB Editor go ahead and insert a new module from the insert section.

Step 2: A code window will appear on the right-hand side of the screen. Define the subfunction as Sample1.

Code:

Sub Sample1()

End Sub

Step 3: Define the four variables A B C and D as integers.

Code:

Sub Sample1()

Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer

End Sub

Step 4: Define a variable X to store the value of OR Function, define it as a string.

Code:

Sub Sample1()

Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim X As String

End Sub

Step 5: Assign Random Values to A B C and D.

Code:

Sub Sample1()

Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim X As String
A = 10
B = 15
C = 20
D = 25

End Sub

Step 6: Define X’s Values as conditions for A B C and D.

Code:

Sub Sample1()

Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim X As String
A = 10
B = 15
C = 20
D = 25
X = A < B Or C > D

End Sub

Step 7: Now we will display the value of X stored in it.

Code:

Sub Sample1()

Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim X As String
A = 10
B = 15
C = 20
D = 25
X = A < B Or C > D
MsgBox X

End Sub

Step 8: Run the code above from the run button as shown and we will see the following result as we run the above code.

Why we get the value as True because A is less than B and C is not greater than D. One of the values of the condition were returned as true so our final output is also returned as true.

Example #3 – VBA OR

Now let us use OR Function in VBA with the IF function. Earlier we used another variable to store the Boolean value of OR function and display it. This time we will use a personalized message to display using or and if function.

Steps 1: Now once we are in VB Editor go ahead and insert a new module from the insert section.

Step 2: A code window will appear on the right-hand side of the screen. Define the subfunction as Sample2.

Code:

Sub Sample2()

End Sub

Step 3: Define all the four variables A B C and D as integers and assign them random values.

Code:

Sub Sample2()

Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
A = 5
B = 10
C = 15
D = 20

End Sub

Step 4: Now write the if statement for the given variables, for example, like in the code given below,

Code:

Sub Sample2()

Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
A = 5
B = 10
C = 15
D = 20
If (A < B) Or (C > D) Then

End Sub

Step 5: Write a personalized message if any of the logical conditions is true or even if it is false.

Code:

Sub Sample2()

Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
A = 5
B = 10
C = 15
D = 20
If (A < B) Or (C > D) Then
MsgBox "One of the conditions is true"
Else
MsgBox "None of the conditions is true"
End If

End Sub

Step 6: Run the above code from the run button and we will get the following result displayed.

As one of the conditions were true we have the above result.

Example #4 – VBA OR

Let use VBA OR function in a real scenario. We have the following data, Name of the employees and sales done by them. If their sales are equals to specific criteria or greater than that then they will receive the incentive or there will be no incentive for those employees. Have a look at the data below,

The incentive criteria are 10000 for this example. If the sales done by the employees is equals to or above 10000 they will receive the incentive.

Steps 1: Now once we are in VB Editor go ahead and insert a new module from the insert section.

Step 2: In the code window, declare the subfunction,

Code:

Sub Employee()

End Sub

Step 3: Declare a variable X as Long and write the if statement as below,

Code:

Sub Employee()

Dim X As Long

For X = 2 To 10
If Cells(X, 2).Value = 10000 Or Cells(X, 2).Value > 10000 Then
Cells(X, 3).Value = "Incentive"
Else
Cells(X, 3).Value = "No Incentive"

End If

End Sub

Step 4: Start the loop for the next cell.

Code:

Sub Employee()

Dim X As Long

For X = 2 To 10
If Cells(X, 2).Value = 10000 Or Cells(X, 2).Value > 10000 Then
Cells(X, 3).Value = "Incentive"
Else
Cells(X, 3).Value = "No Incentive"

End If
Next X
End Sub

Step 5: Run the code to form the run button provided and once we have run the code check the result below,

In the If Statement, we used that if the sales are done is equals to 10000 or sales done greater than 10000 the employee will receive incentive.

Things to Remember

There are a few things we need to remember about VBA OR Function:

• It is a logical function in excel or any other programming language.
• It returns a logical output true or false.
• It is the opposite of AND Function.

Recommended Articles

This is a guide to VBA OR. Here we have discussed how to use Excel VBA OR Function along with practical examples and downloadable excel template. You can also go through our other suggested articles –

1. VBA On Error
2. VBA Number Format
3. VBA VLOOKUP
4. VBA Function

VBA Logical Operators: AND, OR, NOT

VBA Logical Operators Example Source Code

For the sake of simplicity, we will be comparing hard coded numbers.

Add ActiveX buttons to the sheet from the “Insert option.”

Set the properties as shown in the image below

The following table shows the properties that you need to change and the values that you need to update too.

S/N	Control	Property	Value
1	CommandButton1	Name	btnAND
		Caption	AND Operator (0 = 0)
2	CommandButton2	Name	btnOR
		Caption	OR Operator (1 = 1) Or (5 = 0)
3	CommandButton3	Name	btnNOT
		Caption	NOT Operator Not (0 = )

Add the following code to btnAND_Click

Private Sub btnAND_Click()
    If (1 = 1) And (0 = 0) Then
            MsgBox "AND evaluated to TRUE", vbOKOnly, "AND operator"
        Else
            MsgBox "AND evaluated to FALSE", vbOKOnly, "AND operator"
    End If
End Sub

VBA If AND Operator

• “If (1 = 1) And (0 = 0) Then” the if statement uses the AND logical operator to combine two conditions (1 = 1) And (0 = 0). If both conditions are true, the code above ‘Else’ keyword is executed. If both conditions are not true, the code below ‘Else’ keyword is executed.

Add the following code to btnOR_Click

Private Sub btnOR_Click()
    If (1 = 1) Or (5 = 0) Then
            MsgBox "OR evaluated to TRUE", vbOKOnly, "OR operator"
        Else
            MsgBox "OR evaluated to FALSE", vbOKOnly, "OR operator"
    End If
End Sub

VBA If OR Operator

• “If (1 = 1) Or (5 = 0) Then” the if statement uses the OR logical operator to combine two conditions (1 = 1) And (5 = 0). If any of the conditions is true, the code above Else keyword is executed. If both conditions are false, the code below Else keyword is executed.

Add the following code to btnNOT_Click

Private Sub btnNOT_Click()
    If Not (0 = 0) Then
            MsgBox "NOT evaluated to TRUE", vbOKOnly, "NOT operator"
        Else
            MsgBox "NOT evaluated to FALSE", vbOKOnly, "NOT operator"
    End If
End Sub

VBA If NOT Operator

• “If Not (0 = 0) Then” the VBA If Not function uses the NOT logical operator to negate the result of the if statement condition. If the conditions is true, the code below ‘Else’ keyword is executed. If the condition is true, the code above Else keyword is executed.

Download Excel containing above code