JEI ARBA nėra vienas teiginys, tai yra dvi loginės funkcijos, kurios VBA kartais yra naudojamos kartu, šias dvi logines funkcijas naudojame kartu, kai turime daugiau nei vieną kriterijų, kuriuos reikia patikrinti, ir jei įvykdomas kuris nors iš šių kriterijų, gauname tikrasis rezultatas, kai mes naudojame teiginį „if“ arba „mond“ tarp dviejų „If“ teiginio kriterijų.
JEI ARBA funkcija VBA
Loginės funkcijos yra visų kriterijų pagrindu atliekamų skaičiavimų esmė. „IF“ yra populiariausia loginė funkcija, nesvarbu, ar tai būtų darbalapio, ar kaip VBA funkcija, ji puikiai tinka mūsų poreikiams. Bet dar viena logiška funkcija, „OR“ programoje „Excel“, yra labiausiai nuvertinta funkcija. Taip pat svarbu įsisavinti sudėtingus skaičiavimus. Šiame straipsnyje mes išsamiai apžvelgsime funkciją VBA IF ARBA. Perskaitykite visą straipsnį, kad gautumėte išsamią funkciją.
Kaip VBA naudoti IF su OR funkcija?
Parodysime paprastą IF OR funkcijos naudojimo VBA pavyzdį.
Loginių funkcijų derinys yra geriausios „Excel“ poros. Kai sujungiate daug loginių formulių kitos loginės formulės viduje, tai rodo, kad apskaičiuojant reikia išbandyti daug sąlygų.
Dabar pažvelkite į IF OR IFS sintaksę VBA.
(Testas) ARBA (Testas) ARBA (Testas)
Tai tas pats, ką matėme darbalapio pavyzdyje. Norėdami geriau suprasti, žiūrėkite žemiau pateiktą pavyzdį.
Čia pateikiame praėjusio mėnesio kainą, paskutinių 6 mėnesių vidutinę kainą ir dabartinę mėnesio kainą.
Norėdami nuspręsti, pirkti produktą ar ne, turime atlikti keletą bandymų, kurie yra.
Jei dabartinė kaina yra mažesnė arba lygi bet kuriai iš kitų dviejų kainų, mes turėtume gauti rezultatą kaip „pirkti“ arba kitaip gauti „nepirkti“.
1 veiksmas: atidarykite IF sąlygą subprocedūroje.
Kodas:
IF_OR_Pavyzdys1 () If End Sub
2 žingsnis: IF sąlygoje atlikite pirmąjį loginį testą kaip diapazoną („D2“). Reikšmė <= diapazonas („B2“). Reikšmė
Kodas:
IF_OR_Pavyzdys1 () Jei diapazonas („D2“). Reikšmė <= Diapazonas („B2“). Reikšmė Pabaiga Sub
3 žingsnis: atlikta pirmoji loginė sąlyga, dabar atidarykite OR sakinį.
Kodas:
IF_OR_Pavyzdys1 () If Range ("D2"). Reikšmė <= Range ("B2"). Reikšmė OR End Sub
4 žingsnis: Dabar pritaikykite antrąją loginę sąlygą kaip diapazoną („D2“). Reikšmė <= diapazonas („C2“). Reikšmė
Kodas:
IF_OR_Pavyzdys1 () If Range ("D2"). Reikšmė <= Range ("B2"). Vertė OR Range ("D2"). Vertė <= Range ("C2"). Reikšmė End Sub
5 žingsnis: Gerai, mes čia atlikome loginius bandymus. Po loginių testų uždėkite žodį „Tada“.
Kodas:
IF_OR_Pavyzdys1 () If Range ("D2"). Reikšmė <= Range ("B2"). Vertė arba Range ("D2"). Vertė <= Range ("C2"). Reikšmė tada End Sub
6 žingsnis: Kitoje eilutėje parašykite, koks turėtų būti rezultatas, jei loginis testas yra TIESA. Jei sąlyga yra TIESA, mums reikia rezultato kaip „Pirkti“ langelyje E2.
Kodas:
IF_OR_Pavyzdys1 () If Range ("D2"). Reikšmė <= Range ("B2"). Vertė arba Range ("D2"). Vertė <= Range ("C2"). Vertė tada Range ("E2"). Vertė = „Pirkti“ pabaigos sub
7 žingsnis: jei rezultatas yra NETIESA, rezultatą turėtume gauti kaip „Nepirkite“. Taigi kitoje eilutėje įrašykite „Else“ ir kitoje eilutėje įrašykite kodą.
Kodas:
IF_OR_Pavyzdys1 () If Range ("D2"). Reikšmė <= Range ("B2"). Vertė arba Range ("D2"). Reikšmė <= Range ("C2"). Vertė tada Range ("E2"). Vertė = "Pirkti" kitą diapazoną ("E2"). Reikšmė = "Nepirkite" pabaigos sub
8 veiksmas: uždarykite IF teiginį žodžiu „End If“.
Kodas:
IF_OR_Pavyzdys1 () If Range ("D2"). Reikšmė <= Range ("B2"). Vertė arba Range ("D2"). Reikšmė <= Range ("C2"). Vertė tada Range ("E2"). Reikšmė = "Pirkti" kitą diapazoną ("E2"). Reikšmė = "Nepirkite" Pabaiga, jei pabaiga
Gerai, mes baigėme kodavimo dalį.
Paleiskime šį kodą naudodami F5 arba rankiniu būdu paleidimo parinktį ir pažiūrėkime, koks rezultatas yra langelyje E2.
Rezultatą gavome kaip „Pirkti“, nes dabartinė „Apple“ mėnesio kaina yra mažesnė nei tiek „Praėjusio mėnesio“, tiek „Vidutinės 6 mėnesių kainos“.
IF ARBA VBA funkcija su kilpomis (išplėstinė)
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:
IF_OR_Pavyzdys1 () Dimensija k kaip sveikoji k = 2–9, jei diapazonas („D“ & k). Vertė <= diapazonas („B“ & k). Vertė arba diapazonas („D“ ir k). Vertė <= Diapazonas („C“ ir k). Vertė, tada diapazonas („E“ ir k). Vertė = „Pirkite“ kitą diapazoną („E“ ir k). Vertė = „Nepirkite“ Pabaiga, jei kitas k Pabaiga Sub
