Jak korzystać z funkcji podłogi w vba (z przykładami)

Aby zaokrąglić liczbę w komórce do najbliższej znaczącej wielokrotności, można użyć metody Floor w języku VBA.

Oto typowy sposób wykorzystania tej funkcji w praktyce:

 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

To konkretne makro zaokrągli każdą wartość z zakresu A2:A10 do najbliższej znaczącej wielokrotności określonej w zakresie B2:B10 i wyświetli wyniki w zakresie C2:C10 .

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Jak używać funkcji Floor w VBA

Załóżmy, że mamy listę wartości w kolumnie A i kolejną listę znaczących wielokrotności w kolumnie B, do których chcielibyśmy zaokrąglić każdą wartość do:

Możemy utworzyć następujące makro za pomocą metody Floor w VBA, aby zaokrąglić każdą wartość w kolumnie A do znaczącej wielokrotności w kolumnie 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

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Kolumna C pokazuje wynik użycia metody Floor dla każdej wartości w kolumnie A.

Na przykład możemy zobaczyć:

• 12,2452 zaokrąglone w dół do najbliższej wielokrotności 0,001 wynosi 12,245 .
• 14,927 zaokrąglone w dół do najbliższej wielokrotności 0,01 wynosi 14,92 .
• -5,23 zaokrąglone w dół do najbliższej wielokrotności 0,1 wynosi -5,3 .

I tak dalej.

Uwaga : Pełną dokumentację metody VBA Floor można znaleźć tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

Jak zaokrąglać wartości w VBA
Jak zaokrąglać wartości w VBA
Jak zaokrąglić wartości do 2 miejsc po przecinku w VBA