HVIS ELLER ikke er en eneste påstand, er dette to logiske funksjoner som brukes til sammen noen ganger i VBA, bruker vi disse to logiske funksjonene sammen når vi har mer enn ett kriterium å sjekke med, og hvis noen av kriteriene er oppfylt får vi det sanne resultatet, når vi bruker if-setningen Or-setningen brukes mellom de to kriteriene til If-setningen.
HVIS ELLER Funksjon i VBA
Logiske funksjoner er hjertet i alle kriteriebaserte beregninger. “HVIS” er den mest populære logiske funksjonen, det være seg som en regnearkfunksjon eller som en VBA-funksjon, den fungerer utmerket for våre behov. Men en annen logisk funksjon, “ELLER” i Excel, er den mest undervurderte funksjonen. Det er også viktig å mestre når det gjelder å løse komplekse beregninger. I denne artikkelen tar vi deg detaljert gjennom VBA IF ELLER-funksjonen. Les hele artikkelen for å få funksjonen i detalj.
Hvordan bruke IF med ELLER funksjon i VBA?
Vi viser deg et enkelt eksempel på bruk av ELLER-funksjon i VBA.
En kombinasjon av logiske funksjoner er de beste parene i excel. Når du kombinerer mange logiske formler i den andre logiske formelen, antyder det at beregning krever mange forhold for å teste.
Nå, se på syntaksen til IF ELLER-funksjonen i VBA.
(Test) ELLER (Test) ELLER (Test)
Dette er det samme som vi så i regnearkeksemplet. For å få en bedre forståelse, se på eksemplet nedenfor.
Vi har forrige måneds pris, den siste seks måneders gjennomsnittsprisen og den gjeldende månedlige prisen her.
For å bestemme oss for om vi skal kjøpe produktet eller ikke, må vi gjøre noen tester her, og disse testene er det.
Hvis den nåværende prisen er mindre enn eller lik en av de to andre prisene, bør vi få resultatet som "Kjøp", ellers bør resultatet få det som "Ikke kjøp."
Trinn 1: Åpne HVIS-tilstand inne i underprosedyren.
Kode:
Sub IF_OR_Example1 () Hvis slutt sub
Trinn 2: Innenfor IF-tilstanden, bruk den første logiske testen som Range (“D2”). Verdi <= Range (“B2”).
Kode:
Sub IF_OR_Example1 () If Range (“D2”). Value <= Range (“B2”). Value End Sub
Trinn 3: Den første logiske tilstanden er ferdig, nå åpner du OR-setningen.
Kode:
Sub IF_OR_Example1 () Hvis Range ("D2"). Verdi <= Range ("B2"). Verdi ELLER End Sub
Trinn 4: Bruk den andre logiske tilstanden som Range (“D2”). Verdi <= Range (“C2”).
Kode:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value OR Range ("D2"). Value <= Range ("C2"). Value End Sub
Trinn 5: Ok, vi er ferdige med de logiske testene her. Etter de logiske prøvene setter du ordet "Så".
Kode:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value or Range ("D2"). Value <= Range ("C2"). Value Then End Sub
Trinn 6: I neste linje skriver du hva som skal være resultatet hvis den logiske testen er SANT. Hvis tilstanden er SANN, trenger vi resultatet som "Kjøp" i celle E2.
Kode:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value or Range ("D2"). Value <= Range ("C2"). Value Then Range ("E2"). Verdi = "Kjøp" End Sub
Trinn 7: Hvis resultatet er FALSK, bør vi få resultatet som "Ikke kjøp." Så i neste linje, sett “Else” og skriv koden i neste linje.
Kode:
Sub IF_OR_Example1 () Hvis Range ("D2"). Verdi <= Range ("B2"). Verdi eller Range ("D2"). Verdi <= Range ("C2"). Verdi deretter Range ("E2"). Verdi = "Kjøp" annet utvalg ("E2"). Verdi = "Ikke kjøp" Slutt sub
Trinn 8: Lukk IF-setningen med ordet "End If."
Kode:
Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value or Range ("D2"). Value <= Range ("C2"). Value Then Range ("E2"). Verdi = "Kjøp" Else Range ("E2"). Verdi = "Ikke kjøp" Slutt hvis slutt sub
Ok, vi er ferdige med kodingsdelen.
La oss kjøre denne koden ved hjelp av F5 eller manuelt gjennom kjøringsalternativet og se hva resultatet er i celle E2.
Vi fikk resultatet som "Kjøp" fordi den nåværende månedlige prisen på Apple er lavere enn prisen for både "Forrige måned" så vel som "6 måneders gjennomsnittspris".
IF ELLER VBA-funksjon med løkker (avansert)
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 til 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 = "Don't Buy" End If Next k End Sub
