Округление Excel VBA: несколько методов округления чисел с примерами кода

  1. Функция округления.
    Функция округления — это встроенная функция VBA, которая округляет число до указанного количества десятичных знаков.
Dim number As Double
Dim roundedNumber As Double
number = 123.456
roundedNumber = Round(number, 2) ' Rounds to 2 decimal places
MsgBox roundedNumber ' Displays 123.46

<ол старт="2">

  • Функция форматирования.
    Функция форматирования может использоваться для округления числа и форматирования его в виде строки с определенным количеством десятичных знаков.
    • Dim number As Double
Dim roundedString As String
number = 123.456
roundedString = Format(number, "0.00") ' Rounds to 2 decimal places
MsgBox roundedString ' Displays "123.46"

    <старый старт="3">

  • WorksheetFunction.Round:
    Объект WorksheetFunction в VBA предоставляет доступ к встроенным функциям Excel. Метод Round можно использовать для округления числа, как в формуле рабочего листа.
    • Dim number As Double
Dim roundedNumber As Double
number = 123.456
roundedNumber = WorksheetFunction.Round(number, 2) ' Rounds to 2 decimal places
MsgBox roundedNumber ' Displays 123.46
    1. Math.Round:
      Функция Math.Round доступна в VBA и может использоваться для округления числа. Для этого метода требуется ссылка на пространство имен «Microsoft.VisualBasic».
    Dim number As Double
Dim roundedNumber As Double
number = 123.456
roundedNumber = Math.Round(number, 2) ' Rounds to 2 decimal places
MsgBox roundedNumber ' Displays 123.46