Šī apmācība parādīs, kā izmantot funkciju CInt VBA, lai pārvērstu izteiksmi par veselu skaitļu datu tipu.
CInt funkcija
VBA CInt Pārvērst izteiksmi par veselu skaitli
Funkciju VBA CInt var izmantot, lai izteiksmes pārvērstu par veselu skaitļu datu tipu VBA kodā. Iegūtais skaitlis tiek noapaļots, lai kļūtu par veselu skaitli.
123456 | CIntExample_1 ()MsgBox CInt (12.34) 'Rezultāts: 12MsgBox CInt (12.345) 'Rezultāts: 12MsgBox CInt (-124) 'Rezultāts: -124MsgBox CInt (-12.34) 'Rezultāts: -12Beigu apakš |
VBA CInt Noapaļošana
Funkcija VBA CInt 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ālā daļa ir 0,5, funkcija VBA CInt atgriež tuvāko pāra veselu skaitli.
12345678910111213141516 | CIntExample_2 ()MsgBox CInt (0,34)'Rezultāts: 0MsgBox CInt (0,99)'Rezultāts: 1MsgBox CInt (-124,95)Rezultāts: -125MsgBox CInt (1.5)'Rezultāts: 2MsgBox CInt (2.5)'Rezultāts: 2Beigu apakš |
Mēs varam pievienot decimāldaļu skaitli salīdzinoši mazam mūsu paredzamajai decimāldaļai, lai mainītu VBA Cint funkcijas uzvedību uz paredzamo.
1234567891011 | CIntExample_3 ()MsgBox CInt (2.5)'Rezultāts: 2MsgBox CInt (2,5 + 0,001)'Rezultāts: 3MsgBox CInt (14.5)"Rezultāts: 14MsgBox CInt (14,5 + 0,001)"Rezultāts: 15Beigu apakš |
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
VBA CInt konvertējot virknes uz veseliem skaitļiem
Funkciju VBA CInt var izmantot, lai pārvērstu virknes par veseliem skaitļiem, ja virknes rakstzīmēm ir nozīme kā skaitļiem.
123456789101112131415161718 | CIntExample_4 ()Dim StrEx kā virkneStrEx = "112"MsgBox CInt (StrEx)"Rezultāts: 112StrEx = "112,3"MsgBox CInt (StrEx)'Rezultāts: 112 -> 112,3 ir noapaļotsStrEx = "11,2"MsgBox CInt (StrEx)'Rezultāts ir: 112 ->, tiek ignorētsStrEx = "112 ASV dolāri"MsgBox CInt (StrEx)'Rezultāts: 112 -> $ tiek ignorētsBeigu apakš |
VBA CInt izpildlaika kļūda 13 Tipa neatbilstība
Funkcijas VBA Cint 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 | CIntExample_5 ()'Tālāk norādītais kods parādīs ziņojumu KĻŪDA“CInt nevar apstrādāt ne ciparu rakstzīmesDim StrEx kā virkneStrEx = "Ab13"MsgBox CInt (StrEx)Beigu apakš |
VBA CInt Run-Time Error 6 Overflow
Izmantojot funkciju VBA Cint 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 no -32768 līdz 32767.
1234567 | CIntExample_6 ()'Tālāk norādītais kods parādīs ziņojumu KĻŪDA"Es nevaru apstrādāt ne ciparu rakstzīmesDim StrEx kā virkneStrEx = "1234567"MsgBox CInt (StrEx)Beigu apakš |
Vai esat noguris no VBA koda piemēru meklēšanas? Izmēģiniet AutoMacro!
VBA CInt reģionālie iestatījumi
Funkcijai VBA CInt ir atšķirīga uzvedība, 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 | CIntExample_7 ()Dim StrEx kā virkneStrEx = "1,9"MsgBox CInt (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 CInt (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 CInt Būla pārvēršana veselos skaitļos
VBA Cint funkcija var pārvērst Būla mainīgos lielumus veselos skaitļos. Ja novērtētā izteiksme ir patiesa, iegūtais vesels skaitlis ir -1 un ja novērtētā izteiksme ir nepatiesa, iegūtais vesels skaitlis ir 0.
12345678910 | CIntExample_8 ()Dim BoolEx kā BūlaBoolEx = taisnībaMsgBox CInt (BoolEx) rezultāts: -1MsgBox CInt (2 = 2) 'Rezultāts: -1BoolEx = nepatiesaMsgBox CInt (BoolEx) rezultāts: 0MsgBox CInt (1 = 2) 'Rezultāts: 0Beigu apakš |
VBA CInt Datumu konvertēšana uz veseliem skaitļiem
Funkcija VBA Cint var pārvērst datuma mainīgo par veselu skaitli. Atgrieztā vērtība ir noapaļots iekšējais numurs, ko Excel izmanto datuma glabāšanai. Ja šis skaitlis pārsniedz paredzamos VBA veselo skaitļu ierobežojumus, mēs saņemam izpildlaika kļūdu “6”: pārpilde.
123456789 | CIntExample_9 ()Dim DateEx kā datumsDateEx = #2/3/1940 #MsgBox CInt (DateEx)Rezultāts: 14644DateEx = #8/7/1964 #MsgBox CInt (DateEx)Rezultāts: 23596Beigu apakš |