В таблице Word округлить числа до двух знаков

[lebmax]

Подскажите пожалуйства как в Word при помощи макроса во всей таблице округлить числа до двух знаков после запятой, или хотябы стереть последний знак

[Genyaa]

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

Код: Выделить всё

Sub nnn()
    Dim cc As Cell
    For Each cc In Selection.Range.Cells
        cc.Range.Text = Round(Val(cc.Range.Text), 2)
    Next cc
End Sub

[lebmax]

Большое спасибо, то что надо, я давно о б этом мечтал

[lebmax]

надо чтобы количество знаков после запятной было два, а код делает-если ноль округляет дальше

[EducatedFool]

Чтобы всегда присутствовали 2 знака после запятой, используйте такой вариант:

Код: Выделить всё

Sub nnn2()
    For Each cc In Selection.Range.Cells
        v = Val(Replace(cc.Range.Text, ",", "."))
        cc.Range.Text = FormatNumber(Round(v, 2), 2)
    Next cc
End Sub

Или, если просто надо округлить, то такой:

Код: Выделить всё

Sub nnn()
    Dim cc As Cell
    For Each cc In Selection.Range.Cells
        v = Val(Replace(cc.Range.Text, ",", "."))
        cc.Range.Text = Round(v, 2)
    Next cc
End Sub

[lebmax]

Спасибо большое

[AlexEL]

В пакете "Методичка" есть такой макрос. Скачать можно тут http://alex-mail.at.tut.by/