Mål for VBA CInt-funktionen:
VBA CInt-funktionen er kategoriseret som en datatype-konverteringsfunktion. Det er en indbygget funktion i Excel VBA. Denne VBA CInt-funktion konverterer et udtryk til en Integer-datatatype.
Denne funktion kan bruges i enten procedure eller funktion i et VBA-redigeringsvindue i Excel. Vi kan bruge denne VBA CInt-funktion i et vilkårligt antal gange i et vilkårligt antal procedurer eller funktioner. I det følgende afsnit lærer du mange emner. Som hvad er syntaksen og parametrene for CInt-funktionen, hvor vi kan bruge denne VBA CInt-funktion, og det er eksempler i realtid.
Syntaks for VBA CInt-funktionen:
Syntaksen for CInt-funktionen i VBA er
CInt(Expression)
CInt-funktionen returnerer en værdi af datatypen heltal.
Parametre eller argumenter:
CInt-funktionen har ét argument i Excel VBA.
hvor
Udtryk:Det er et obligatorisk argument. Et udtryksargument repræsenterer en numerisk værdi eller en strengværdi. Det bruges til at konvertere værdien til en heltalsværdi.
Hvor kan vi anvende eller bruge VBA CInt-funktionen?
Vi kan bruge denne CInt-funktion i VBA MS Office 365, MS Excel 2016, MS Excel 2013, 2011, Excel 2010, Excel 2007, Excel 2003, Excel 2016 til Mac, Excel 2011 til Mac, Excel Online, Excel til iPhone, Excel til iPad, Excel til Android-tabletter og Excel til Android-mobiler.
Eksempel 1: Konverter en streng(100) til datatype Integer
Her er et simpelt eksempel på VBA CInt-funktionen. Dette nedenstående eksempel specificerede udtryk(100) konverteres til en værdi af typen intger.
'Convert a String(100) to Integer Data TypeSub VBA_CInt_Function_Ex1() 'Variable declaration Dim sValue As String Dim dResult As Double sValue = 100 dResult = CInt(sValue) MsgBox "String(100) to Integer Data Type : " & dResult, vbInformation, "VBA CInt Function" End Sub
Output: 
Eksempel 2: Konverter en værdi(12345.678) til datatype Integer
Her er et simpelt eksempel på VBA CInt-funktionen. Dette nedenstående eksempel specificerede udtryk(12345.678) konverteres til en værdi af typen intger.
'Convert a Value(12345.678) to Integer Data TypeSub VBA_CInt_Function_Ex2() 'Variable declaration Dim sValue As Double Dim dResult As Double sValue = 12345.678 dResult = CInt(sValue) MsgBox "Value(12345.678) to Integer Data Type : " & dResult, vbInformation, "VBA CInt Function" End Sub
Output: 
Eksempel 3: Konverter en værdi(40000) til datatype Integer (returnerer en overløbsfejl)
Her er et simpelt eksempel på VBA CInt-funktionen. Dette nedenstående eksempel specificerede udtryk(40000) konverteres til en værdi af typen intger. Den returnerer en overløbsfejl. Værdien 40.000 er større end 32.767. Den heltalsværdi skal ligge mellem -32.768 og 32.767.
'Convert a Value(40000) to Integer Data Type (Returns an Overflow Error)Sub VBA_CInt_Function_Ex3() 'Variable declaration Dim sValue As Currency Dim dResult As Double sValue = 40000 dResult = CInt(sValue) MsgBox "Value(40000) to Integer Data Type : " & dResult, vbInformation, "VBA CInt Function"End Sub
Output: 
Eksempel 4: Konverter en streng(Test) til en heltalsdatatype (returnerer en Type mismatch Error)
Her er et simpelt eksempel på VBA CInt-funktionen. Dette nedenstående eksempel specificerede udtryk(Test) konverteres til en værdi af typen intger. Den returnerer Type mismatch fejl.
'Convert a string(Test) to Integer Data Type (Returns Type mismatch Error)Sub VBA_CInt_Function_Ex4() 'Variable declaration Dim sValue As String Dim dResult As Double sValue = "Test" dResult = CInt(sValue) MsgBox "String(Test) to Integer Data Type : " & dResult, vbInformation, "VBA CInt Function" End Sub
Output: 
Instruktioner til brug af makrokoder
Her er trin for trin instruktioner til brug af CInt-funktionen i Excel VBA.
- Åbn en Excel-arbejdsbog.
- Tryk på Alt+F11 for at åbne VBA Editor-vinduet.
- Gå til menuen Indsæt, og klik på modul blandt de tilgængelige muligheder.
- Kopier ovennævnte angivne makroer til VBA-editoren.
- Vælg en procedure fra ovenstående koder, og klik på kommandoen “Run” (Kør), eller brug tastaturgenvejen “F5”.
Liste over VBA-funktioner:
Klik på nedenstående link for at gå tilbage og se hele listen over VBA-funktioner.
VBA-funktioner til konvertering af datatyper Liste over VBA-funktioner