VBA OM ELLER

OM ELLER inte är ett enda påstående är det två logiska funktioner som används tillsammans tillsammans i VBA, vi använder dessa två logiska funktioner tillsammans när vi har mer än ett kriterium att kontrollera med och om något av kriterierna är uppfyllda får vi det sanna resultatet, när vi använder if-uttalandet eller uttalandet används mellan de två kriterierna för If-uttalandet.

OM ELLER-funktion i VBA

Logiska funktioner är kärnan i alla kriteriebaserade beräkningar. "OM" är den mest populära logiska funktionen, vare sig det är som kalkylfunktion eller som VBA-funktion, det fungerar utmärkt för våra behov. Men ytterligare en logisk funktion “ELLER” i Excel är den mest underskattade funktionen. Det är också viktigt att behärska när det gäller att lösa komplexa beräkningar. I den här artikeln tar vi dig igenom VBA IF ELLER-funktionen i detalj. Läs hela artikeln för att få funktionen i detalj.

Hur använder jag IF med ELLER-funktion i VBA?

Vi visar dig ett enkelt exempel på hur du använder IF ELLER-funktionen i VBA.

Du kan ladda ner VBA IF ELLER Excel-mall här - VBA IF ELLER Excel-mall

Kombination av logiska funktioner är de bästa paren i Excel. När du kombinerar många logiska formler i den andra logiska formeln föreslår det att beräkning kräver många villkor för att testa.

Titta nu på syntaxen för IF ELLER-funktionen i VBA.

[Test] ELLER [Test] ELLER [Test]

Detta är detsamma som vi såg i kalkylbladsexemplet. För en bättre förståelse, se nedanstående exempel.

Vi har tidigare månads pris, senaste 6-månaders genomsnittspris och det aktuella månadspriset här.

För att bestämma om vi ska köpa produkten eller inte, måste vi göra några tester här och dessa tester är.

Om det aktuella priset är lägre än eller lika med något av de andra två priserna bör vi få resultatet som "Köp" eller annars bör resultatet fås som "Köp inte" .

Steg 1: Öppna IF-tillstånd inuti underproceduren.

Koda:

 Sub IF_OR_Example1 () Om End Sub 

Steg 2: Använd IF-villkoret i det första logiska testet som Range ("D2"). Värde <= Range ("B2").

Koda:

 Under IF_OR_Exempel1 () Om intervall (“D2”). Värde <= Område (“B2”). Värde Slut Sub 

Steg 3: Det första logiska villkoret är klart, öppna nu OR-uttalandet.

Koda:

 Sub IF_OR_Example1 () If Range ("D2"). Value <= Range ("B2"). Value OR End Sub 

Steg 4: Använd nu det andra logiska villkoret som Range (“D2”). Värde <= Range (“C2”).

Koda:

 Under IF_OR_Exempel1 () Om intervall ("D2"). Värde <= Område ("B2"). Värde ELLER Område ("D2"). Värde <= Område ("C2"). Värde Slut Sub 

Steg 5: Okej, vi är klara med de logiska testerna här. Efter de logiska testerna sätter du ordet ”Sedan”.

Koda:

 Sub IF_OR_Exempel1 () Om intervall ("D2"). Värde <= Område ("B2"). Värde eller intervall ("D2"). Värde <= Område ("C2"). Värde Avsluta sedan Sub 

Steg 6: Skriv i nästa rad vad som ska bli resultatet om det logiska testet är SANT. Om villkoret är SANT behöver vi resultatet som "Köp" i cell E2.

Koda:

 Under IF_OR_Exempel1 () Om intervall ("D2"). Värde <= Område ("B2"). Värde eller intervall ("D2"). Värde <= Område ("C2"). Värde därefter Område ("E2"). Värde = "Köp" Slutundervärde 

Steg 7: Om resultatet är FALSKT bör vi få resultatet som "Köp inte". Så i nästa rad sätter du ”Annat” och skriver koden i nästa rad.

Koda:

 Under IF_OR_Exempel1 () Om intervall ("D2"). Värde <= Område ("B2"). Värde eller intervall ("D2"). Värde <= Område ("C2"). Värde därefter Område ("E2"). Value = "Buy" Else Range ("E2") Value = "Buy not" End Sub 

Steg 8: Stäng IF-uttalandet med ordet "Avsluta om".

Koda:

 Under IF_OR_Exempel1 () Om intervall ("D2"). Värde <= Område ("B2"). Värde eller intervall ("D2"). Värde <= Område ("C2"). Värde Sedan intervall ("E2"). Värde = "Köp" Annat intervall ("E2"). Värde = "Köp inte" Slut om slut sub 

Okej, vi är klara med kodningsdelen.

Låt oss köra den här koden med F5 eller manuellt genom köralternativet och se vad resultatet är i cell E2.

Vi fick resultatet som "Köp" eftersom det aktuella månadspriset för Apple är lägre än priset för både "Föregående månad" och "6 månaders genomsnittspris".

OM ELLER VBA-funktion med öglor (avancerad)

När du förstår formeln försök att använda den med ett större antal celler. När det gäller ett större antal celler kan vi inte skriva någon kodrad, så vi måste använda VBA-loopar.

För ovanstående uppsättning data har jag lagt till några fler rader.

Vi måste använda For Next-slingan här.

Håll bara den aktuella koden som den är.

Deklarera variabeln som ett heltal.

Öppna nu för nästa slinga från 2 till 9.

Varhelst vi har cellreferens ändrar nu det aktuella numret och sammanfogar variabeln "k" med dem.

Till exempel Range (“D2”). Värdet ska vara Range (“D” & k). Värde

Kör nu koden vi ska få status i alla celler.

Du kan kopiera koden nedan.

Koda:

 Sub IF_OR_Example1() Dim k As Integer For k = 2 To 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 = "Do Not Buy" End If Next k End Sub