See õpetus näitab, kuidas kasutada funktsiooni CLng VBA, et teisendada avaldis pika täisarvuga andmetüübiks.
Funktsioon CLng
VBA CLng Teisenda avaldis pikaks
Funktsiooni VBA CLng saab kasutada avaldiste teisendamiseks pikkadeks andmetüüpideks VBA koodi sees.
123456 | Alam CLngExample_1 ()MsgBox CLng (12.34) 'Tulemus: 12MsgBox CLng (12.345) 'Tulemus: 12MsgBox CLng (-124) 'Tulemus: -124MsgBox CLng (-12,34) 'Tulemus: -12End Sub |
VBA CLng ümardamine
Funktsioon VBA CLng ü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 CLng lähima paarisarvu.
1234567891011 | Alam CLngExample_2 ()MsgBox CLng (0.34) 'Tulemus: 0MsgBox CLng (0,99) 'Tulemus on: 1MsgBox CLng (-124,95) 'Tulemus: -125MsgBox CLng (1.5) 'Tulemus on: 2MsgBox CLng (2.5) 'Tulemus on: 2End Sub |
Me võime lisada eeldatavale kümnendväärtusele suhteliselt väikese kümnendarvu, et muuta funktsiooni VBA CLng käitumine oodatuks.
1234567891011 | Alam CLngExample_3 ()MsgBox CLng (2.5)'Tulemus on: 2MsgBox CLng (2,5 + 0,001)'Tulemus on: 3MsgBox CLng (14.5)"Tulemus: 14MsgBox CLng (14,5 + 0,001)"Tulemus: 15End Sub |
VBA programmeerimine | Koodigeneraator töötab teie jaoks!
VBA CLng stringide teisendamine pikkadeks
Funktsiooni VBA CLng saab kasutada stringide teisendamiseks pikkadeks, kui stringi märkidel on numbrite tähendus.
123456789101112131415161718 | Alam CLngExample_4 ()Dim StrEx stringinaStrEx = "112"MsgBox CLng (StrEx)Tulemus: 112StrEx = "112,3"MsgBox CLng (StrEx)"Tulemus on: 112 112,3 on ümardatudStrEx = "11,2"MsgBox CLng (StrEx)'Tulemus on: 112, ignoreeritakseStrEx = "112 dollarit"MsgBox CLng (StrEx)Tulemus on: 112 dollarit eiratakseEnd Sub |
VBA CLng Käitusaja viga 13 Tüübi mittevastavus
Funktsiooni VBA CLng 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 CLngExample_5 ()'Allolev kood annab veateate„CLng ei saa hakkama numbriliste märkidegaDim StrEx stringinaStrEx = "Ab13"MsgBox CLng (StrEx)End Sub |
VBA CLng Run-Time Error 6 Overflow
Funktsiooni VBA CLng kasutamine stringidega, mille tulemuseks on oodatust täisarvust väiksem või suurem väärtus, põhjustab käivitusaja vea „6”: ületäitumine. Täisarvulise andmetüübi Excelis on eeldatav väärtus -2 147 483 648 kuni 2 147 483 647.
1234567 | Alam CLngExample_6 ()'Allolev kood annab veateate"CLng ei saa hakkama numbriliste märkidegaDim StrEx stringinaStrEx = "2147483648"MsgBox CLng (StrEx)End Sub |
Kas olete väsinud VBA koodinäidete otsimisest? Proovige AutoMacrot!
VBA CLng piirkondlikud seaded
Funktsioonil VBA CLng on erineva käitumisega teisendavad stringid koma või punktiga. See kasutab kümnend- ja numbrite eraldaja jaoks operatsioonisüsteemi piirkondlikke seadeid.
12345678910111213141516 | Alam CLngExample_7 ()Dim StrEx stringinaStrEx = "1,9"MsgBox CLng (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 CLng (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 CLng Booleanide teisendamine pikkadeks
Funktsioon VBA CLng võib teisendada loogilised muutujad pikkadeks. Kui hinnatud avaldis on tõene, on saadud pikk -1 ja kui hinnatud avaldis on vale, on saadud pikk 0.
1234567891011121314 | Alam CLngExample_8 ()Dim BoolEx kui BooleanBoolEx = TõsiMsgBox CLng (BoolEx)Tulemus: -1MsgBox CLng (2 = 2)Tulemus: -1BoolEx = valeMsgBox CLng (BoolEx)'Tulemus: 0MsgBox CLng (1 = 2)'Tulemus: 0End Sub |
VBA CLng Kuupäevade teisendamine pikkadeks
Funktsioon VBA CLng võib teisendada kuupäevamuutuja pikaks. Tagastatud väärtus on sisemine number, mida Excel kasutab kuupäeva salvestamiseks, ümardatuna. Kui see arv jääb väljaspool VBA eeldatavaid pikki piire, saame käitusaja vea „6”: ületäitumine.
123456789101112 | Alam CLngExample_9 ()Dim DateEx kui kuupäevDateEx = #2/3/1940 #MsgBox CLng (DateEx)Tulemus: 14644DateEx = #8/7/1964 #MsgBox CLng (DateEx)Tulemus: 23596DateEx = #3/7/1934 11:32:04 AM #MsgBox CLng (DateEx)Tulemus: 12485End Sub |