Страница 1 из 1
В таблице Word округлить числа до двух знаков
Добавлено: 21 сен 2007, 14:39
lebmax
Подскажите пожалуйства как в Word при помощи макроса во всей таблице округлить числа до двух знаков после запятой, или хотябы стереть последний знак
Re: В таблице Word округлить числа до двух знаков
Добавлено: 22 сен 2007, 02:00
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
Re: В таблице Word округлить числа до двух знаков
Добавлено: 22 сен 2007, 22:02
lebmax
Большое спасибо, то что надо, я давно о б этом мечтал
Re: В таблице Word округлить числа до двух знаков
Добавлено: 01 дек 2008, 16:44
lebmax
надо чтобы количество знаков после запятной было два, а код делает-если ноль округляет дальше
Re: В таблице Word округлить числа до двух знаков
Добавлено: 01 дек 2008, 16:52
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
Re: В таблице Word округлить числа до двух знаков
Добавлено: 22 дек 2008, 22:59
lebmax
Спасибо большое
Re: В таблице Word округлить числа до двух знаков
Добавлено: 04 янв 2009, 08:44
AlexEL
В пакете "Методичка" есть такой макрос. Скачать можно тут
http://alex-mail.at.tut.by/