ČE ALI ni en stavek, gre za dve logični funkciji, ki se v VBA uporabljata nekajkrat za skupno uporabo, dve logični funkciji uporabljamo skupaj, kadar imamo več meril za preverjanje in če je izpolnjeno katero od meril, dobimo resnični rezultat, ko uporabimo izjavo if ali stavek med obema kriterijema stavka If.
ČE ALI funkcija v VBA
Logične funkcije so jedro vseh izračunov, ki temeljijo na kriterijih. »IF« je najbolj priljubljena logična funkcija, pa naj bo to funkcija delovnega lista ali funkcija VBA, ki odlično služi našim potrebam. Toda še ena logična funkcija, ALI v Excelu, je najbolj podcenjena funkcija. Pomembno je tudi obvladati reševanje zapletenih izračunov. V tem članku vas bomo podrobno popeljali skozi funkcijo VBA IF ALI. Preberite celoten članek, če želite podrobno prebrati funkcijo.
Kako uporabiti IF s funkcijo ALI v VBA?
Pokazali vam bomo preprost primer uporabe funkcije IF ALI v VBA.
Kombinacija logičnih funkcij je najboljši par v Excelu. Ko združite veliko logičnih formul znotraj druge logične formule, to nakazuje, da je za izračun potrebno preizkusiti veliko pogojev.
Zdaj si oglejte sintakso funkcije IF OR v VBA.
(Test) ALI (Test) ALI (Test)
To je enako, kot smo videli v primeru delovnega lista. Za boljše razumevanje si oglejte spodnji primer.
Tu imamo ceno za prejšnji mesec, zadnjo 6-mesečno povprečno ceno in trenutno mesečno ceno.
Da se odločimo, ali bomo izdelek kupili ali ne, moramo tukaj opraviti nekaj testov in ti testi so.
Če je trenutna cena manjša ali enaka kateri koli od drugih dveh cen, bi morali dobiti rezultat kot »Nakup« ali pa »Ne kupovati«.
1. korak: Odprite stanje IF v podproceduri.
Koda:
Sub IF_OR_Example1 () Če se konča Sub
2. korak: V pogoju IF uporabite prvi logični test kot obseg (“D2”). Vrednost <= obseg (“B2”).
Koda:
Sub IF_OR_Example1 () Če obseg (“D2”). Vrednost <= obseg (“B2”). Vrednost Konec Sub
3. korak: Izveden je prvi logični pogoj, zdaj je odprt stavek OR.
Koda:
Sub IF_OR_Example1 () Če obseg ("D2"). Vrednost <= obseg ("B2"). Vrednost ALI konec Sub
4. korak: Zdaj uporabite drugi logični pogoj kot obseg (“D2”). Vrednost <= obseg (“C2”).
Koda:
Pod IF_OR_Example1 () Če obseg ("D2"). Vrednost <= obseg ("B2"). Vrednost ALI obseg ("D2"). Vrednost <= obseg ("C2"). Vrednost Konec Sub
5. korak: Ok, tukaj smo zaključili z logičnimi testi. Po logičnih preizkusih postavite besedo »Potem«.
Koda:
Sub IF_OR_Example1 () Če obseg ("D2"). Vrednost <= obseg ("B2"). Vrednost ali obseg ("D2"). Vrednost <= obseg ("C2").
6. korak: V naslednjo vrstico napišite, kakšen naj bo rezultat, če je logični test TRUE. Če je pogoj TRUE, potrebujemo rezultat kot »Nakup« v celici E2.
Koda:
Pod IF_OR_Example1 () Če obseg ("D2"). Vrednost <= obseg ("B2"). Vrednost ali obseg ("D2"). Vrednost <= obseg ("C2"). Vrednost nato obseg ("E2"). Value = "Buy" End Sub
7. korak: Če je rezultat LAŽEN, bi ga morali dobiti kot »Ne kupujte«. V naslednjo vrstico torej vnesite "Else" in v naslednjo vrstico napišite kodo.
Koda:
Pod IF_OR_Example1 () Če obseg ("D2"). Vrednost <= obseg ("B2"). Vrednost ali obseg ("D2"). Vrednost <= obseg ("C2"). Vrednost nato obseg ("E2"). Value = "Buy" Else Range ("E2"). Value = "Ne kupuj" End Sub
Korak 8: Zaprite stavek IF z besedo "End If."
Koda:
Pod IF_OR_Example1 () Če obseg ("D2"). Vrednost <= obseg ("B2"). Vrednost ali obseg ("D2"). Vrednost <= obseg ("C2"). Vrednost nato obseg ("E2"). Value = "Buy" Else Range ("E2"). Value = "Ne kupuj" End If End Sub
Ok, končali smo s kodiranjem.
Zaženimo to kodo s pomočjo F5 ali ročno prek možnosti zagon in poglejmo, kakšen je rezultat v celici E2.
Rezultat smo dobili kot »Nakup«, ker je trenutna mesečna cena Applea nižja od cene tako prejšnjega meseca kot tudi »povprečne 6-mesečne cene«.
IF ALI VBA funkcija z zankami (napredno)
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 Kot celo število za k = 2 do 9, če je obseg ("D" & k) .Vrednost <= Obseg ("B" & k) .Vrednost ali obseg ("D" & k) .Vrednost <= Range ("C" & k) .Value then Range ("E" & k) .Value = "Buy" Else Range ("E" & k) .Value = "Do not Buy" End If Next k End Sub
