Как округлить определенное значение диапазона с помощью макроса Excel - PullRequest
0 голосов
/ 18 декабря 2018

Мне нужно округлить значение диапазона ("M2: M13") до двух десятичных знаков. Я написал приведенный ниже код, используя опцию "NumberFormat", но , когда я копирую это значение в другую книгу, он отображает меняцелое число в строке формул и округленное число в выбранной ячейке .

Как мне полностью округлить числа до двух десятичных знаков?

    Sub RoundOff()

    Worksheets("Sheets2").Activate
    Range("M2").Select
    Selection.NumberFormat="0.00"   
    ActiveCell.FormulaR1C1="RC[-3]/RC[-4]*100"
    Range("M2:M13").Select
    Selection.FillDown
    End Sub

1 Ответ

0 голосов
/ 18 декабря 2018

@ Нилуша М. В формуле пропущен один "=" перед "RC [-3] /".

Вы можете попробовать:

Sub Test()

    With ThisWorkbook.Worksheets("Sheet2")

            .Range("M2").FormulaR1C1 = "=RC[-3]/RC[-4]*100"

        With .Range("M2:M13")
            .FillDown
            .NumberFormat = "0.00"
        End With

    End With

End Sub
...