Come utilizzare la funzione floor in vba (con esempi)

È possibile utilizzare il metodo Floor in VBA per arrotondare il numero in una cella al multiplo significativo più vicino.

Ecco un modo comune per utilizzare questa funzione nella pratica:

 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

Questa particolare macro arrotonderà ogni valore nell’intervallo A2:A10 al multiplo significativo più vicino specificato nell’intervallo B2:B10 e visualizzerà i risultati nell’intervallo C2:C10 .

L’esempio seguente mostra come utilizzare questa sintassi nella pratica.

Esempio: come utilizzare la funzione Floor in VBA

Supponiamo di avere una lista di valori nella colonna A e un’altra lista di multipli significativi nella colonna B a cui vorremmo arrotondare ciascun valore a:

Possiamo creare la seguente macro con il metodo Floor in VBA per arrotondare ciascun valore nella colonna A al multiplo significativo nella colonna 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 eseguiamo questa macro, riceviamo il seguente output:

La colonna C mostra il risultato dell’utilizzo del metodo Floor su ciascun valore nella colonna A.

Ad esempio, possiamo vedere:

• 12.2452 arrotondato per difetto al multiplo di 0.001 più vicino è 12.245 .
• 14,927 arrotondato per difetto al multiplo più vicino di 0,01 è 14,92 .
• -5,23 arrotondato per difetto al multiplo di 0,1 più vicino è -5,3 .

E così via.

Nota : qui è possibile trovare la documentazione completa per il metodo VBA Floor .

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:

Come arrotondare i valori in VBA
Come arrotondare i valori in VBA
Come arrotondare i valori a 2 cifre decimali in VBA