See õpetus näitab, kuidas kasutada funktsiooni CInt VBA avaldise teisendamiseks täisarvuliseks andmetüübiks.
CInt funktsioon
VBA CInt Teisenda avaldis täisarvuks
Funktsiooni VBA CInt saab kasutada avaldiste teisendamiseks täisarvulisteks andmetüüpideks VBA -koodi sees. Saadud arv ümardatakse täisarvuks.
123456 | Alam CIntExample_1 ()MsgBox CInt (12.34) 'Tulemus: 12MsgBox CInt (12.345) 'Tulemus: 12MsgBox CInt (-124) 'Tulemus: -124MsgBox CInt (-12,34) 'Tulemus: -12End Sub |
VBA CInt ümardamine
Funktsioon VBA CInt ümardab numbritüübi või arvutaolise avaldise kümnendkoha. Kuid see ei ümardu kõigil juhtudel õigesti. Kui komakoht on 0,5, tagastab funktsioon VBA CInt lähima paarisarvu.
12345678910111213141516 | Alam CIntExample_2 ()MsgBox CInt (0,34)'Tulemus: 0MsgBox CInt (0,99)'Tulemus on: 1MsgBox CInt (-124,95)Tulemus: -125MsgBox CInt (1.5)'Tulemus on: 2MsgBox CInt (2.5)'Tulemus on: 2End Sub |
Me võime lisada eeldatavale kümnendväärtusele suhteliselt väikese kümnendarvu, et muuta funktsiooni VBA Cint käitumine oodatuks.
1234567891011 | CIntExample_3 ()MsgBox CInt (2.5)'Tulemus on: 2MsgBox CInt (2,5 + 0,001)'Tulemus on: 3MsgBox CInt (14.5)"Tulemus: 14MsgBox CInt (14,5 + 0,001)"Tulemus: 15End Sub |
VBA programmeerimine | Koodigeneraator töötab teie jaoks!
VBA CInt Stringide täisarvudeks teisendamine
Funktsiooni VBA CInt saab kasutada stringide teisendamiseks täisarvudeks, kui stringi märkidel on numbrite tähendus.
123456789101112131415161718 | Alam CIntExample_4 ()Dim StrEx stringinaStrEx = "112"MsgBox CInt (StrEx)Tulemus: 112StrEx = "112,3"MsgBox CInt (StrEx)"Tulemus on: 112 -> 112,3 on ümardatudStrEx = "11,2"MsgBox CInt (StrEx)'Tulemus on: 112 ->, ignoreeritakseStrEx = "112 dollarit"MsgBox CInt (StrEx)'Tulemus on: 112 -> $ ignoreeritakseEnd Sub |
VBA CInt Run-Time Error 13 Tüübi mittevastavus
Funktsiooni VBA Cint kasutamine stringidega, mis sisaldavad mitte-numbrilisi märke või märke, millel pole numbrilises kontekstis tähendust, põhjustab käitusaja vea „13”: tüübi mittevastavus.
1234567 | Alam CIntExample_5 ()'Allolev kood annab veateate„CInt ei saa hakkama mitte numbriliste märkidegaDim StrEx stringinaStrEx = "Ab13"MsgBox CInt (StrEx)End Sub |
VBA CInt Run-Time Error 6 Overflow
Funktsiooni VBA Cint kasutamine stringidega, mille tulemuseks on oodatust täisarvust väiksem või suurem väärtus, põhjustab käivitusaja vea „6”: ületäitumine. Täisarvuline andmetüüp Excelis on eeldatava väärtusega -32768 kuni 32767.
1234567 | Alam CIntExample_6 ()'Allolev kood annab veateate"Ei saa hakkama numbriliste märkidegaDim StrEx stringinaStrEx = "1234567"MsgBox CInt (StrEx)End Sub |
Kas olete väsinud VBA koodinäidete otsimisest? Proovige AutoMacrot!
VBA CInt piirkondlikud seaded
Funktsioonil VBA CInt on erineva käitumisega teisendavad stringid koma või punktiga. See kasutab kümnend- ja numbrite eraldaja jaoks operatsioonisüsteemi piirkondlikke seadeid.
12345678910111213141516 | Alam CIntExample_7 ()Dim StrEx stringinaStrEx = "1,9"MsgBox CInt (StrEx)„Kui piirkondlikel seadetel on, siis rühmituse eraldajana"Tulemus: 19„Kui piirkondlikel seadetel on see komakoha eraldajana'Tulemus: 2 (2, sest 1,9 ümardatakse)StrEx = "1,9"MsgBox CInt (StrEx)„Kui piirkondlikel seadetel on. rühmituse eraldajana siis"Tulemus: 19„Kui piirkondlikel seadetel on. komaeraldajana siis'Tulemus: 2 (2, sest 1,9 ümardatakse)End Sub |
VBA programmeerimine | Koodigeneraator töötab teie jaoks!
VBA CInt Booleanide teisendamine täisarvudeks
Funktsioon VBA Cint võib teisendada loogilised muutujad täisarvudeks. Kui hinnatud avaldis on tõene, on saadud täisarv -1 ja kui hinnatud avaldis on vale, on saadud täisarv 0.
12345678910 | Alam CIntExample_8 ()Dim BoolEx kui BooleanBoolEx = TõsiMsgBox CInt (BoolEx) 'Tulemus: -1MsgBox CInt (2 = 2) 'Tulemus: -1BoolEx = valeMsgBox CInt (BoolEx) tulemus on: 0MsgBox CInt (1 = 2) 'Tulemus: 0End Sub |
VBA CInt Kuupäevade teisendamine täisarvudeks
Funktsioon VBA Cint võib teisendada kuupäevamuutuja täisarvuks. Tagastatud väärtus on sisemine number, mida Excel kasutab kuupäeva salvestamiseks, ümardatuna. Kui see arv jääb väljaspool VBA eeldatavaid täisarvupiiranguid, saame vea „6”: ületäitumine.
123456789 | Alam CIntExample_9 ()Dim DateEx kui kuupäevDateEx = #2/3/1940 #MsgBox CInt (DateEx)Tulemus: 14644DateEx = #8/7/1964 #MsgBox CInt (DateEx)Tulemus: 23596End Sub |