Šī apmācība parādīs, kā izmantot funkciju CLng VBA, lai pārvērstu izteiksmi garu veselu skaitļu datu tipā.
CLng funkcija
VBA CLng Pārvērst izteiksmi uz garu
Funkciju VBA CLng var izmantot, lai pārvērstu izteiksmes garos datu tipos VBA koda iekšienē.
123456 | CLngExample_1 apakšsadaļa ()MsgBox CLng (12.34) 'Rezultāts: 12MsgBox CLng (12.345) 'Rezultāts: 12MsgBox CLng (-124) 'Rezultāts: -124MsgBox CLng (-12.34) 'Rezultāts: -12Beigu apakš |
VBA CLng noapaļošana
Funkcija VBA CLng noapaļos skaitļa tipa decimāldaļu vai skaitlim līdzīgu izteiksmi. Tomēr tas ne vienmēr noapaļo pareizi. Ja decimāldaļa ir 0,5, funkcija VBA CLng atgriež tuvāko pāra veselu skaitli.
1234567891011 | CLngExample_2 apakšsadaļa ()MsgBox CLng (0.34) 'Rezultāts: 0MsgBox CLng (0.99) 'Rezultāts: 1MsgBox CLng (-124,95) 'Rezultāts: -125MsgBox CLng (1.5) 'Rezultāts: 2MsgBox CLng (2.5) 'Rezultāts: 2Beigu apakš |
Mēs varam pievienot decimāldaļskaitli salīdzinoši nelielu mūsu paredzamajai decimāldaļai, lai mainītu VBA CLng funkcijas uzvedību uz paredzamo.
1234567891011 | CLngExample_3 apakšsadaļa ()MsgBox CLng (2.5)'Rezultāts: 2MsgBox CLng (2,5 + 0,001)'Rezultāts: 3MsgBox CLng (14.5)"Rezultāts: 14MsgBox CLng (14,5 + 0,001)"Rezultāts: 15Beigu apakš |
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
VBA CLng virkņu pārvēršana garos
Funkciju VBA CLng var izmantot, lai pārvērstu virknes par garām, ja virknes rakstzīmēm ir nozīme kā skaitļiem.
123456789101112131415161718 | CLngExample_4 apakšsadaļa ()Dim StrEx kā virkneStrEx = "112"MsgBox CLng (StrEx)"Rezultāts: 112StrEx = "112,3"MsgBox CLng (StrEx)'Rezultāts: 112 112,3 ir noapaļotsStrEx = "11,2"MsgBox CLng (StrEx)'Rezultāts: 112, tiek ignorētsStrEx = "112 ASV dolāri"MsgBox CLng (StrEx)'Rezultāts: 112 $ tiek ignorētsBeigu apakš |
VBA CLng izpildlaika kļūda 13 Tipa neatbilstība
Funkcijas VBA CLng izmantošana ar virknēm, kas satur neskaitliskas rakstzīmes vai rakstzīmes, kurām nav nozīmes skaitliskajā kontekstā, radīs izpildlaika kļūdu “13”: tipa neatbilstība.
1234567 | CLngExample_5 apakšsadaļa ()'Tālāk norādītais kods parādīs ziņojumu KĻŪDA“CLng nevar apstrādāt rakstzīmes, kas nav skaitliskasDim StrEx kā virkneStrEx = "Ab13"MsgBox CLng (StrEx)Beigu apakš |
VBA CLng izpildlaika kļūda 6 Pārpilde
Izmantojot funkciju VBA CLng ar virknēm, kuru vērtība ir mazāka vai lielāka par paredzamo veselu skaitli, radīsies izpildlaika kļūda “6”: pārpilde. Vesela skaitļa datu tipam programmā Excel paredzamā vērtība ir -2 147 483 648 līdz 2 147 483 647.
1234567 | CLngExample_6 apakšsadaļa ()'Tālāk norādītais kods parādīs ziņojumu KĻŪDA“CLng nevar apstrādāt neskaitliskas rakstzīmesDim StrEx kā virkneStrEx = "2147483648"MsgBox CLng (StrEx)Beigu apakš |
Vai esat noguris no VBA koda piemēru meklēšanas? Izmēģiniet AutoMacro!
VBA CLng reģionālie iestatījumi
Funkcijai VBA CLng ir dažādas uzvedības, kas pārveido virknes ar komatu vai punktu. Decimālajam atdalītājam un ciparu atdalītājam tas izmanto operētājsistēmas reģionālos iestatījumus.
12345678910111213141516 | CLngExample_7 apakšsadaļa ()Dim StrEx kā virkneStrEx = "1,9"MsgBox CLng (StrEx)“Ja reģionālajiem iestatījumiem ir, kā grupēšanas atdalītājs"Rezultāts: 19“Ja reģionālajos iestatījumos ir, kā decimāldaļu atdalītājs'Rezultāts: 2 (2, jo noapaļo 1,9)StrEx = "1,9"MsgBox CLng (StrEx)“Ja reģionālajiem iestatījumiem ir. kā grupēšanas atdalītājs"Rezultāts: 19“Ja reģionālajiem iestatījumiem ir. kā decimāldaļu atdalītāju'Rezultāts: 2 (2, jo noapaļo 1,9)Beigu apakš |
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
VBA CLng Būla pārvēršana garos
Funkcija VBA CLng var pārvērst Būla mainīgos lielos garos. Ja novērtētā izteiksme ir patiesa, iegūtais garais ir -1 un ja novērtētā izteiksme ir nepatiesa, iegūtā garā vērtība ir 0.
1234567891011121314 | CLngExample_8 apakšsadaļa ()Dim BoolEx kā BūlaBoolEx = taisnībaMsgBox CLng (BoolEx)'Rezultāts: -1MsgBox CLng (2 = 2)'Rezultāts: -1BoolEx = nepatiesaMsgBox CLng (BoolEx)'Rezultāts: 0MsgBox CLng (1 = 2)'Rezultāts: 0Beigu apakš |
VBA CLng Datumu pārvēršana garos
Funkcija VBA CLng var pārvērst datuma mainīgo par garu. Atgrieztā vērtība ir noapaļots iekšējais numurs, ko Excel izmanto datuma glabāšanai. Ja šis skaitlis pārsniedz paredzētos garos VBA ierobežojumus, mēs saņemam izpildlaika kļūdu “6”: pārpilde.
123456789101112 | CLngExample_9 apakšsadaļa ()Dim DateEx kā datumsDateEx = #2/3/1940 #MsgBox CLng (DateEx)Rezultāts: 14644DateEx = #8/7/1964 #MsgBox CLng (DateEx)Rezultāts: 23596DateEx = #3/7/1934 11:32:04 #MsgBox CLng (DateEx)Rezultāts: 12485Beigu apakš |