VBA täisarvu andmetüüp | Täielik juhend integreeritud andmetüübi kasutamiseks VBA-s

Täisarv on VBA andmetüüp, mis antakse igale muutujale täisarvu väärtuste hoidmiseks, täisarvu muutuja arvu piirangud või sulg on VBA-s sarnane teiste keeltega, mis tahes muutuja on määratletud täisarvuna muutuja, kasutades VBA-s DIM-lauset või märksõna.

Exceli VBA täisarv

Andmetüübid on igas kodeerimiskeeles nii olulised, kuna kogu muutujadeklaratsioonile peaks järgnema andmetüüpide määramine nendele muutujatele. Meil on mitu andmetüüpi, millega töötada ning igal andmetüübil on sellega seotud omad eelised ja puudused. Muutujate deklareerimisel on oluline teada konkreetse andmetüübi üksikasju. See on artikkel, mis on pühendatud VBA andmetüübile „täisarv”. Näitame teile täielikku pilti andmetüübist “Tervik”.

Mis on täisandmete tüüp?

Täisarvud on täisarvud, mis võivad olla positiivsed, negatiivsed ja nullid, kuid mitte murdarvud. VBA kontekstis on „täisarv” andmetüüp, mille omistame muutujatele. See on arvandmetüüp, mis mahutab täisarvud ilma kümnendkohtadeta. Andmetüübi täisarv 2 baiti, mis on pool VBA LONG andmetüübist, st 4 baiti.

Näited Exceli VBA täisarvu andmetüübist

Allpool on toodud VBA täisandmete tüübi näited.

Selle VBA täisarvu andmetüübi malli saate alla laadida siit - VBA terviku andmetüübi mall

Näide 1

Muutuja deklareerimisel on vaja määrata sellele andmetüüp ja täisarv üks neist, mida kõik kasutajad nõuete alusel tavaliselt kasutavad.

Nagu ütlesin, võib täisarv sisaldada ainult täisarvusid, mitte murdarvusid. Järgige allpool toodud samme, et näha VBA täisarvu andmetüübi näidet.

1. samm: kuulutage muutuja täisarvuks.

Kood:

 Sub Integer_Example () Dim k As Integer End Sub 

2. samm: määrake muutujale k väärtus väärtus 500.

Kood:

 Alamkomplekt_näide1 () Dim k As täisarv k = 500 End Sub 

3. samm: kuvage väärtus VBA teatekastis.

Kood:

 Alamkomplekt_näide1 () Dim k As täisarv k = 500 MsgBox k End Sub 

Kui käivitame koodi klahviga F5 või käsitsi, näeme sõnumikastis 500-d.

Näide 2

Nüüd määran muutujale “k” väärtuseks -500.

Kood:

 Alamkomplekt_näide2 () Dim k As täisarv k = -500 MsgBox k End Sub 

Käivitage see kood käsitsi või vajutage seejärel klahvi F5, see kuvab sõnumikastis ka väärtust -500.

Näide # 3

Nagu ma ütlesin VBA-le täisarv, võib andmetüüp sisaldada ainult täisarvusid, mitte murdarvusid, näiteks 25.655 või 47.145.

Püüan murru numbri siiski määrata VBA täisarvu andmetüübile. Näite saamiseks vaadake allolevat koodi.

Kood:

 Alamkomplekt_näide3 () Dim k As täisarv k = 85.456 MsgBox k Lõpp alam 

Muutujale “k” olen määranud 85.456. Käitan selle VBA koodi, et näha, mis on tulemus.

  • See on andnud tulemuseks 85, kuigi olen määranud murdarvu väärtuse. Seda seetõttu, et VBA ümardab murdarvud täisarvuni.
  • Kõik murdarvud, mis on väiksemad kui 0,5, ümardatakse lähima täisarvuni. Näiteks 2.456 = 2, 45.475 = 45.
  • Kõik murdarvud, mis on suuremad kui 0,5, ümardatakse lähima täisarvuni. Näiteks 10,56 = 11, 14,789 = 15.

Ümardatud täisarvu uuesti vaatamiseks laseb “k” väärtus 85,58.

Kood:

 Alamkomplekt_näide3 () Mõõt k täisarvuna k = 85,58 MsgBox k Lõpp alam 

Kui käivitan selle koodi klahviga F5 või käsitsi, tagastatakse see 86, sest kõik, mis on suurem kui 0,5, ümardatakse järgmise täisarvuni.

Exceli VBA täisandmete tüübi piirangud

Ülevoolu viga: täisandmete tüüp peaks töötama hästi, kui määratud väärtus on vahemikus -32768 kuni 32767. Kui see ületab mõlemal küljel oleva piiri, põhjustab see tõrke.

Näite saamiseks vaadake allolevat koodi.

Kood:

 Alamkomplekt_näide4 () Dim k As täisarv k = 40000 MsgBox k End Sub 

Olen määranud muutujale „k” väärtuse 40000.

Kuna mul on täielikud teadmised täisarvutüübi kohta, tean, et see ei toimi, kuna täisarvu andmetüüp ei saa väärtust hoida rohkem kui 32767.

Käivitame koodi käsitsi või läbi klahvi F5 ja vaatame, mis juhtub.

Vabandust!

Sain vea nimega „Ülevool”, kuna täisarvu andmetüüpi ei saa mahtuda rohkem kui 32767 positiivsete numbrite korral ja –32768 negatiivsete arvude korral.

Tüüp Mismatch Error: Tervikandmed võivad sisaldada ainult arvväärtusi vahemikus -32768 kuni 32767. Kui mõni number, mis on määratud rohkem kui need numbrid, kuvatakse viga Overflow.

Nüüd proovin sellele määrata teksti või stringi väärtused. Allolevas näite koodis olen määranud väärtuseks “Tere”.

Kood:

 Alamkomplekt_näide4 () Dim k As täisarv k = "Tere" MsgBox k End Sub 

Käivitan selle koodi käitamisvaliku kaudu või käsitsi ja vaatan, mis juhtub.

See näitab viga kui „tüübi mittevastavus”, kuna me ei saa muutujale „täisarvu andmetüüp” määrata teksti väärtust.