Vagy logikai függvény bármelyik programozási nyelvben, és hasonló a VBA-nál, van OR függvényünk, mivel ez logikai függvény, ennek a függvénynek az eredménye igaz vagy hamis, ezt a függvényt két vagy több feltétel együttesen használja, és megadja igaz eredményt kapunk, ha bármelyik feltétel igaznak adódik.
Mi a VBA funkció a VBA-ban?
Az excelben a logikai függvények jelentik a napi rendszerességgel használt képletek szívét. A logikai függvények a logikai teszt elvégzésére szolgálnak, és logikai adattípust adnak, azaz IGAZ vagy HAMIS. Néhány logikai képlet az excelben: „IF, IFERROR az excelben, az ISERROR az excelben, ÉS és a VAGY excel függvény.” Remélem, elég gyakran használta őket munkalap funkcióként. A VBA-ban is mindegyiket felhasználhatjuk, és ebben a cikkben elmagyarázzuk Önnek a „VBA OR” funkció használatának módjait.
Mi jut eszedbe először, amikor az „OR” szóra gondolsz?
Egyszerűen fogalmazva az „OR” jelentése „vagy ez, vagy az”
Ugyanezzel az elképzeléssel az OR olyan logikai függvény, amely az eredményt IGAZként adja meg, ha a logikai tesztek bármelyike IGAZ, és a FALSE eredményt adja, ha egyik logikai teszt sem IGAZ.
Ez pontosan ellentétesen működik a VBA ÉS funkcióval. Az AND függvény csak akkor adja vissza az IGAZ értéket, ha az összes logikai feltétel IGAZ. Ha valamelyik feltétel nem teljesül, akkor ennek eredményeként FALSE-t kapunk.
A VBA OR Function képlete
Hadd állítsak össze egy szintaxist a funkció megértése érdekében.
(Logikai teszt) VAGY (Logikai teszt) VAGY (Logikai teszt)
Először meg kell említenünk, mi a logikai teszt, majd meg kell említenünk az OR szót, majd meg kell említenünk, mi a második logikai teszt. Ha logikusabb tesztet szeretne végrehajtani, akkor a logikai teszt megfordítása után említse meg az OR szót.
Az összes elvégzett logikai teszt közül, ha a tesztek közül valaki meg van elégedve vagy igaz, akkor az eredményt IGAZként kapjuk meg, ha egyik sem vagy teljesül, akkor az eredmény HAMIS.
Példák a VAGY funkció használatára a VBA-ban
Mutatunk egy egyszerű példát az OR függvény VBA használatára.
A logikus VBA függvény megértéséhez VAGY hadd mondjak egy példát. Tegyük fel, hogy el akarjuk végezni a logikai tesztet, hogy a 25-ös szám nagyobb, mint 20, vagy az 50-es szám kisebb, mint 30.
1. lépés: Hozzon létre egy makrónevet.
2. lépés: Határozza meg a változó karakterláncként.
Kód:
Sub OR_Example1 () Dim i As String End Sub
3. lépés: Most ehhez a változóhoz az OR logikai teszten keresztül rendeljük hozzá az értéket.
Kód:
Sub OR_Példa1 () Dim i As String i = Vége Sub
4. lépés: Az első logikai tesztünk 25> 20 .
Kód:
OR OR_példa1 () Dim i mint karakterlánc i = 25> 20 End Sub
5. lépés: Most, az első logikai teszt után, említse meg az OR szót, és írja be a második logikai tesztet.
Kód:
Sub OR_Példa1 () Dim i mint karakterlánc i = 25> 20 vagy 50 <30 End Sub
6. lépés: Ok, most a VBA OR funkció teszteli, hogy a logikai tesztek IGAZ vagy HAMIS-e. Most rendelje hozzá a változó eredményét a VBA üzenetmezőhöz .
Kód:
Sub OR_Példa1 () Dim i mint karakterlánc i = 25> 20 vagy 50 <30 MsgBox i End Sub
7. lépés: Futtassa a makrót, és mi az eredmény.
Az eredményt IGAZként kaptuk, mert az általunk megadott két logikai tesztből egy teszt IGAZ, tehát az eredmény IGAZ.
A 25 nagyobb, mint 20, az 50 pedig nem kevesebb, mint 30. Ebben az esetben az első logikai teszt IGAZ, de a második HAMIS. Mivel a VBA OR függvényt alkalmaztuk, az egyik feltételnek igazra kell állnia ahhoz, hogy az eredmény IGAZ legyen.
Most nézze meg az alábbi kódot.
Kód:
Sub OR_Példa1 () Dim i As String i = 25 = 20 Vagy 50 = 30 MsgBox i End Sub
Megváltoztattam a logikai tesztegyenleteket> és <értékekről egyenlő (=) előjelre. Ennek eredményeként FALSE lesz az eredménye, mert a 25 nem egyenlő 20-val, az 50 pedig nem egyenlő 30-mal.
A VBA VAGY az IF feltételekkel való működése hatékony
Mint mondtam, az OR eredményeként az IGAZ vagy a HAMIS visszatérhet, de a másik „IF” logikai függvénnyel az eredményeket az igényeink szerint manipulálhatjuk.
Tegye ugyanezeket a logikai teszteket felülről, az OR csak IGAZ vagy HAMIS értéket adott vissza, de egyesítsük ezt az OR-t az IF-vel.
1. lépés: Mielőtt bármilyen tesztet végezne, nyissa meg az IF funkciót .
Kód:
Sub OR_Példa2 () Dim i mint karakterlánc IF End Sub
2. lépés: Most végezzen teszteket az OR funkció használatával.
Kód:
Sub OR_Példa2 () Dim i mint karakterlánc IF 25 = 20 vagy 50 = 30 End Sub
3. lépés: Tegye az „Akkor” szót, és írja be az eredményt. Ha a feltétel IGAZ, rendelje hozzá a változó értékét a „Feltétel kielégítve ” értékhez .
Kód:
OR OR_példa2 () Dim i karakterláncként, ha 25 = 20 vagy 50 = 30, akkor i = "A feltétel kielégítő" Vége Sub
4. lépés: Ha a feltétel HAMIS, akkor más eredményre van szükségünk, ezért tegye az „ELSE” szót , és a következő sorba rendelje hozzá az értéket a „mi legyen az eredmény, ha a feltétel vagy logikai teszt HAMIS” változóhoz . ”
Kód:
Sub OR_Példa2 () Dim i karakterláncként, ha 25 = 20 vagy 50 = 30, akkor i = "A feltétel teljesül" Más i = "A feltétel nem elégedett" Vége al
5. lépés: Fejezze be az IF funkciót az „End If” szóval .
Kód:
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
Ha az alkalmazott „pénzügyekből” vagy „informatikából” származik, akkor a bónuszt „5000” -ként kell megkapnia. A többi részleg alkalmazottja számára a bónusz „1000”.
Végezze el a logikai tesztet, és érje el az eredményeket.
