АКО ИЛИ нису појединачна изјава, ово су две логичке функције које се користе неколико пута заједно у ВБА, користимо ове две логичке функције заједно када имамо више од једног критеријума за проверу и ако је неки од критеријума испуњен добијамо истинит резултат, када користимо наредбу иф или се изјава користи између два критеријума наредбе Иф.
АКО ИЛИ функција у ВБА
Логичке функције су срце свих израчунавања заснованих на критеријумима. „ИФ“ је најпопуларнија логичка функција, било као функција радног листа или као ВБА функција, изврсно служи за наше потребе. Али још једна логична функција, „ИЛИ“ у екцелу, је најцењенија функција. Такође је важно савладати и решавање сложених прорачуна. У овом чланку ћемо вас детаљно провести кроз ВБА ИФ ИЛИ функцију. Прочитајте цео чланак да бисте детаљно сазнали функцију.
Како се користи ИФ са ИЛИ функцијом у ВБА?
Показаћемо вам једноставан пример употребе функције ИФ ИЛИ у ВБА.
Комбинација логичких функција су најбољи парови у екцелу. Када комбинујете много логичких формула унутар друге логичке формуле, то сугерише да израчунавање захтева много услова за тестирање.
Сада погледајте синтаксу функције ИФ ОР у ВБА.
(Тест) ИЛИ (Тест) ИЛИ (Тест)
Ово је исто као што смо видели у примеру радног листа. За боље разумевање, погледајте пример у наставку.
Овде имамо цену из претходног месеца, последњу шестомесечну просечну цену и тренутну месечну цену.
Да бисмо одлучили да ли ћемо купити производ или не, овде треба да направимо неке тестове, а ти тестови јесу.
Ако је тренутна цена мања или једнака било којој од друге две цене, требало би да добијемо резултат „Купи“ или бисмо добили резултат као „Не купуј“.
Корак 1: Отворите ИФ стање унутар потпроцедуре.
Шифра:
Суб ИФ_ОР_Екампле1 () Ако Крај Суб
Корак 2: Унутар стања ИФ примените први логички тест као опсег („Д2"). Вредност <= опсег („Б2"). Вредност
Шифра:
Суб ИФ_ОР_Екампле1 () Ако је опсег („Д2“). Вредност <= опсег („Б2“). Вредност Крај Суб
Корак 3: Први логички услов је готов, сада отворен ИЛИ израз.
Шифра:
Под ИФ_ОР_Екампле1 () Ако је опсег ("Д2"). Вредност <= опсег ("Б2"). Вредност ИЛИ крај Суб
Корак 4: Сада примените други логички услов као опсег („Д2"). Вредност <= опсег („Ц2"). Вредност
Шифра:
Под ИФ_ОР_Екампле1 () Ако је опсег ("Д2"). Вредност <= опсег ("Б2"). Вредност ИЛИ опсег ("Д2"). Вредност <= опсег ("Ц2"). Вредност Крај Суб
Корак 5: У реду, овде смо завршили са логичким тестовима. После логичких тестова ставите реч „Онда“.
Шифра:
Под ИФ_ОР_Екампле1 () Ако је опсег ("Д2"). Вредност <= опсег ("Б2"). Вредност или опсег ("Д2"). Вредност <= опсег ("Ц2"). Вредност Затим заврши под
Корак 6: У следећи ред напишите какав би требао бити резултат ако је логички тест ИСТИНА. Ако је услов ИСТИНА, потребан нам је резултат као „Купи“ у ћелији Е2.
Шифра:
Под ИФ_ОР_Екампле1 () Ако опсег ("Д2"). Вредност <= опсег ("Б2"). Вредност или опсег ("Д2"). Вредност <= опсег ("Ц2"). Вредност затим опсег ("Е2"). Валуе = "Буи" Енд Суб
Корак 7: Ако је резултат ФАЛСЕ, требали бисмо добити резултат као „Не купујте“. Дакле, у следећи ред ставите „Елсе“ и напишите код у следећи ред.
Шифра:
Под ИФ_ОР_Екампле1 () Ако опсег ("Д2"). Вредност <= опсег ("Б2"). Вредност или опсег ("Д2"). Вредност <= опсег ("Ц2"). Вредност затим опсег ("Е2"). Валуе = "Купи" Елсе Ранге ("Е2"). Валуе = "Не купуј" Крај Суб
Step 8: Close the IF statement with the word “End If.”
Code:
Sub IF_OR_Example1() If Range("D2").Value <= Range("B2").Value Or Range("D2").Value <= Range("C2").Value Then Range("E2").Value = "Buy" Else Range("E2").Value = "Do Not Buy" End If End Sub
Ok, we are done with the coding part.
Let’s run this code using F5 or manually through the run option and see what the result is in cell E2.
We got the result as “Buy” because the current monthly price of Apple is less than the price of both “Previous Month” as well as “6 Month Average Price”.
IF OR VBA Function with Loops (Advanced)
Once you understand the formula, try to use it with a larger number of cells. In the case of a larger number of cells, we cannot write any line of code, so we need to use VBA loops.
For the above set of data, I have added a few more lines.
We need to use the For Next loop here.
Just keep the current code as it is.
Declare the variable as an integer.
Now open For Next Loop from 2 to 9.
Now, wherever we have cell reference, change the current number, and concatenate the variable “k” with them.
For example, Range (“D2”).Value should be Range (“D” & k).Value
Now run the code. We should get the status in all the cells.
You can copy the code below.
Code:
Суб ИФ_ОР_Екампле1 () Дим к као цео број за к = 2 до 9 ако је опсег ("Д" & к) .Вредност <= Распон ("Б" & к) .Вредност или опсег ("Д" & к) .Вредност <= Опсег ("Ц" & к) .Вредност затим опсег ("Е" & к) .Валуе = "Купи" Остали опсег ("Е" & к) .Валуе = "Не купуј" Крај ако је следећи к Крај Суб
