Eller är en logisk funktion i något av programmeringsspråken och liknande i VBA har vi ELLER-funktion, eftersom det är en logisk funktion resultatet av denna funktion är antingen sant eller falskt, den här funktionen används för två eller många villkor tillsammans och ger vårt sanna resultat när något av villkoren returneras sant.
Vad är ELLER-funktionen i VBA?
I Excel är logiska funktioner hjärtat i de formler vi använder dagligen. Logiska funktioner finns för att genomföra det logiska testet och ger resultat i boolesk datatyp, dvs antingen SANT eller FALSKT. Några av de logiska formlerna i excel är ”IF, IFERROR i excel, ISERROR i excel, AND, och ELLER excel-funktion.” Jag hoppas att du har använt dem ganska ofta som en kalkylfunktion. Även i VBA kan vi använda dem alla, och i den här artikeln kommer vi att förklara för dig hur du använder funktionen “VBA ELLER”.
Vad är det första du kommer att tänka på när du tänker på ordet ”ELLER”?
Enkelt uttryckt betyder " ELLER" "antingen detta eller det"
Med samma idé är OR en logisk funktion som ger resultatet som SANT om någon av de logiska testerna är SANT och ger FALSK som resultat om ingen av de logiska testerna är SANT.
Detta fungerar precis motsatt VBA OCH-funktionen. AND-funktionen returnerar SANT endast om alla logiska förhållanden är SANT. Om någon av villkoren inte är uppfylld får vi FALSE som ett resultat.
Formeln för VBA ELLER-funktion
Låt mig inrama en syntax så att du förstår funktionen.
(Logiskt test) ELLER (Logiskt test) ELLER (Logiskt test)
Först måste vi nämna vad som är det logiska testet, sedan nämna ordet ELLER, sedan nämna vad det andra logiska testet är. Om du vill göra ett mer logiskt test, nämna ordet ELLER efter att ha gjort ett logiskt test.
Av alla logiska tester du gör, om någon av testerna är nöjda eller sanna, får vi resultatet som SANT om inget eller nöjt, då blir resultatet FALSKT.
Exempel på användning av ELLER-funktion i VBA
Vi visar ett enkelt exempel på hur du använder OR-funktionen i VBA.
För att förstå den logiska VBA-funktionen ELLER låt mig ge dig ett exempel. Låt oss säga att vi vill genomföra det logiska testet om siffran 25 är större än 20 eller nummer 50 är mindre än 30.
Steg 1: Skapa ett makronamn.
Steg 2: Definiera variabeln som en sträng.
Koda:
Under OR_Exempel1 () Dim i som sträng slut Sub
Steg 3: Nu, för den här variabeln, tilldelar vi värdet genom ELLER det logiska testet.
Koda:
Under OR_Exempel1 () Dim i som sträng i = Avsluta sub
Steg 4: Vårt första logiska test är 25> 20 .
Koda:
Sub OR_Exempel1 () Dim i som sträng i = 25> 20 End Sub
Steg 5: Nu, efter det första logiska testet, nämna ordet ELLER och ange det andra logiska testet.
Koda:
Under OR_Exempel1 () Dim i som sträng i = 25> 20 eller 50 <30 Slut sub
Steg 6: Ok, nu testar VBA ELLER funktion om de logiska testerna är SANTA eller FALSKA. Tilldela nu resultatet av variabeln till VBA- meddelanderutan .
Koda:
Sub OR_Exempel1 () Dim i som sträng i = 25> 20 eller 50 <30 MsgBox i End Sub
Steg 7: Kör makrot och vad resultatet blir.
Vi fick resultatet som SANT eftersom av två logiska tester vi har tillhandahållit är ett test SANT, så resultatet är SANT.
25 är större än 20 och 50 är inte mindre än 30. I det här fallet är det första logiska testet SANT, men det andra är FALSE. Eftersom vi har tillämpat VBA ELLER-funktionen behöver det något av villkoren för att vara SANT för att få resultatet som SANT.
Titta nu på koden nedan.
Koda:
Sub OR_Exempel1 () Dim i som sträng i = 25 = 20 eller 50 = 30 MsgBox i End Sub
Jag har ändrat de logiska testekvationerna från> och <till lika (=) tecken. Detta kommer att returnera FALSE som resultat eftersom 25 inte är lika med 20 och 50 inte är lika med 30.
VBA ELLER-funktion med IF-tillståndet är kraftfullt
Som jag sa kan OR returnera antingen SANT eller FALSK som ett resultat, men med den andra logiska funktionen "OM" kan vi manipulera resultaten enligt våra behov.
Ta samma logiska tester ovanifrån, ELLER har endast returnerat SANT eller FALSK men låt oss kombinera detta ELLER med IF.
Steg 1: Öppna funktionen IF innan du utför något test .
Koda:
Sub OR_Exempel2 () Dim i As String IF End Sub
Steg 2: Utför nu test med OR- funktionen.
Koda:
Under OR_exempel2 () Dim i som sträng IF 25 = 20 eller 50 = 30 slut 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 the word “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 as “Condition is not Satisfied” because both the logical tests are FALSE.
Now I 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
I 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
I 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
Om den anställde kommer från "Ekonomi" eller "IT", ska de få bonusen som "5000". För andra avdelningsanställda är bonusen ”1000”.
Genomför det logiska testet och nå resultaten.
