Acest tutorial va arăta cum să utilizați funcția CInt VBA pentru a converti o expresie în tipul de date întregi.
Funcția CInt
VBA CInt Convertește expresia în întreg
Funcția VBA CInt poate fi utilizată pentru a converti expresiile în tip de date întregi din codul VBA. Numărul rezultat este rotunjit pentru a deveni un număr întreg.
123456 | Sub CIntExample_1 ()MsgBox CInt (12.34) „Rezultatul este: 12MsgBox CInt (12.345) „Rezultatul este: 12MsgBox CInt (-124) 'Rezultatul este: -124MsgBox CInt (-12.34) 'Rezultatul este: -12Sfârșitul Sub |
VBA CInt Rounding
Funcția VBA CInt va rotunji partea zecimală a unui tip de număr sau a unei expresii asemănătoare unui număr. Cu toate acestea, nu se rotunjește corect în toate cazurile. Când partea zecimală este 0,5, atunci funcția VBA CInt returnează cel mai apropiat număr întreg.
12345678910111213141516 | Sub CIntExample_2 ()MsgBox CInt (0,34)'Rezultatul este: 0MsgBox CInt (0,99)„Rezultatul este: 1MsgBox CInt (-124.95)'Rezultatul este: -125MsgBox CInt (1.5)„Rezultatul este: 2MsgBox CInt (2.5)„Rezultatul este: 2Sfârșitul Sub |
Putem adăuga un număr zecimal relativ mic la valoarea zecimală așteptată pentru a schimba comportamentul funcției VBA Cint la valoarea așteptată.
1234567891011 | Sub CIntExample_3 ()MsgBox CInt (2.5)„Rezultatul este: 2MsgBox CInt (2,5 + 0,001)„Rezultatul este: 3MsgBox CInt (14.5)„Rezultatul este: 14MsgBox CInt (14,5 + 0,001)„Rezultatul este: 15Sfârșitul Sub |
Programare VBA | Generatorul de coduri funcționează pentru dvs.!
VBA CInt Conversia șirurilor în numere întregi
Funcția VBA CInt poate fi utilizată pentru a converti șiruri în numere întregi dacă caracterele din șir au un sens ca numere.
123456789101112131415161718 | Sub CIntExample_4 ()Dim StrEx Ca șirStrEx = "112"MsgBox CInt (StrEx)„Rezultatul este: 112StrEx = "112,3"MsgBox CInt (StrEx)'Rezultatul este: 112 -> 112.3 este rotunjitStrEx = "11,2"MsgBox CInt (StrEx)'Rezultatul este: 112 ->, este ignoratStrEx = "112 USD"MsgBox CInt (StrEx)'Rezultatul este: 112 -> $ este ignoratSfârșitul Sub |
VBA CInt Run-Time Error 13 Type Mismatch
Utilizarea funcției VBA Cint cu șiruri care conțin caractere nenumerice sau caractere care nu au semnificație în context numeric va avea ca rezultat o eroare în timp de execuție „13”: Tip nepotrivire.
1234567 | Sub CIntExample_5 ()„Codul de mai jos va avea ca rezultat un mesaj de EROARE„CInt nu poate gestiona caractere care nu sunt numericeDim StrEx Ca șirStrEx = "Ab13"MsgBox CInt (StrEx)Sfârșitul Sub |
VBA CInt Run-Time Error 6 Overflow
Utilizarea funcției VBA Cint cu șiruri care au ca rezultat o valoare mai mică sau mai mare decât numărul întreg așteptat va duce la o eroare în timp de execuție „6”: Overflow. Tipul de date întregi în Excel are o valoare așteptată de la -32768 la 32767.
1234567 | Sub CIntExample_6 ()„Codul de mai jos va avea ca rezultat un mesaj de EROARE„Nu pot gestiona caractere nenumericeDim StrEx Ca șirStrEx = "1234567"MsgBox CInt (StrEx)Sfârșitul Sub |
V-ați săturat să căutați exemple de cod VBA? Încercați AutoMacro!
Setări regionale VBA CInt
Funcția VBA CInt are un comportament diferit de conversie a șirurilor cu virgulă sau punct. Utilizează setările regionale ale sistemului de operare pentru separatorul zecimal și separatorul de cifre.
12345678910111213141516 | Sub CIntExample_7 ()Dim StrEx Ca șirStrEx = "1,9"MsgBox CInt (StrEx)„Dacă setările regionale au, ca separator de grupare atunci„Rezultatul este: 19„Dacă setările regionale au, ca separator zecimal atunci'Rezultatul este: 2 (2 pentru că 1.9 se rotunjește)StrEx = "1.9"MsgBox CInt (StrEx)‘Dacă setările regionale au. ca separator de grupare atunci„Rezultatul este: 19‘Dacă setările regionale au. ca separator zecimal atunci'Rezultatul este: 2 (2 pentru că 1.9 se rotunjește)Sfârșitul Sub |
Programare VBA | Generatorul de coduri funcționează pentru dvs.!
VBA CInt Conversia booleenilor la numere întregi
Funcția VBA Cint poate converti variabile booleene în numere întregi. Dacă expresia evaluată este adevărată, numărul întreg rezultat este -1 și dacă expresia evaluată este falsă, numărul întreg rezultat este 0.
12345678910 | Sub CIntExample_8 ()Dim BoolEx Ca booleanBoolEx = AdevăratRezultatul MsgBox CInt (BoolEx) este: -1MsgBox CInt (2 = 2) 'Rezultatul este: -1BoolEx = FalsRezultatul MsgBox CInt (BoolEx) este: 0MsgBox CInt (1 = 2) 'Rezultatul este: 0Sfârșitul Sub |
VBA CInt Conversia datelor în numere întregi
Funcția VBA Cint poate converti o variabilă de dată într-un număr întreg. Valoarea returnată este numărul intern utilizat de excel pentru stocarea datei rotunjită. Dacă numărul respectiv se află în afara limitelor întregi așteptate pentru VBA, atunci vom primi o eroare în timp de execuție „6”: Overflow.
123456789 | Sub CIntExample_9 ()Dim DateEx Ca datăDateEx = # 3/3/1940 #MsgBox CInt (DateEx)'Rezultatul este: 14644DateEx = # 8/7/1964 #MsgBox CInt (DateEx)„Rezultatul este: 23596Sfârșitul Sub |