Tämä opetusohjelma osoittaa, miten CInt VBA -toimintoa käytetään lausekkeen muuntamiseen kokonaislukuiseksi tietotyypiksi.
CInt -toiminto
VBA CInt Muunna lauseke kokonaisluvuksi
VBA CInt -toimintoa voidaan käyttää lausekkeiden muuntamiseen kokonaisluvutyyppiseksi VBA -koodin sisällä. Tuloksena oleva luku pyöristetään kokonaislukuksi.
| 123456 | Al CIntExample_1 ()MsgBox CInt (12.34) 'Tulos: 12MsgBox CInt (12.345) 'Tulos: 12MsgBox CInt (-124) 'Tulos: -124MsgBox CInt (-12,34) 'Tulos: -12End Sub |
VBA CInt -pyöristys
VBA CInt -toiminto pyöristää numerotyypin tai numeron kaltaisen lausekkeen desimaaliosan. Se ei kuitenkaan pyöri oikein kaikissa tapauksissa. Kun desimaaliosa on 0,5, VBA CInt -funktio palauttaa lähimmän parillisen kokonaisluvun.
| 12345678910111213141516 | Osa CIntExample_2 ()MsgBox CInt (0,34)'Tulos: 0MsgBox CInt (0,99)'Tulos on: 1MsgBox CInt (-124,95)'Tulos: -125MsgBox CInt (1.5)'Tulos on: 2MsgBox CInt (2.5)'Tulos on: 2End Sub |
Voimme lisätä desimaaliluvun suhteellisen pieneksi odotettuun desimaaliarvoon muuttaaksemme VBA Cint -toiminnon käyttäytymisen odotetuksi.
| 1234567891011 | Al CIntExample_3 ()MsgBox CInt (2.5)'Tulos on: 2MsgBox CInt (2,5 + 0,001)'Tulos on: 3MsgBox CInt (14.5)'Tulos: 14MsgBox CInt (14,5 + 0,001)'Tulos: 15End Sub |
VBA -ohjelmointi | Koodigeneraattori toimii sinulle!
VBA CInt Muuntaa merkkijonot kokonaisluvuiksi
VBA CInt -toimintoa voidaan käyttää merkkijonojen muuntamiseen kokonaisluvuiksi, jos merkkijonon merkillä on merkitys numeroina.
| 123456789101112131415161718 | Al CIntExample_4 ()Dim StrEx merkkijononaStrEx = "112"MsgBox CInt (StrEx)'Tulos: 112StrEx = "112,3"MsgBox CInt (StrEx)'Tulos on: 112 -> 112,3 on pyöristettyStrEx = "11,2"MsgBox CInt (StrEx)'Tulos on: 112 ->, jätetään huomiottaStrEx = "112 dollaria"MsgBox CInt (StrEx)'Tulos on: 112 -> $ jätetään huomiottaEnd Sub |
VBA CInt Run-Time Error 13 Tyyppi ei täsmää
Jos käytät VBA Cint -toimintoa merkkijonojen kanssa, jotka sisältävät ei-numeerisia merkkejä tai merkkejä, joilla ei ole merkitystä numeerisessa kontekstissa, tuloksena on ajonaikainen virhe '13': Tyyppivirhe.
| 1234567 | CIntExample_5 ()'Alla oleva koodi johtaa ERROR -viestiin'CInt ei voi käsitellä muita kuin numeerisia merkkejäDim StrEx merkkijononaStrEx = "Ab13"MsgBox CInt (StrEx)End Sub |
VBA CInt Run-Time Error 6 Ylivuoto
Jos käytät VBA Cint -toimintoa merkkijonojen kanssa, joiden arvo on odotettua kokonaislukua pienempi tai suurempi, tuloksena on ajonaikainen virhe '6': Ylivuoto. Excelin kokonaislukutietotyypin odotettu arvo on -32768 -32767.
| 1234567 | Al CIntExample_6 ()'Alla oleva koodi johtaa ERROR -viestiin'Ei voi käsitellä ei -numeerisia merkkejäDim StrEx merkkijononaStrEx = "1234567"MsgBox CInt (StrEx)End Sub |
Oletko kyllästynyt etsimään esimerkkejä VBA -koodista? Kokeile AutoMacroa!
VBA CInt Alueelliset asetukset
VBA CInt -toiminnolla on erilaiset käyttäytymisen muuntavat merkkijonot pilkulla tai pisteellä. Se käyttää käyttöjärjestelmän alueasetuksia desimaalierottimelle ja numeroerottimelle.
| 12345678910111213141516 | CIntExample_7 ()Dim StrEx merkkijononaStrEx = "1,9"MsgBox CInt (StrEx)"Jos alueellisissa asetuksissa on, ryhmittelyerottimena'Tulos: 19"Jos alueellisissa asetuksissa on, desimaalierottimena'Tulos: 2 (2 koska 1,9 pyöristetään)StrEx = "1,9"MsgBox CInt (StrEx)"Jos alueellisissa asetuksissa on. ryhmittelyerottimena sitten'Tulos: 19"Jos alueellisissa asetuksissa on. sitten desimaalierottimena'Tulos: 2 (2 koska 1,9 pyöristetään)End Sub |
VBA -ohjelmointi | Koodigeneraattori toimii sinulle!
VBA CInt Muunna booleanit kokonaisluvuiksi
VBA Cint -toiminto voi muuntaa boolen muuttujat kokonaisluvuiksi. Jos arvioitu lauseke on tosi, tuloksena oleva kokonaisluku on -1 ja jos arvioitu lauseke on epätosi, tuloksena oleva kokonaisluku on 0.
| 12345678910 | Al CIntExample_8 ()Dim BoolEx Boolen muodossaBoolEx = TottaMsgBox CInt (BoolEx) 'Tulos: -1MsgBox CInt (2 = 2) 'Tulos: -1BoolEx = vääräMsgBox CInt (BoolEx) 'Tulos: 0MsgBox CInt (1 = 2) 'Tulos: 0End Sub |
VBA CInt Muuntaa päivämäärät kokonaisluvuiksi
VBA Cint -toiminto voi muuntaa päivämäärämuuttujan kokonaisluvuksi. Palautettu arvo on Excelin sisäinen numero päivämäärän tallennukseen pyöristettynä. Jos tämä luku on VBA: n odotettujen kokonaislukurajojen ulkopuolella, saamme ajonaikaisen virheen ”6”: Ylivuoto.
| 123456789 | Al CIntExample_9 ()Dim DateEx PäivämääränäDateEx = #2/3/1940 #MsgBox CInt (DateEx)Tulos: 14644DateEx = #8.7.1964 #MsgBox CInt (DateEx)Tulos: 23596End Sub |
