Objectivo de VBA CInt Function:

VBA CInt Function is categorized as a Data Type Conversion function. É uma função embutida no Excel VBA. Esta função CInt VBA converte uma expressão para um tipo de dado Inteiro.
Esta função pode ser usada em um procedimento ou função em uma janela do editor VBA no Excel. Podemos usar esta função VBA CInt em qualquer número de vezes em qualquer número de procedimentos ou funções. Na seção seguinte, você aprende muitos tópicos. Como qual é a sintaxe e os parâmetros da função CInt, onde podemos usar esta função CInt VBA e seus exemplos em tempo real.

Sintaxe da função CInt VBA:

A sintaxe da função CInt em VBA é

CInt(Expression)

A função CInt retorna um valor inteiro do tipo de dados.

Parâmetros ou Argumentos:

A função CInt tem um argumento em Excel VBA.
where
Expressão:É um argumento obrigatório. Um argumento de expressão representa um valor numérico ou string. Ele é usado para converter o valor para um valor inteiro.

Onde podemos aplicar ou usar a função CInt VBA?

Podemos usar essa função CInt em VBA MS Office 365, MS Excel 2016, MS Excel 2013, 2011, Excel 2010, Excel 2007, Excel 2003, Excel 2016 para Mac, Excel 2011 para Mac, Excel Online, Excel para iPhone, Excel para iPad, Excel para Android tablets e Excel para Android Mobiles.

Exemplo 1: Converter uma String(100) para Tipo de Dados Inteiros

Aqui está um exemplo simples da função VBA CInt. Este exemplo abaixo da expressão especificada(100) converte para um intger type value.

'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: Aqui está o screen shot do primeiro exemplo de saída.

Exemplo 2: Converte um Valor(12345.678) para Tipo de Dados Inteiro

Aqui está um exemplo simples da função VBA CInt. Este exemplo abaixo da expressão especificada(12345.678) converte para um valor do tipo 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

Saída: Aqui está o screen shot do segundo exemplo de saída.

Exemplo 3: Converte um Valor(40000) para Tipo de Dados Inteiro (Retorna um Erro de Overflow)

Aqui está um exemplo simples da função VBA CInt. Este exemplo abaixo da expressão especificada(40000) converte para um valor do tipo intger. Ela retorna um erro de Overflow. O valor 40.000 é maior que 32.767. O valor inteiro deve estar entre -32.768 e 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

Saída: Aqui está o screen shot do terceiro exemplo de saída.

Exemplo 4: Converter uma string(Teste) para Tipo de Dados Inteiro (Retorna um Erro de Descasamento de Tipo)

Aqui está um exemplo simples da função VBA CInt. Este exemplo abaixo especifica a expressão(Test) converte para um valor do tipo intger. Ele retorna Tipo erro de incompatibilidade.

'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

Saída: Aqui está o screen shot do quarto exemplo de saída.

Instruções para usar Códigos de Macro

Aqui estão as instruções passo a passo para usar a função CInt no Excel VBA.

• Abra uma pasta de trabalho do Excel.
• Pressione Alt+F11 para abrir a janela do Editor VBA.
• Vá ao menu Inserir e clique no módulo a partir das opções disponíveis.
• Copiar as macros especificadas acima para o editor VBA.
• Selecione qualquer procedimento dos códigos acima e clique no comando ‘Run’ ou use o atalho ‘F5’ do teclado.

Lista de funções VBA:

Please click on below link to go back to see all List of VBA Functions.

Funções de conversão do tipo de dados VBA Lista de funções VBA