VBA-looginen tietotyyppi | Esimerkkejä Excel VBA Boolean -operaattorin käytöstä

Excel VBA -boolenoperaattori

Boolen on tietotyyppi ja se on myös sisäänrakennettu tietotyyppi VBA: ssa, tätä tietotyyppiä käytetään loogisiin viitteisiin tai loogisiin muuttujiin, koska tämän tietotyypin arvo on joko TOSI tai EPÄTOSI, jota käytetään loogiseen vertailuun, tämän ilmoitus tietotyyppi on samanlainen kuin kaikki muut tietotyypit.

Kuten kerroin Boolen tietotyypille, datana voi olla joko TOSI tai EPÄTOSI, mutta se voi myös pitää numeron 1 TOSINA ja luvun 0 EPÄTOSI. Joten TOSI on edustettuna 1 ja EPÄTOSI on 0. Kun julistamme muuttujan BOOLEANiksi, se vie 2 tavua tietokoneen muistia.

Työskentely Boolen-tietotyypin kanssa VBA-ohjelmointikielellä

Katsotaan nyt esimerkki Boolen operaattorin arvojen asettamisesta muuttujille VBA-koodin avulla.

Voit ladata tämän VBA-loogisen tietotyypin Excel-mallin täältä - VBA Boolean -tietotyypin Excel-malli

Seuraa alla olevia vaiheita saadaksesi melko vähän tietoa Boolen tietotyypeistä VBA: ssa.

Vaihe 1: Aloita alimenettely ensin nimeämällä makron nimi.

Koodi:

 Boolen_esimerkki_esimerkki1 () End Sub 

Vaihe 2: Ilmoita muuttuja BOOLEAN-arvoksi.

Koodi:

 Ala-looginen_esimerkki1 () Himmennä Oma tulos kuin looginen pää-ala 

Vaihe 3: Käytä nyt muuttujalle ”MyResult” yksinkertaista loogista testiä 25> 20.

Koodi:

 Boolen_esimerkki1 () Dim MyResult kuin Boolean MyResult = 25> 20 End Sub 

Vaihe 4: Näytä tulos nyt VBA-viestiruudussa.

Koodi:

 Sub-Boolen_Example1 () Dim MyResult As Boolean MyResult = 25> 20 MsgBox MyResult End Sub 

Suorita nyt Excel-makro F5-avaimen kautta tai manuaalisesti ja katso tulos.

Ok, saimme tuloksen TOSI, koska luku 25 on suurempi kuin numero 20, joten looginen testi on oikea ja tulos on TOSI.

Tämä on VBA-Boolen-tietotyyppien perusrakenne.

Boolen tietotyyppi ei voi sisältää muuta kuin TOSI tai EPÄTOSI

VBA Boolean on looginen tietotyyppi, jolla on TURE tai FALSE. Mikä tahansa muu kuin TOSI tai EPÄTOSI näyttää virheilmoituksen "Type Mismatch" VBA: ssa.

Katso esimerkki alla olevasta koodista.

Koodi:

 Sub-Boolen_Example2 () Dim BooleanResult As Boolean BooleanResult = "Hei" MsgBox BooleanResult End Sub 

Edellä mainitussa koodissa olen ilmoittanut muuttujan "BooleanResult" Booleniksi.

 Dim BooleanTulos loogisena 

Seuraavalla rivillä olen määrittänyt ilmoitetulle muuttujalle arvon "Hello".

 BooleanResult = "Hei" 

Olen ilmoittanut muuttujan totuusarvoksi, mutta olen määrittänyt arvon arvoksi “Hello”, joka on muu kuin looginen arvo, ts. Joko TOSI tai EPÄTOSI.

Kun suoritan tämän koodin F5-avaimella tai manuaalisesti, saan tyypin ristiriidan virheen tietotyypin ristiriidan arvon vuoksi.

Kaikki numerot ovat TOSI ja Nolla on EPÄTOSI

Kuten sanoin, TOSI on numerolla 1 ja EPÄTOSI on 0. Tarkastellaan esimerkiksi alla olevaa koodia VBA: ssa.

Koodi:

 Sub-Boolen_esimerkki3 () Dim BooleanResult Boolean BooleanResult = 1 MsgBox BooleanResult End Sub 

Olen määrittänyt muuttujalle arvon 1 ja tämä näyttää tuloksen TOSI.

Katso nyt alla oleva koodi.

Koodi:

 Sub-Boolen_esimerkki3 () Dim BooleanResult kuin Boolean BooleanResult = 0 MsgBox BooleanResult End Sub 

Tässä koodissa olen määrittänyt muuttujalle arvon 0 ja tämä näyttää tuloksen EPÄTOSI.

Ei vain 1 tai 0 me, mutta mikä tahansa muuttujalle annettu luku lukuun ottamatta nollaa, pidetään myös TOSI-arvona ja vain nollaa käsitellään 1: nä.

VBA-looginen operaattori IF-tilassa

Koska looginen tietotyyppi voi sisältää vain loogisia arvoja, se soveltuu parhaiten käytettäväksi IF-ehdon kanssa VBA: ssa.

Koodi:

 Sub-Boolen_esimerkki2 () Himmennysnumero1 kokonaislukuna Dim-numero2 kokonaislukuna1 = 80 Luku2 = 75 Jos Luku1> = Luku2, sitten MsgBox Tosi muu MsgBox-väärä loppu, jos End Sub 

Tällä tavoin voimme tallentaa Excel VBA -boolen tietotyyppejä tulosten tallentamiseksi joko TOSI tai EPÄTOSI.


$config[zx-auto] not found$config[zx-overlay] not found