Як використовувати функцію floor у 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