VBA OG Funksjon | Hvordan bruke AND Logical Operator i VBA?

Excel VBA OG funksjon

AND er en logisk funksjon så vel som en logisk operatør som betyr at hvis alle betingelsene gitt i denne funksjonen er oppfylt, vil vi bare ha det sanne resultatet, mens hvis noen av betingelsen mislykkes, blir utgangen returnert til å være falsk, har vi innebygd OG kommando i VBA å bruke.

Jeg håper du har gått gjennom artikkelen vår om “VBA OR” og “VBA IF OR”. Denne funksjonen er akkurat det motsatte av OR-funksjonen. I ELLER-funksjonen trengte vi noen av de medfølgende logiske forholdene for å være oppfylt for å få resultatet som SANT. Men i OG-funksjon er det bare motsatt. For å få resultatet av TRUE, må alle leverte logiske tester i Excel være oppfylt.

Ok, se på syntaksen til AND-funksjonen i excel.

[Logisk test] OG [Logisk test] OG [Logisk test]

I det ovennevnte har jeg to testresultater av 600.

I resultatkolonnen må jeg få resultatet som SANT hvis poengsummen for begge testene er større enn lik 250.

Se på bildet nedenfor.

Når vi bruker den logiske funksjonen OG fikk vi resultatene. I celle C4 og C5 fikk vi resultatet som SANT fordi Test 1 og Test 2-poeng er større enn eller lik 250.

Se på C6-cellen her, vi har FALSE, selv om poengsummen for Test 2 er lik 250. Dette er fordi i Test 1 er poengsummen bare 179.

Eksempler på bruk av VBA og funksjon

Du kan laste ned denne VBA OG Excel-malen her - VBA OG Excel-mal

Eksempel 1

For eksempel vil vi teste tallene her, om 25> = 20 og 30 <= 31.

Trinn 1: Erklær variabelen som streng.

Kode:

 Sub AND_Example1 () Dim K Som streng End Sub 

Trinn 2: For variabelen “k” tildeler vi verdien ved å bruke AND-funksjonen.

Kode:

 Sub AND_Example1 () Dim K Som String K = End Sub 

Trinn 3: Gi den første betingelsen som 25> = 20.

Kode:

 Sub AND_Example1 () Dim K som streng K = 25> = 20 End Sub 

Trinn 4: Åpne nå OG-funksjon og gi den andre logiske testen, dvs. 30 <= 29.

Kode:

 Sub AND_Example1 () Dim K Som streng K = 25> = 20 og 30 <= 29 End Sub 

Trinn 5: Vis nå resultatet av variabelen “k” i meldingsboksen i VBA.

Kode:

 Sub AND_Example1 () Dim K Som streng K = 25> = 20 og 30 <= 29 MsgBox K End Sub 

Kjør makroen for å se hva resultatet er.

Vi fikk resultatet som FALSE fordi vi ikke brukte to betingelser første betingelse 25> = 20, denne tilstanden er oppfylt, så resultatet er SANN og andre tilstand 30 <= 29 dette er ikke tilfreds resultat er FALSK. For å få resultatet som SANT, skal begge vilkårene være oppfylt.

Eksempel 2

Nå vil jeg endre den logiske testen til “100> 95 OG 100 <200”

Kode:

 Sub AND_Example2 () Dim k As String k = 100> 95 And 100 <200 MsgBox k End Sub 

Kjør koden for å se resultatet.

Her fikk vi SANN som resultat fordi

1. logisk test: 100> 95 = SANT

2. logisk test: 100 <200 = SANT

Siden vi fikk de SANTE resultatene for begge de logiske testene, ble vårt endelige resultat som SANT.

Eksempel 3

Nå vil vi se data fra regnearket. Bruk dataene vi har brukt for å vise eksemplet på excel AND-funksjon.

Her er betingelsen Test 1 Score> = 250 AND Test 2 Score> = 250 .

Siden vi har mer enn en datacelle, må vi bruke sløyfer for å unngå å skrive unødvendige og tidkrevende kodelinjer. Jeg har skrevet koden nedenfor for deg, formel, og logisk er det samme. Jeg har brukt "VBA For Next Loop".

Kode:

 Sub AND_Example3 () Dim k As Integer For k = 2 til 6 celler (k, 3). Verdi = Cells (k, 1)> = 250 Og celler (k, 2)> = 250 Neste k End Sub 

Dette vil gi resultatet nøyaktig det samme som regnearkfunksjonen vår, men vi får ingen formler, vi får bare resultater.

På denne måten kan vi bruke OG logisk funksjon for å teste flere forhold som alle skal være SANNE for å komme til de ønskede resultatene.

Dette fungerer helt motsatt av OR-funksjonen, der OR krever at en av de leverte tilstandene er SANNE for å komme til resultatene, og AND krever 100% resultat i en logisk test for å komme frem til resultatene.