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 neile muutujatele omistatav andmetüüp. Meil on töötamiseks mitu andmetüüpi ja igal andmetüübil on sellega seotud oma eelised ja puudused. Muutujate deklareerimisel on oluline teada konkreetse andmetüübi üksikasju. See artikkel 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äisandmetüübist
Allpool on toodud VBA täisandmete tüübi näited.
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 ma ütlesin, täisarv võib 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 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 F5-klahvi abil 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 klahvi F5. Seejärel näitab see sõnumikastis ka väärtust -500.
Näide # 3
Nagu ma VBA-le ütlesin, saab andmetüüpi täisarv sisestada ainult täisarvud, mitte murdarvud nagu 25,655 või 47,145.
Püüan siiski määrata murru numbri VBA täisarvu andmetüübile. Näiteks vaadake allolevat koodi.
Kood:
Alamkomplekt_näide3 () Dim k As täisarv k = 85.456 MsgBox k Lõpp alam
Olen määranud muutujale „k” 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 väärtus 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 teile vea.
Näiteks 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äisarvu tüübist, tean, et see ei tööta, 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. Oletame, et kui mõni number, mis on määratud rohkem kui need numbrid, kuvatakse ülevoolu tõrge.
Nüüd proovin sellele omistada teksti- või stringiväärtusi. 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” teksti väärtust omistada.
