JOS TAI eivät ole yksittäisiä lauseita, nämä ovat kaksi loogista toimintoa, jotka tottuvat yhdessä joskus VBA: ssa, käytämme näitä kahta loogista toimintoa yhdessä, kun meillä on useampi kuin yksi kriteeri tarkistettavaksi ja jos jokin ehdoista täyttyy, saamme todellinen tulos, kun käytämme if-lausetta Tai-lauseketta käytetään If-lauseen kahden kriteerin välillä.
JOS TAI toiminto VBA: ssa
Loogiset toiminnot ovat kaikkien kriteeripohjaisten laskelmien ydin. ”IF” on suosituin looginen toiminto, olipa se sitten laskentataulukko- tai VBA-funktio, se palvelee erinomaisesti tarpeitamme. Mutta yksi loogisempi toiminto, “OR” Excelissä, on aliarvioitu toiminto. On myös tärkeää hallita monimutkaisten laskelmien ratkaiseminen. Tässä artikkelissa opastamme sinut VBA IF OR -toiminnon läpi yksityiskohtaisesti. Lue koko artikkeli saadaksesi toiminnon yksityiskohtaisesti.
Kuinka käyttää IF: tä TAI-toiminnolla VBA: ssa?
Näytämme sinulle yksinkertaisen esimerkin IF OR -toiminnon käytöstä VBA: ssa.
Loogisten toimintojen yhdistelmä on parhaat parit excelissä. Kun yhdistät monia loogisia kaavoja toisen loogisen kaavan sisällä, se viittaa siihen, että laskeminen vaatii monia ehtoja testattavaksi.
Katsokaa nyt IF OR -funktion syntaksia VBA: ssa.
(Testi) TAI (Testi) TAI (Testi)
Tämä on sama kuin näimme taulukon esimerkissä. Saat paremman käsityksen katsomalla alla olevaa esimerkkiä.
Meillä on täällä edellisen kuukauden hinta, viimeisen 6 kuukauden keskihinta ja nykyinen kuukausihinta.
Meidän on tehtävä joitain testejä, jotta voimme päättää tuotteen ostamisesta vai eivät.
Jos nykyinen hinta on pienempi tai yhtä suuri kuin jompikumpi kahdesta muusta hinnasta, meidän pitäisi saada tulos nimellä "Osta" tai muuten saada "Älä osta".
Vaihe 1: Avaa IF-tila alimenettelyn sisällä.
Koodi:
Sub IF_OR_Example1 () Jos End Sub
Vaihe 2: Käytä IF-ehdon sisällä ensimmäistä loogista testiä alueena ("D2"). Arvo <= alue ("B2"). Arvo
Koodi:
Sub IF_OR_Example1 () Jos alue ("D2"). Arvo <= Range ("B2"). Arvo End Sub
Vaihe 3: Ensimmäinen looginen ehto on tehty, avaa nyt TAI-käsky.
Koodi:
Sub IF_OR_Example1 () Jos alue ("D2"). Arvo <= Range ("B2").
Vaihe 4: Käytä nyt toista loogista ehtoa alueena ("D2"). Arvo <= alue ("C2"). Arvo
Koodi:
Osa IF_OR_Example1 () Jos alue ("D2"). Arvo <= Alue ("B2"). Arvo TAI Alue ("D2"). Arvo <= Alue ("C2"). Arvo Loppu Sub
Vaihe 5: Ok, olemme suorittaneet loogiset testit täällä. Laita loogisten testien jälkeen sana ”Sitten”.
Koodi:
Osa IF_OR_Example1 () Jos alue ("D2"). Arvo <= alue ("B2"). Arvo tai alue ("D2"). Arvo <= alue ("C2"). Arvo sitten loppu
Step 6: In the next line, write what should be the result if the logical test is TRUE. If the condition is TRUE, we need the result as “Buy” in cell E2.
Code:
Sub IF_OR_Example1() If Range("D2").Value <= Range("B2").Value Or Range("D2").Value <= Range("C2").Value Then Range("E2").Value = "Buy" End Sub
Step 7: If the result is FALSE, we should get the result as “Do Not Buy.” So in the next line, put “Else” and write the code in the next line.
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 Sub
Vaihe 8: Sulje IF-käsky sanalla "End If".
Koodi:
Osa IF_OR_Example1 () Jos alue ("D2"). Arvo <= Alue ("B2"). Arvo tai alue ("D2"). Arvo <= Alue ("C2"). Arvo sitten Alue ("E2"). Arvo = "Osta" muu alue ("E2"). Arvo = "Älä osta" loppu, jos loppu alim
Ok, olemme valmiit koodaavan osan kanssa.
Suoritetaan tämä koodi F5: llä tai manuaalisesti ajo-vaihtoehdon avulla ja katsotaan, mikä tulos on solussa E2.
Saimme tuloksen nimellä "Osta", koska Applen nykyinen kuukausihinta on pienempi kuin molempien "Edellinen kuukausi" ja "6 kuukauden keskihinta".
JOS TAI VBA-toiminto silmukoilla (edistynyt)
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:
Osa IF_OR_Example1 () Dim k kokonaislukuna k = 2 - 9 Jos alue ("D" & k). Arvo <= alue ("B" & k). Arvo tai alue ("D" & k). Arvo <= Alue ("C" & k) .Arvo ja sitten alue ("E" & k) .Arvo = "Osta" muu alue ("E" & k) .Arvo = "Älä osta" Loppu, jos seuraava k Lopeta ali
