Et heltal er en datatype i VBA, der gives til enhver variabel til at indeholde heltalværdier, begrænsningerne eller parentesen for antallet af en heltalsvariabel, der kan indeholde, svarer i VBA til som for andre sprog, enhver variabel er defineret som heltal variabel ved hjælp af DIM-sætningen eller nøgleordet i VBA.
Excel VBA-heltal
Datatyper er så vigtige på ethvert kodningssprog, fordi hele variabeldeklarationen skal følges af datatypen, der tildeles disse variabler. Vi har flere datatyper, vi arbejder med, og hver datatype har sine egne fordele og ulemper forbundet med det. Når vi erklærer variabler, er det vigtigt at kende detaljer om den bestemte datatype. Dette er artiklen dedikeret til "Integer" datatypen i VBA. Vi viser dig det komplette billede af datatypen "Heltal".
Hvad er heltal datatype?
Heltal er heltal, som kan være positive, negative og nul, men ikke et brøktal. I VBA-sammenhæng er "Heltal" en datatype, som vi tildeler variablerne. Det er en numerisk datatype, der kan rumme hele tal uden decimalpositioner. Heltal datatype 2 byte lager, hvilket er halvdelen af VBA LONG datatype dvs. 4 byte.
Eksempler på Excel VBA heltal datatype
Nedenfor er eksemplerne på VBA Integer-datatypen.
Eksempel nr. 1
Når vi erklærer en variabel, er det nødvendigt at tildele en datatype til den og heltal en af dem, som almindeligvis bruges af alle brugere baseret på kravene.
Som jeg sagde, kan et heltal kun rumme hele tal, ikke nogen brøktal. Følg nedenstående trin for at se eksemplet på en VBA-heltal datatype.
Trin 1: Erklær variablen som heltal.
Kode:
Sub Integer_Example () Dim k Som Integer End Sub
Trin 2: Tildel værdien 500 til variablen “k.”
Kode:
Sub Integer_Example1 () Dim k As Integer k = 500 End Sub
Trin 3: Vis værdien i VBA-meddelelsesfeltet.
Kode:
Sub Integer_Example1 () Dim k As Integer k = 500 MsgBox k End Sub
Når vi kører koden ved hjælp af F5-tasten eller manuelt, kan vi se 500 i meddelelsesboksen.
Eksempel 2
Nu tildeler jeg værdien som -500 til variablen “k.”
Kode:
Sub Integer_Example2 () Dim k As Integer k = -500 MsgBox k End Sub
Kør denne kode manuelt, eller tryk på F5. Derefter viser den også værdien på -500 i meddelelsesboksen.
Eksempel 3
Som jeg fortalte VBA, kan datatypen Heltal kun indeholde hele tal, ikke brøktal som 25.655 eller 47.145.
Jeg vil dog forsøge at tildele brøknummeret til en VBA Integer-datatype. Se f.eks. Nedenstående kode.
Kode:
Sub Integer_Example3 () Dim k As Integer k = 85.456 MsgBox k End Sub
Jeg har tildelt 85.456 til variablen “k.” Jeg kører denne VBA-kode for at se, hvad resultatet er.
- Det har returneret resultatet som 85, selvom jeg har tildelt værdien af brøknummeret. Dette skyldes VBA runde brøktalene til nærmeste heltal.
- Alle brøktal, der er mindre end 0,5, afrundes ned til nærmeste heltal. For et eksempel 2.456 = 2, 45.475 = 45.
- Alle brøktal, der er større end 0,5, afrundes op til nærmeste heltal. For et eksempel 10,56 = 11, 14,789 = 15.
For at få et nyt kig på det runde heltal lader værdien “k” til 85,58.
Kode:
Sub Integer_Example3 () Dim k As Integer k = 85.58 MsgBox k End Sub
Når jeg kører denne kode ved hjælp af F5-tasten eller manuelt, returnerer den 86, fordi alt mere end 0,5 afrundes op til det næste heltal.
Begrænsninger for heltal datatype i Excel VBA
Overflow Error: Heltalsdatatype skal fungere fint, så længe den tildelte værdi er mellem -32768 og 32767. I det øjeblik den krydser grænsen på begge sider, vil det give dig en fejl.
Se f.eks. Nedenstående kode.
Kode:
Sub Integer_Example4 () Dim k As Integer k = 40000 MsgBox k End Sub
Jeg har tildelt værdien 40000 til variablen “k.”
Da jeg helt sikkert har fuldt kendskab til Integer Data Type, ved jeg, at det ikke virker, fordi heltal datatype ikke kan indeholde værdien mere end 32767.
Lad os køre koden manuelt eller gennem F5-tasten og se hvad der sker.
Ups !!!
Jeg fik fejlen som "Overflow", fordi datatypen Integer ikke kan rumme mere end 32767 for positive tal og -32768 for negative tal.
Type Mismatch Error: Heltalsdata kan kun indeholde numeriske værdier mellem -32768 og 32767. Antag, at ethvert nummer, der er tildelt mere end disse numre, viser en Overflow-fejl.
Nu vil jeg forsøge at tildele tekst eller strengværdier til den. I nedenstående eksempelkode har jeg tildelt værdien som “Hej”.
Kode:
Sub Integer_Example4 () Dim k As Integer k = "Hello" MsgBox k End Sub
Jeg kører denne kode gennem kørselsindstillingen eller manuelt og ser hvad der sker.
Det viser fejlen som "Type mismatch", fordi vi ikke kan tildele en tekstværdi til variablen "heltal datatype."
