Vba: как округлить значения до двух знаков после запятой

Вы можете использовать следующие методы для округления значений до 2 десятичных знаков с помощью VBA:

Способ 1. Округлите значение до двух десятичных знаков.

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

В этом конкретном примере значение в ячейке A2 округляется до двух десятичных знаков и отображается округленное значение в ячейке B2 .

Способ 2. Округлите все значения в диапазоне до 2 знаков после запятой.

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

В этом конкретном примере каждое значение в диапазоне A2:A9 округляется до двух десятичных знаков и отображается округленные значения в диапазоне B2:B9 .

Следующие примеры показывают, как использовать каждый метод на практике.

Пример 1. Округление значения до двух знаков после запятой.

Мы можем создать следующий макрос, чтобы округлить значение в ячейке A2 до двух десятичных знаков и отобразить результат в ячейке B2 :

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

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

Обратите внимание, что значение 15,248 в ячейке A2 было округлено до двух десятичных знаков (15,25) в ячейке B2 .

Пример 2. Округлите все значения в диапазоне до 2 знаков после запятой.

Мы можем создать следующий макрос для округления каждого значения в диапазоне A2:A9 до двух десятичных знаков и отображения округленных значений в диапазоне B2:B9 :

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

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

Обратите внимание, что каждое значение в диапазоне A2:A9 округлено до двух десятичных знаков, а округленные значения отображаются в диапазоне B2:B9 .

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

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

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

Как округлить значения в VBA
Как округлить значения в VBA