POKUD NEBO nejsou jediný příkaz, jedná se o dvě logické funkce, které jsou ve VBA někdy použity společně, tyto dvě logické funkce používáme společně, když máme ke kontrole více než jedno kritérium a pokud je splněno kterékoli z kritérií, dostaneme skutečný výsledek, když použijeme příkaz if nebo příkaz if se použije mezi dvěma kritérii příkazu if.
IF OR Funkce ve VBA
Logické funkce jsou srdcem všech výpočtů založených na kritériích. „IF“ je nejoblíbenější logická funkce, ať už jako funkce listu nebo jako funkce VBA, slouží skvěle pro naše potřeby. Ale ještě jedna logická funkce, „NEBO“ v aplikaci Excel, je nejvíce podceňovanou funkcí. Je také důležité zvládnout, pokud jde o řešení složitých výpočtů. V tomto článku vás provedeme podrobně funkcí VBA IF OR. Přečtěte si celý článek a získejte podrobnou funkci.
Jak používat IF s funkcí OR ve VBA?
Ukážeme vám jednoduchý příklad použití funkce IF OR ve VBA.
Kombinace logických funkcí je nejlepší páry v aplikaci Excel. Když zkombinujete mnoho logických vzorců uvnitř jiného logického vzorce, naznačuje to, že výpočet vyžaduje pro testování mnoho podmínek.
Nyní se podívejte na syntaxi funkce IF OR ve VBA.
(Test) NEBO (Test) NEBO (Test)
To je stejné, jak jsme viděli v příkladu listu. Pro lepší pochopení se podívejte na níže uvedený příklad.
Máme zde cenu za předchozí měsíc, průměrnou cenu za posledních 6 měsíců a aktuální měsíční cenu.
Abychom se rozhodli, zda si produkt koupíme, či nikoli, musíme zde provést několik testů a tyto testy jsou.
Pokud je aktuální cena nižší nebo rovna kterékoli z ostatních dvou cen, měli bychom získat výsledek jako „Koupit“, jinak bychom měli získat výsledek jako „Nekupovat“.
Krok 1: Otevřete podmínku IF uvnitř podprocesu.
Kód:
Sub IF_OR_Example1 () Pokud End Sub
Krok 2: Uvnitř podmínky IF použijte první logický test jako Rozsah („D2“). Hodnota <= Rozsah („B2“). Hodnota
Kód:
Sub IF_OR_Example1 () If Range (“D2”). Value <= Range (“B2”). Value End Sub
Krok 3: První logická podmínka je hotová, nyní otevřete příkaz OR.
Kód:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value OR End Sub
Krok 4: Nyní použijte druhou logickou podmínku jako Rozsah („D2“). Hodnota <= Rozsah („C2“). Hodnota
Kód:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value OR Range ("D2"). Value <= Range ("C2"). Value End Sub
Krok 5: Dobře, jsme zde hotovi s logickými testy. Po logických testech vložte slovo „Then“.
Kód:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value Or Range ("D2"). Value <= Range ("C2"). Value Then End Sub
Krok 6: Na další řádek napište, co by mělo být výsledkem, pokud je logický test TRUE. Pokud je podmínka PRAVDA, potřebujeme výsledek jako „Koupit“ v buňce E2.
Kód:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value Or Range ("D2"). Value <= Range ("C2"). Value Then Range ("E2"). Hodnota = "Koupit" koncový díl
Krok 7: Pokud je výsledek NEPRAVDA, měli bychom získat výsledek jako „Nekupujte“. Do dalšího řádku tedy vložte „Else“ a do dalšího řádku napište kód.
Kód:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value Or Range ("D2"). Value <= Range ("C2"). Value Then Range ("E2"). Hodnota = "Koupit" Else Range ("E2"). Hodnota = "Nekupovat" End Sub
Krok 8: Zavřete příkaz IF slovem „Ukončit pokud“.
Kód:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value Or Range ("D2"). Value <= Range ("C2"). Value Then Range ("E2"). Hodnota = "Koupit" Else Range ("E2"). Hodnota = "Nekupovat" Konec, pokud Konec Sub
Dobře, jsme hotovi s kódovací částí.
Pojďme spustit tento kód pomocí F5 nebo ručně pomocí možnosti spuštění a podívejme se, jaký je výsledek v buňce E2.
Výsledek jsme dostali jako „Koupit“, protože aktuální měsíční cena společnosti Apple je nižší než cena „předchozího měsíce“ i „průměrné ceny za 6 měsíců“.
Funkce IF NEBO VBA se smyčkami (pokročilé)
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:
Sub IF_OR_Example1 () Dim k As Integer For k = 2 To 9 If Range ("D" & k) .Value <= Range ("B" & k) .Value Or Range ("D" & k) .Value <= Range ("C" & k) .Value Then Range ("E" & k) .Value = "Buy" Else Range ("E" & k) .Value = "Do not Buy" End If Next k End Sub
