Ez az oktatóanyag bemutatja, hogyan kell használni a CInt VBA függvényt egy kifejezés egész adattípusra konvertálásához.
CInt funkció
VBA CInt Konvertálja az expressziót egész számgá
A VBA CInt függvény használható a kifejezések VBA kódon belüli egész adattípusokká alakítására. A kapott szám egész szám lesz.
123456 | CIntExample_1 ()MsgBox CInt (12.34) 'Az eredmény: 12MsgBox CInt (12.345) 'Az eredmény: 12MsgBox CInt (-124) 'Az eredmény: -124MsgBox CInt (-12,34) 'Az eredmény: -12End Sub |
VBA CInt Kerekítés
A VBA CInt függvény kerekíti a számtípus vagy számszerű kifejezés tizedes részét. Ez azonban nem minden esetben kerekedik helyesen. Ha a tizedes rész 0,5, akkor a VBA CInt függvény a legközelebbi páros egész számot adja vissza.
12345678910111213141516 | CIntExample_2 ()MsgBox CInt (0,34)'Az eredmény: 0MsgBox CInt (0,99)'Az eredmény: 1MsgBox CInt (-124,95)'Az eredmény: -125MsgBox CInt (1.5)'Az eredmény: 2MsgBox CInt (2.5)'Az eredmény: 2End Sub |
Hozzáadhatunk egy tizedes számot viszonylag kicsivel a várt tizedes értékhez, hogy megváltoztassuk a VBA Cint függvény viselkedését az elvárthoz.
1234567891011 | CIntExample_3 ()MsgBox CInt (2.5)'Az eredmény: 2MsgBox CInt (2,5 + 0,001)'Az eredmény: 3MsgBox CInt (14.5)'Az eredmény: 14MsgBox CInt (14,5 + 0,001)'Az eredmény: 15End Sub |
VBA programozás | A kódgenerátor működik az Ön számára!
VBA CInt karakterláncok konvertálása egész számokká
A VBA CInt függvény használható a karakterláncok egész számokká alakítására, ha a karakterláncban szereplő karaktereknek számuk van.
123456789101112131415161718 | CIntExample_4 ()Dim StrEx karakterlánckéntStrEx = "112"MsgBox CInt (StrEx)'Az eredmény: 112StrEx = "112,3"MsgBox CInt (StrEx)'Az eredmény: 112 -> 112,3 kerekítveStrEx = "11,2"MsgBox CInt (StrEx)'Az eredmény: 112 ->, figyelmen kívül hagyjaStrEx = "$ 112"MsgBox CInt (StrEx)'Az eredmény: 112 -> $ figyelmen kívül hagyjaEnd Sub |
VBA CInt Run-Time Error 13 Type Mismatch
Ha a VBA Cint funkciót olyan karakterláncokkal használja, amelyek nem numerikus karaktereket vagy olyan karaktereket tartalmaznak, amelyeknek nincs értelme a numerikus kontextusban, akkor a futásidejű hiba '13' lesz: Típusbeli eltérés.
1234567 | CIntExample_5 ()'Az alábbi kód ERROR üzenetet eredményez'A CInt nem tud nem numerikus karaktereket kezelniDim StrEx karakterlánckéntStrEx = "Ab13"MsgBox CInt (StrEx)End Sub |
VBA CInt Run-Time Error 6 Overflow
Ha a VBA Cint függvényt olyan karakterláncokkal használja, amelyek a várt egésznél kisebb vagy nagyobb értéket eredményeznek, a Run-Time error ’6’: Overflow-t eredményez. Az excel egész adattípusának várható értéke -32768 és 32767 között van.
1234567 | CIntExample_6 ()'Az alábbi kód ERROR üzenetet eredményez"Nem tudok kezelni nem numerikus karaktereketDim StrEx karakterlánckéntStrEx = "1234567"MsgBox CInt (StrEx)End Sub |
Unod már a VBA kódpéldák keresését? Próbálja ki az AutoMacro -t!
VBA CInt regionális beállítások
A VBA CInt függvény különböző viselkedést konvertáló karakterláncokat tartalmaz vesszővel vagy ponttal. Az operációs rendszer regionális beállításait használja a tizedes elválasztáshoz és a számjegy elválasztáshoz.
12345678910111213141516 | CIntExample_7 ()Dim StrEx karakterlánckéntStrEx = "1,9"MsgBox CInt (StrEx)„Ha a regionális beállítások rendelkeznek, csoportosító elválasztóként'Az eredmény: 19„Ha a regionális beállítások rendelkeznek, akkor tizedes elválasztónak kell lennie'Az eredmény: 2 (2, mert 1,9 kerekít)StrEx = "1,9"MsgBox CInt (StrEx)„Ha a regionális beállítások rendelkeznek. csoportosító elválasztóként akkor'Az eredmény: 19„Ha a regionális beállítások rendelkeznek. tizedes elválasztóként akkor'Az eredmény: 2 (2, mert 1,9 kerekít)End Sub |
VBA programozás | A kódgenerátor működik az Ön számára!
VBA CInt Logikai értékek konvertálása egész számokká
A VBA Cint függvény a logikai változókat egész számokká alakíthatja. Ha a kiértékelt kifejezés igaz, a kapott egész szám -1, ha az értékelt kifejezés hamis, a kapott egész szám 0.
12345678910 | CIntExample_8 ()Dim BoolEx mint BooleanBoolEx = IgazAz MsgBox CInt (BoolEx) eredménye: -1MsgBox CInt (2 = 2) 'Az eredmény: -1BoolEx = HamisAz MsgBox CInt (BoolEx) eredménye: 0MsgBox CInt (1 = 2) 'Az eredmény: 0End Sub |
VBA CInt Dátumok egészre konvertálása
A VBA Cint függvény képes egy dátumváltozót egész számmá alakítani. A visszaadott érték az Excel belső száma, dátum tárolására kerekítve. Ha ez a szám kívül esik a VBA várható egész számhatárain, akkor a Run-Time hibát '6' kapjuk: túlcsordulás.
123456789 | CIntExample_9 ()Dim DateEx dátumkéntDateEx = 1940.03.03.MsgBox CInt (DateEx)Az eredmény: 14644DateEx = 1964.07.07.MsgBox CInt (DateEx)Az eredmény: 23596End Sub |