Eller er en logisk funksjon i et av programmeringsspråkene og lignende i VBA, vi har ELLER-funksjon, siden det er en logisk funksjon resultatet av denne funksjonen er enten sant eller usant, denne funksjonen brukes i to eller mange forhold sammen og gir oss sanne resultat når en av betingelsene blir returnert til sant.
Hva er ELLER funksjon i VBA?
I Excel er logiske funksjoner hjertet i formlene vi bruker daglig. Logiske funksjoner er der for å utføre den logiske testen og gir resultat i boolsk datatype, dvs. enten SANN eller FALSK. Noen av de logiske formlene i excel er “IF, IFERROR in excel, ISERROR in excel, AND, og OR excel function.” Jeg håper du har brukt dem ganske ofte som en regnearkfunksjon. Også i VBA kan vi bruke dem alle, og i denne artikkelen vil vi forklare deg hvordan du bruker “VBA OR” -funksjonen.
Hva er det første du tenker på når du tenker på ordet “ELLER”?
Enkelt sagt betyr “ ELLER” “enten dette eller det”
Med den samme ideen er OR en logisk funksjon som gir resultatet som SANT hvis noen av de logiske testene er SANNE og gir FALSE som resultat hvis ingen av de logiske testene er SANNE.
Dette fungerer akkurat motsatt av VBA OG funksjon. AND-funksjonen returnerer SANT bare hvis alle de logiske forholdene er SANNE. Hvis noen av vilkårene ikke er oppfylt, vil vi få FALSE som et resultat.
Formelen for VBA ELLER funksjon
La meg ramme en syntaks for at du skal forstå funksjonen.
(Logisk test) ELLER (Logisk test) ELLER (Logisk test)
Først må vi nevne hva som er den logiske testen, deretter nevne ordet ELLER, og deretter nevne hva den andre logiske testen er. Hvis du ønsker å gjennomføre en mer logisk test, så nevn ordet ELLER etter å ha prøvd en logisk test.
Av alle de logiske testene du gjør, hvis noen av testene er fornøyde eller sanne, vil vi få resultatet som SANT hvis det ikke er eller ikke, så er resultatet FALSJT.
Eksempler på bruk av OR-funksjon i VBA
Vi viser deg et enkelt eksempel på bruk av OR-funksjonen i VBA.
For å forstå den logiske VBA-funksjonen ELLER la meg gi deg et eksempel. La oss si at vi vil gjennomføre den logiske testen om tallet 25 er større enn 20 eller tallet 50 er mindre enn 30.
Trinn 1: Opprett et makronavn.
Trinn 2: Definer variabelen som en streng.
Kode:
Sub OR_Example1 () Dim i As String End Sub
Trinn 3: Nå, for denne variabelen, tildeler vi verdien gjennom ELLER logisk test.
Kode:
Sub OR_Example1 () Dim i As String i = End Sub
Trinn 4: Vår første logiske test er 25> 20 .
Kode:
Sub OR_Example1 () Dim i As String i = 25> 20 End Sub
Trinn 5: Nå, etter den første logiske testen, nevn ordet ELLER og skriv inn den andre logiske testen.
Kode:
Sub OR_Example1 () Dim i As String i = 25> 20 Eller 50 <30 End Sub
Trinn 6: Ok, nå tester VBA ELLER funksjon om de logiske testene er SANNE eller FALSE. Nå tilordner resultatet av variabelen til VBA- meldingsboksen .
Kode:
Sub OR_Example1 () Dim i As String i = 25> 20 Eller 50 <30 MsgBox i End Sub
Trinn 7: Kjør makroen og hva resultatet er.
Vi fikk resultatet som SANT fordi av to logiske tester vi har levert, er en test SANN, så resultatet er SANT.
25 er større enn 20, og 50 er ikke mindre enn 30. I dette tilfellet er den første logiske testen SANN, men den andre er FALSK. Fordi vi har brukt VBA ELLER-funksjonen, trenger en av betingelsene å være SANN for å få resultatet som SANT.
Nå, se på koden nedenfor.
Kode:
Sub OR_Example1 () Dim i As String i = 25 = 20 Eller 50 = 30 MsgBox i End Sub
Jeg har endret de logiske testligningene fra> og <til likhetstegn (=). Dette vil returnere FALSE som resultat fordi 25 ikke er lik 20 og 50 ikke er lik 30.
VBA ELLER Funksjon med HVIS tilstanden er kraftig
Som jeg sa, kan OR returnere enten SANT eller FALSK som et resultat, men med den andre logiske funksjonen "HVIS" kan vi manipulere resultatene etter våre behov.
Ta de samme logiske testene ovenfra, OR har bare returnert SANT eller FALSK, men la oss kombinere dette ELLER med IF.
Trinn 1: Før du utfører en test, åpner du funksjonen IF .
Kode:
Sub OR_Example2 () Dim i As String IF End Sub
Trinn 2: Utfør nå tester ved hjelp av OR- funksjonen.
Kode:
Sub OR_Example2 () Dim i As String IF 25 = 20 Eller 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 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
Hvis den ansatte er fra "Finance" eller "IT", bør de få bonusen som "5000". For andre avdelingsansatte er bonusen "1000".
Gjennomføre den logiske testen og komme til resultatene.
