Cíl funkce VBA CInt:

Funkce VBA CInt se řadí mezi funkce pro převod datových typů. Jedná se o vestavěnou funkci v prostředí Excel VBA. Tato funkce VBA CInt převádí výraz na datový typ Integer.
Tuto funkci lze použít v proceduře nebo funkci v okně editoru VBA v aplikaci Excel. Tuto funkci VBA CInt můžeme použít v libovolném počtu procedur nebo funkcí. V následující části se dozvíte mnoho témat. Například jaká je syntaxe a parametry funkce CInt, kde můžeme tuto funkci VBA CInt použít a její příklady v reálném čase.

Syntaxe funkce VBA CInt:

Syntaxe funkce CInt ve VBA je

CInt(Expression)

Funkce CInt vrací hodnotu datového typu integer.

Parametry neboli argumenty:

Funkce CInt má v Excelu VBA jeden argument.
kde
Výraz:Je to povinný argument. Argument výraz představuje číselnou nebo řetězcovou hodnotu. Používá se k převodu hodnoty na celočíselnou hodnotu.

Kde můžeme funkci VBA CInt uplatnit nebo použít?

Funkci CInt můžeme použít ve VBA MS Office 365, MS Excel 2016, MS Excel 2013, 2011, Excel 2010, Excel 2007, Excel 2003, Excel 2016 pro Mac, Excel 2011 pro Mac, Excel Online, Excel pro iPhone, Excel pro iPad, Excel pro tablety a Excel pro mobily s Androidem.

Příklad 1: Převod řetězce(100) na celočíselný datový typ

Předkládáme jednoduchý příklad funkce VBA CInt. Tento níže uvedený příklad zadaný výraz(100) převede na hodnotu typu 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

Výstup:

Příklad 2: Převod hodnoty(12345,678) na datový typ integer

Tady je jednoduchý příklad funkce VBA CInt. Tento níže uvedený příklad zadaný výraz(12345.678) převede na hodnotu typu 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

Výstup:

Příklad 3: Převod hodnoty(40000) na datový typ integer (vrátí chybu přetečení)

Tady je jednoduchý příklad funkce VBA CInt. Tento níže uvedený příklad zadaný výraz(40000) převede na hodnotu typu intger. Vrací chybu Overflow. Hodnota 40000 je větší než 32767. Hodnota celého čísla by měla být v rozmezí -32,768 až 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

Výstup:

Příklad 4: Převést řetězec(Test) na celočíselný datový typ (vrátí chybu neshody typu)

Tady je jednoduchý příklad funkce VBA CInt. Tento níže uvedený příklad zadaný výraz(Test) převede na hodnotu typu intger. Vrátí chybu Type mismatch.

'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

Výstup:

Pokyny k použití makrokódů

Níže jsou uvedeny pokyny krok za krokem k použití funkce CInt v aplikaci Excel VBA.

• Otevřete sešit aplikace Excel.
• Stisknutím kláves Alt+F11 otevřete okno editoru VBA.
• Přejděte do nabídky Vložit a z dostupných možností klikněte na modul.
• Zkopírujte výše zadaná makra do editoru VBA.
• Vyberte libovolnou proceduru z výše uvedených kódů a klikněte na příkaz „Spustit“ nebo použijte klávesovou zkratku „F5“.

Seznam funkcí VBA:

Kliknutím na níže uvedený odkaz se vrátíte zpět a zobrazíte celý seznam funkcí VBA.

Seznam funkcí VBA pro převod datových typů

.