Ta vadnica bo pokazala, kako uporabiti funkcijo CLng VBA za pretvorbo izraza v podatkovni tip dolgega števila.
Funkcija CLng
VBA CLng Pretvori izraz v dolgo
Funkcijo VBA CLng lahko uporabite za pretvorbo izrazov v dolg podatkovni tip znotraj kode VBA.
| 123456 | Podrazred CLngExample_1 ()MsgBox CLng (12.34) 'Rezultat je: 12MsgBox CLng (12.345) 'Rezultat je: 12MsgBox CLng (-124) 'Rezultat je: -124MsgBox CLng (-12.34) 'Rezultat je: -12End Sub |
Zaokroževanje VBA CLng
Funkcija VBA CLng bo zaokrožila decimalni del vrste številke ali številskega izraza. Vendar se v vseh primerih ne zaokroži pravilno. Ko je decimalni del 0,5, funkcija VBA CLng vrne najbližje celo število.
| 1234567891011 | Podrazred CLngExample_2 ()MsgBox CLng (0,34) 'Rezultat je: 0MsgBox CLng (0,99) 'Rezultat je: 1MsgBox CLng (-124.95) 'Rezultat je: -125MsgBox CLng (1.5) 'Rezultat je: 2MsgBox CLng (2.5) 'Rezultat je: 2End Sub |
Pričakovani decimalni vrednosti lahko dodamo razmeroma majhno decimalno število, da spremenimo vedenje funkcije VBA CLng na pričakovano.
| 1234567891011 | Podrazred CLngExample_3 ()MsgBox CLng (2,5)"Rezultat je: 2MsgBox CLng (2,5 + 0,001)"Rezultat je: 3MsgBox CLng (14,5)"Rezultat je: 14MsgBox CLng (14,5 + 0,001)"Rezultat je: 15End Sub |
Programiranje VBA | Generator kod deluje za vas!
VBA CLng Pretvarjanje nizov v dolžine
Funkcijo VBA CLng lahko uporabite za pretvorbo nizov v dolžine, če imajo znaki v nizu pomen kot številke.
| 123456789101112131415161718 | Sub CLngExample_4 ()Dim StrEx kot nizStrEx = "112"MsgBox CLng (StrEx)"Rezultat je: 112StrEx = "112,3"MsgBox CLng (StrEx)"Rezultat je: 112 112,3 je zaokroženStrEx = "11,2"MsgBox CLng (StrEx)"Rezultat je: 112, je prezrtStrEx = "112 USD"MsgBox CLng (StrEx)"Rezultat je: 112 $ se ne upoštevaEnd Sub |
Napaka v času izvajanja VBA CLng 13 Neujemanje vrste
Uporaba funkcije VBA CLng z nizi, ki vsebujejo neštevilčne znake ali znake, ki v numeričnem kontekstu nimajo pomena, bo povzročila napako med izvajanjem '13': Neskladje vrste.
| 1234567 | Pod CLngExample_5 ()'Spodnja koda bo povzročila sporočilo o NAPAKI'CLng ne more obdelati neštevilskih znakovDim StrEx kot nizStrEx = "Ab13"MsgBox CLng (StrEx)End Sub |
Napaka v času izvajanja VBA CLng 6 Prelivanje
Uporaba funkcije VBA CLng z nizi, katerih vrednost je manjša ali večja od pričakovanega celega števila, bo povzročila napako med izvajanjem '6': Overflow. Podatkovni tip celega števila v Excelu ima pričakovano vrednost od -2,147,483,648 do 2,147,483,647.
| 1234567 | Podrazred CLngExample_6 ()'Spodnja koda bo povzročila sporočilo o NAPAKI'CLng ne more obdelati neštevilskih znakovDim StrEx kot nizStrEx = "2147483648"MsgBox CLng (StrEx)End Sub |
Utrujen od iskanja primerov kode VBA? Preizkusite AutoMacro!
VBA CLng Regional Settings
Funkcija VBA CLng ima različne vedenjske pretvorbe nizov z vejico ali piko. Uporablja regionalne nastavitve operacijskega sistema za ločilo decimalk in ločil številk.
| 12345678910111213141516 | Pod CLngExample_7 ()Dim StrEx kot nizStrEx = "1,9"MsgBox CLng (StrEx)"Če imajo regionalne nastavitve, potem ločilo za združevanje v skupine"Rezultat je: 19„Če imajo regionalne nastavitve, potem kot decimalni ločilo"Rezultat je: 2 (2, ker se 1.9 zaokroži)StrEx = "1,9"MsgBox CLng (StrEx)"Če imajo regionalne nastavitve. kot ločevalnik skupin"Rezultat je: 19"Če imajo regionalne nastavitve. kot decimalni ločilo"Rezultat je: 2 (2, ker se 1.9 zaokroži)End Sub |
Programiranje VBA | Generator kod deluje za vas!
VBA CLng Pretvarjanje logičnih vrednosti v dolžine
Funkcija VBA CLng lahko pretvori logične spremenljivke v dolžine. Če je ovrednoten izraz resničen, je rezultat -1 in če je ovrednoten izraz napačen, je rezultat 0.
| 1234567891011121314 | Podrazred CLngExample_8 ()Zatemni BoolEx kot BooleanBoolEx = ResMsgBox CLng (BoolEx)'Rezultat je: -1MsgBox CLng (2 = 2)'Rezultat je: -1BoolEx = NapačnoMsgBox CLng (BoolEx)"Rezultat je: 0MsgBox CLng (1 = 2)"Rezultat je: 0End Sub |
VBA CLng Pretvarjanje datumov v dolge
Funkcija VBA CLng lahko spreminja datumsko spremenljivko v dolgo. Vrnjena vrednost je interna številka, ki jo Excel uporablja za zaokrožitev shranjevanja datumov. Če to število presega pričakovane dolge omejitve za VBA, dobimo napako med izvajanjem '6': Prelivanje.
| 123456789101112 | Pod CLngExample_9 ()Zatemni DateEx kot datumDateEx = #2/3/1940 #MsgBox CLng (DateEx)"Rezultat je: 14644DatumEx = #8/7/1964 #MsgBox CLng (DateEx)"Rezultat je: 23596DateEx = #3/7/1934 11:32:04 AM #MsgBox CLng (DateEx)"Rezultat je: 12485End Sub |
