Округление чисел: вопрос

[rzrwolf]

Имеется большой массив расчетов - все уже оформлено, но имеется проблема - нужно все расчеты округлить до 2 знаков после запятой, так чтобы не забивать в каждую ячейку команду ОКРУГЛ а как нибудь побыстрее, ибо формул на самом деле много... Как это сделать (не просто убрать лишние десятые, а чтобы расчет велся с округленными значениями?

[EducatedFool]

Попробуйте такой макрос:

Sub ОкруглениеРезультатовВычисленияФормул()
    Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange
        If Len(cell.FormulaLocal) > 2 And IsNumeric(cell) Then cell.NumberFormat = "0.00"
    Next
End Sub

А если на листе отсутствуют формулы массивов, то можно использовать и такой вариант:

Sub ОкруглениеРезультатовПриПомощиИзмененияФормул()
    Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange
        If IsNumeric(cell) Then cf = cell.FormulaLocal: If Len(cf) > 2 Then cell.FormulaLocal = "=ОКРУГЛ(" & Mid$(cf, 2) & ";2)"
    Next
End Sub

Проверку макросов лучше производить на копии листа.
Для этого после строки Application.ScreenUpdating = False
добавьте строку ActiveSheet.Copy ActiveSheet ' обрабатываем копию листа

И, если вносимые макросом изменения Вас устроят, тогда можно будет уже убрать эту строку.

Если надо обработать только выделенный диапазон ячеек, замените строку For Each cell In ActiveSheet.UsedRange
на строку For Each cell In selection


Если кто знает, подскажите, как макросом определить, какая формула введена в ячейку - формула массива или обычная формула?
Свойство FormulaArray возвращает то же самое, что и свойство Formula - для всех ячеек...

[Pavel55]

Сообщение от EducatedFool

Если кто знает, подскажите, как макросом определить, какая формула введена в ячейку - формула массива или обычная формула?
Свойство FormulaArray возвращает то же самое, что и свойство Formula - для всех ячеек...

Попробуйте свойство HasArray

Для примера

Sub Макрос1()
Dim Rng As Range
    'вводим формулу массива
    Set Rng = Range("A1")
    Rng.FormulaArray = "=SUM(B1:D1)"
    If Rng.HasArray Then
        MsgBox "Ячейка " & Rng.Address(0, 0) & " содержит формулу массива!", 64, ""
    Else
        MsgBox "Ячейка " & Rng.Address(0, 0) & " содержит обычную формулу", 64, ""
    End If

    'вводим обычную формулу
    Set Rng = Range("A2")
    Rng.Formula = "=SUM(B2:D2)"
    If Rng.HasArray Then
        MsgBox "Ячейка " & Rng.Address(0, 0) & " содержит формулу массива!", 64, ""
    Else
        MsgBox "Ячейка " & Rng.Address(0, 0) & " содержит обычную формулу", 64, ""
    End If
End Sub

[shmonin_d]

Я бы добавил еще один столбец с округлением предыдущего (формулу "растянуть") и скрыл бы ненужный.

[valerij]

Формат яч. выбран, после запятой два знака, а происходит, на скрине, почему??

[IgorGO]

формат ячейки - это способ, как показать данные, способ не влияет на сами данные в ячейке. все на картинке корректно.

[valerij]

Сообщение от IgorGO

формат ячейки - это способ, как показать данные, способ не влияет на сами данные в ячейке. все на картинке корректно.

Игорь!
А так, то же самое

Range("G147").Select
    Selection.NumberFormat = "0.00"

Вообще у меня вычисляется так

Cells(oStat * 51 + 45, 7) = Cells(oStat * 51 + 43, 10) + _
            Cells(oStat * 51 + 41, 10) + Cells(oStat * 51 - 6, 7) - _
            Cells(oStat * 51 + 45, 8)

Де может ошибка?

[IgorGO]

Де может ошибка?

Эх, Валера... основную ошибку я тебе называл довольно давно.
хочешь получить округленный результат - округли его. Я вижу в ячейку(Х,У) записывается сумма четырех ячеек без каких-либо округлений.

А в данном случае ошибка в том, что ты считаешь, что достаточно задать формат ячейке и там исправится значение до нужного тебе состояния, это придуманное тобой правило не влияет на правила, которые заложены в эксель программистами. Повторюсь: формат ячейки НЕ ВЛИЯЕТ НА СОДЕРЖИМОЕ ЯЧЕЙКИ, это влияет только на внешний вид.

[valerij]

Сообщение от IgorGO

хочешь получить округленный результат - округли его..

А как их округлить?

Сделал так, заработало:

.Cells(oStat * 51 + 45, 7) = Round(.Cells(oStat * 51 + 43, 10) + _
            .Cells(oStat * 51 + 41, 10) + .Cells(oStat * 51 - 6, 7) - _
            .Cells(oStat * 51 + 45, 8), 2)

А вообще нашел источник, после запятой 1,46666666666667, никогда не обращал внимание.....

.Cells(x.Row, 10) = .Cells(x.Row, 4) / .Cells(x.Row, 12) * 2.2

а так все ОК!

.Cells(x.Row, 10) = Round(.Cells(x.Row, 4) / .Cells(x.Row, 12) * 2.2, 2)