Как использовать функцию пола в vba (с примерами)

Вы можете использовать метод Floor в VBA, чтобы округлить число в ячейке до ближайшего значимого кратного.

Вот общий способ использования этой функции на практике:

 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

Этот конкретный макрос округляет каждое значение в диапазоне A2:A10 до ближайшего значимого кратного, указанного в диапазоне B2:B10 , и отображает результаты в диапазоне C2:C10 .

В следующем примере показано, как использовать этот синтаксис на практике.

Пример: как использовать функцию Floor в VBA

Предположим, у нас есть список значений в столбце A и еще один список значимых кратных в столбце B, до которого мы хотели бы округлить каждое значение до:

Мы можем создать следующий макрос с помощью метода Floor в VBA, чтобы округлить каждое значение в столбце A до значимого кратного в столбце 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

Когда мы запускаем этот макрос, мы получаем следующий вывод:

В столбце C показан результат использования метода Floor для каждого значения в столбце A.

Например, мы можем увидеть:

• 12,2452, округленное до ближайшего числа, кратного 0,001, равно 12,245 .
• 14,927, округленное до ближайшего числа, кратного 0,01, составит 14,92 .
• -5,23, округленное до ближайшего числа, кратного 0,1, равно -5,3 .

И так далее.

Примечание . Полную документацию по методу VBA Floor можно найти здесь .

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

Как округлить значения в VBA
Как округлить значения в VBA
Как округлить значения до 2 знаков после запятой в VBA