HVIS ELLER ikke er en enkelt sætning, er dette to logiske funktioner, der bruges til sammen nogle gange i VBA, bruger vi disse to logiske funktioner sammen, når vi har mere end et kriterium at kontrollere, og hvis et af kriterierne er opfyldt, får vi det sande resultat, når vi bruger if-sætningen Eller -sætningen bruges mellem de to kriterier for If-sætningen.
HVIS ELLER funktion i VBA
Logiske funktioner er kernen i alle kriteriebaserede beregninger. "HVIS" er den mest populære logiske funktion, det være sig som en regnearksfunktion eller som en VBA-funktion, den tjener fremragende til vores behov. Men en mere logisk funktion, “ELLER” i Excel, er den mest undervurderede funktion. Det er også vigtigt at mestre, når det kommer til løsning af komplekse beregninger. I denne artikel tager vi dig gennem VBA IF ELLER-funktionen i detaljer. Læs hele artiklen for at få funktionen i detaljer.
Hvordan bruges IF med ELLER funktion i VBA?
Vi viser dig et simpelt eksempel på brug af IF ELLER-funktionen i VBA.
En kombination af logiske funktioner er de bedste par i Excel. Når du kombinerer mange logiske formler inde i den anden logiske formel, antyder det, at beregning kræver mange betingelser for at teste.
Se nu på syntaksen for IF ELLER-funktionen i VBA.
(Test) ELLER (Test) ELLER (Test)
Dette er det samme som vi så i regnearkseksemplet. For at få en bedre forståelse, se nedenstående eksempel.
Vi har den foregående måneds pris, den sidste gennemsnitspris på 6 måneder og den aktuelle månedlige pris her.
For at beslutte om vi vil købe produktet eller ej, er vi nødt til at lave nogle tests her, og disse tests er det.
Hvis den aktuelle pris er mindre end eller lig med en af de to andre priser, skal vi få resultatet som "Køb", ellers skulle resultatet få det som "Køb ikke."
Trin 1: Åbn IF-tilstand inde i underproceduren.
Kode:
Sub IF_OR_Example1 () Hvis slut sub
Trin 2: Anvend den første logiske test i området IF, som Range ("D2"). Værdi <= Range ("B2").
Kode:
Sub IF_OR_Example1 () Hvis interval (“D2”). Værdi <= område (“B2”). Værdi slut sub
Trin 3: Første logiske betingelse er færdig, åbn nu ELLER-sætning.
Kode:
Sub IF_OR_Example1 () Hvis Range ("D2"). Værdi <= Range ("B2"). Værdi ELLER End Sub
Trin 4: Anvend nu den anden logiske tilstand som Range (“D2”). Værdi <= Range (“C2”).
Kode:
Sub IF_OR_Example1 () Hvis område ("D2"). Værdi <= område ("B2"). Værdi ELLER område ("D2"). Værdi <= område ("C2"). Værdi slut sub
Trin 5: Ok, vi er færdige med de logiske tests her. Efter de logiske tests skal du sætte ordet "Så".
Kode:
Sub IF_OR_Example1 () Hvis Range ("D2"). Værdi <= Range ("B2"). Værdi eller Range ("D2"). Værdi <= Range ("C2"). Værdi Derefter Afslut Sub
Trin 6: Skriv i næste linje, hvad der skal være resultatet, hvis den logiske test er SAND. Hvis betingelsen er SAND, har vi brug for resultatet som "Køb" i celle E2.
Kode:
Sub IF_OR_Example1 () Hvis område ("D2"). Værdi <= område ("B2"). Værdi eller område ("D2"). Værdi <= område ("C2"). Værdi og derefter område ("E2"). Værdi = "Køb" Afslut sub
Trin 7: Hvis resultatet er FALSK, skal vi få resultatet som "Køb ikke." Så i den næste linje skal du sætte “Else” og skrive koden i den næste linje.
Kode:
Sub IF_OR_Example1 () Hvis område ("D2"). Værdi <= område ("B2"). Værdi eller område ("D2"). Værdi <= område ("C2"). Værdi og derefter område ("E2"). Value = "Buy" Else Range ("E2") Value = "Buy not" End Sub
Trin 8: Luk IF-sætningen med ordet "Afslut hvis."
Kode:
Sub IF_OR_Example1 () Hvis område ("D2"). Værdi <= område ("B2"). Værdi eller område ("D2"). Værdi <= område ("C2"). Værdi og derefter område ("E2"). Value = "Buy" Else Range ("E2") Value = "Don't Buy" End If End Sub
Ok, vi er færdige med kodningsdelen.
Lad os køre denne kode ved hjælp af F5 eller manuelt gennem kørselsindstillingen og se, hvad resultatet er i celle E2.
Vi fik resultatet som "Køb", fordi den aktuelle månedlige pris på Apple er mindre end prisen for både "Forrige måned" såvel som "6 måneders gennemsnitspris".
HVIS ELLER VBA-funktion med sløjfer (avanceret)
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:
Under IF_OR_eksempel1 () Dim k som heltal For k = 2 til 9 Hvis område ("D" & k). Værdi <= Område ("B" & k). Værdi eller interval ("D" & k). Værdi <= Område ("C" & k). Værdi Så rækkevidde ("E" & k). Værdi = "Køb" Ellers interval ("E" & k). Værdi = "Køb ikke" Slut, hvis næste k Afslut sub
