Или је логичка функција у било којем од програмских језика и слично у ВБА имамо функцију ОР, јер је то логичка функција резултат који даје ова функција је или истинит или нетачан, ова функција се користи за два или више услова заједно и даје нас истински резултат када се било који од услова врати тачно
Шта је ИЛИ функција у ВБА?
У Екцелу, логичке функције су срце формула које свакодневно користимо. Логичке функције су ту да изврше логички тест и дају резултат у логичком типу података, тј. ТРУЕ или ФАЛСЕ. Неке од логичких формула у екцелу су „ИФ, ИФЕРРОР у екцелу, ИСЕРРОР у екцелу, И, или ОР екцел функција.“ Надам се да сте их често користили као функцију радног листа. И у ВБА можемо да их користимо, а у овом чланку ћемо вам објаснити начине употребе функције „ВБА ИЛИ“.
Шта вам прво падне на памет кад помислите на реч „ИЛИ“?
Једноставно речено, „ИЛИ“ значи „или ово или оно“
Са истом идејом, ОР је логичка функција која даје резултат ТРУЕ ако је било који од логичких тестова ТРУЕ и даје ФАЛСЕ као резултат ако ниједан логички тест ТРУЕ.
Ово ради тачно супротно функцији ВБА АНД. Функција АНД враћа ТРУЕ само ако су сви логички услови ТРУЕ. Ако неко од услова није задовољен, добићемо ФАЛСЕ као резултат.
Формула ВБА ИЛИ функције
Дозволите ми да уоквирим синтаксу да бисте разумели функцију.
(Логички тест) ИЛИ (Логички тест) ИЛИ (Логички тест)
Прво морамо да поменемо шта је логички тест, затим споменимо реч ИЛИ, затим поменимо шта је други логички тест. Ако желите да спроведете логичнији тест, тада поменујте реч ИЛИ након што икад направите логички тест.
Од свих логичких тестова које радите, ако је неко од тестова задовољан или тачан, резултат ћемо добити ТРУЕ ако није или је задовољан, онда је резултат ФАЛСЕ.
Примери употребе функције ИЛИ у ВБА
Показаћемо вам једноставан пример употребе функције ОР у ВБА.
Да бисте разумели логичку функцију ВБА ИЛИ даћу вам пример. Рецимо да желимо да спроведемо логички тест да ли је број 25 већи од 20 или је број 50 мањи од 30.
Корак 1: Креирајте име макронаредбе.
Корак 2: Дефинишите променљиву као низ.
Шифра:
Суб ОР_Екампле1 () Дим и Ас Стринг Енд Суб
Корак 3: Сада ћемо за ову променљиву доделити вредност кроз ИЛИ логички тест.
Шифра:
Суб ОР_Екампле1 () Дим и Ас Стринг и = Енд Суб
Корак 4: Наш први логички тест је 25> 20 .
Шифра:
Суб ОР_Екампле1 () Дим и Ас Стринг и = 25> 20 Крај Суб
Корак 5: Сада, након првог логичког теста, спомените реч ИЛИ и унесите други логички тест.
Шифра:
Суб ОР_Екампле1 () Дим и Ас Стринг и = 25> 20 или 50 <30 Крај Суб
Корак 6: Ок, сада функција ВБА ИЛИ тестира да ли су логички тестови ИСТИНИТИ или ФАЛСЕ. Сада доделите резултат променљиве ВБА оквиру за поруке .
Шифра:
Суб ОР_Екампле1 () Дим и Ас Стринг и = 25> 20 или 50 <30 МсгБок и Енд Суб
Корак 7: Покрените макро и какав је резултат.
Резултат смо добили као ТРУЕ, јер је од два логичка теста која смо пружили један тест ТРУЕ, тако да је резултат ТРУЕ.
25 је веће од 20, а 50 не мање од 30. У овом случају, први логички тест је ИСТИНА, али други је ФАЛСЕ. Будући да смо применили функцију ВБА ИЛИ, потребан јој је било који од услова да би био ИСТИНА да би резултат добио ТАЧНО.
Сада погледајте доњи код.
Шифра:
Суб ОР_Екампле1 () Дим и Ас Стринг и = 25 = 20 или 50 = 30 МсгБок и Енд Суб
I have changes the logical test equations from> and < to equal (=) sign. This 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 I told, OR 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, OR has returned only TRUE or FALSE but let’s 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 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
Ако је запосленик из „Финансије“ или „ИТ-а“, тада би требао добити бонус као „5000“. За остале запослене у одељењу, бонус је „1000“.
Спроведите логички тест и дођите до резултата.
