Como usar a função floor em vba (com exemplos)

Você pode usar o método Floor no VBA para arredondar o número em uma célula para o múltiplo significativo mais próximo.

Esta é uma maneira comum de usar esta função na prática:

 SubToFloor ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.Floor(Range("A" & i), Range("B" & i))
Next i

End Sub

Esta macro específica arredondará cada valor no intervalo A2:A10 para o múltiplo significativo mais próximo especificado no intervalo B2:B10 e exibirá os resultados no intervalo C2:C10 .

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: como usar a função Floor em VBA

Suponha que temos uma lista de valores na coluna A e outra lista de múltiplos significativos na coluna B para os quais gostaríamos de arredondar cada valor para:

Podemos criar a seguinte macro com o método Floor em VBA para arredondar cada valor na coluna A para o múltiplo significativo na coluna B:

 SubToFloor ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.Floor(Range("A" & i), Range("B" & i))
Next i

End Sub

Quando executamos esta macro, recebemos a seguinte saída:

A coluna C mostra o resultado do uso do método Floor em cada valor da coluna A.

Por exemplo, podemos ver:

• 12,2452 arredondado para o múltiplo mais próximo de 0,001 é 12,245 .
• 14,927 arredondado para o múltiplo mais próximo de 0,01 é 14,92 .
• -5,23 arredondado para o múltiplo mais próximo de 0,1 é -5,3 .

E assim por diante.

Nota : Você pode encontrar a documentação completa do método VBA Floor aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

Como arredondar valores em VBA
Como arredondar valores em VBA
Como arredondar valores para 2 casas decimais em VBA