VBA INT

Função Excel VBA INT (inteiro)

VBA INT é uma função embutida que é usada para nos dar apenas a parte inteira de um número que nos forneceu uma entrada, esta função é usada nos dados cuja parte decimal não afeta tanto os dados para facilitar os cálculos ou análises que usamos Função INT para obter apenas os valores inteiros.

Esta função está disponível com a planilha e também no VBA. A função inteira arredonda um número específico para baixo para o número inteiro mais próximo.

A função VBA Int pode ser usada em Sub Procedure e Function Procedure. Agora dê uma olhada na sintaxe da função INT no VBA.

Ele tem apenas um argumento para fornecer, ou seja, Número

  • O número é o número que estamos tentando converter em número INTEGER. Quando o número é fornecido, a função INT o arredonda para o inteiro mais próximo.

Por exemplo, se o número fornecido for 68,54, a função Excel VBA Int arredondará para baixo para 68, que é quase zero. Se o número fornecido for -68,54, a função INT arredondou o número para 69, que é diferente de zero.

Como usar a função VBA INT?

Você pode baixar este modelo VBA INT do Excel aqui - modelo VBA INT do Excel

Exemplo 1

Agora, observe o exemplo simples da função “INT” no VBA. Vamos realizar a tarefa de arredondar para baixo o número 84,55 para o número inteiro mais próximo.

Etapa 1: iniciar o subprocedimento.

Etapa 2: Declare a variável como Inteiro .

Código:

 Sub INT_Example1 () Dim K As Integer End Sub

Passo 3: Agora atribua a fórmula à variável “ k ” aplicando a função INT.

Código:

 Sub INT_Example1 () Dim K As Integer K = Int (End Sub

Etapa 4: forneça o número 84,55 .

Observação: como é um número numérico, não precisamos fornecer aspas duplas.

Código:

 Sub INT_Example1 () Dim K As Integer K = Int (84.55) End Sub

Passo 5: Agora passando o resultado da variável na caixa de mensagem do VBA.

Código:

 Sub INT_Exemplo1 () Dim K As Integer K = Int (84.55) MsgBox K End Sub

Ok, vamos executar o código e ver o que acontece.

Assim, o resultado é 84 e é para baixo arredondado para o valor inteiro mais próximo.

Exemplo # 2

Agora com o mesmo número com sinal negativo, tentaremos converter para o valor inteiro mais próximo. Abaixo está o código com um sinal negativo.

Código:

 Sub INT_Exemplo2 () Dim k As Integer k = Int (-84,55) 'Número negativo com função INT MsgBox k End Sub

Quando executo este código, ele arredondou o número para -85 .

Exemplo # 3 - Extrair parte da data de data e hora

Poucas vezes em minha carreira, encontrei o cenário de extrair a data e a hora separadamente da combinação de Data e Hora.

Para obter um exemplo, veja os dados abaixo de Data e Hora.

Como você extrai a porção da data e a hora?

Primeiro, precisamos extrair a parte da data, para isso vamos aplicar a função INT. O código abaixo extrairá a parte DATE dos dados acima.

Código:

 Sub INT_Exemplo2 () Dim k As Integer For k = 2 To 12 Cells (k, 2) .Value = Int (Cells (k, 1) .Value) 'Isto irá extrair a data para a segunda coluna Cells (k, 3). Valor = Células (k, 1) .Value - Células (k, 2) .Value 'Isso extrairá o tempo para a terceira coluna Next k End Sub

Execute este código, você pode obter o resultado como o abaixo (se a formatação não for aplicada).

Na coluna de data, aplique a formatação como “DD-MMM-AAAA” e para a coluna de tempo aplique o formato de data no excel como “HH: MM: SS AM / PM”