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 baixo 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 arredondará o número para 69, que é diferente de zero.
Como usar a função VBA INT?
Exemplo 1
Agora, veja 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.
Portanto, o resultado é 84 e é 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.
Por exemplo, observe 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_Example2 () 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). Value = Cells (k, 1) .Value - Cells (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 hora, aplique o formato de data em excel como “HH: MM: SS AM / PM”
