Как округлить конкретное значение диапазона с помощью макроса Excel

Мне нужно округлить значение диапазона («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

Использовать функцию округления? Нравится ActiveCell.FormulaR1C1 = "=ROUND(RC[-3]/RC[-4]*100,2)"

— 18.12.2018 08:12

Нет слов, чтобы оценить вашу помощь. Спасибо!

— 18.12.2018 09:22

excel vba excel-formula rounding

18.12.2018 07:11

Преобразование HTML-таблицы в профессиональный документ Excel

Это самый простой способ создания Excel из HTML-таблицы.

Импорт excel в laravel в базу данных

Здравствуйте, дорогой читатель, в этой статье я расскажу практическим и быстрым способом, как импортировать файл Excel в вашу базу данных с помощью...

484

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

@Nilusha M. В вашей формуле отсутствует знак "=" перед "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

Все сработало, как я и ожидал. Спасибо за помощь.

— 18.12.2018 10:00

@NilushaM. Рад слышать, что мой ответ полезен. Чтобы помочь большему количеству людей с той же проблемой, пожалуйста, аннулируйте ответ как решение.

— 18.12.2018 10:05

18.12.2018 08:22