МАКРОС_ДОБАВЛЕНИЕ В ЧИСЛАХ НУЛЕЙ, ПОСЛЕ ЗАПЯТОЙ

[Окоча Юра]

ВСЕМ ДОБРОЙ НОЧИ! ВОПРОСИК: У МЕНЯ ЕСТЬ ТАБЛИЦА В ВОРДЕ С РЯДОМ ЧИСЕЛ, НАПРИМЕР С ЧИСЛАМИ: 2,3,4,5,6,7 И Т.Д. (ЦЕЛЫЕ), А ЕСТЬ ТАКИЕ ЧИСЛА 2,36; 4,75 (С ЗАПЯТОЙ); НА ОДНОМ ЛИСТЕ НЕСКОЛЬКО ТАБЛИЦ. МОЖНО ЛИ К ЦЕЛЫМ ЧИСЛАМ АВТОМАТИЧЕСКИ ДОБАВИТЬ ",00" (ЗАПЯТУЮ С ДВУМЯ НУЛЯМИ)?! И МОЖНО ЛИ ВСЕ ЭТО СДЕЛАТЬ В ЗАРАНЕЕ ВЫДЕЛЕНОМ ФРАГМЕНТЕ ТЕКСТА.

[Sasha_Smirnov]

Можно. Составить цикл по всем ячейкам, используя

Sub Макрос2()
ActiveDocument.Tables.Item(1).Cell(1, 1).Select
'здесь ячейка (1, 1) 1-й таблицы активного документа - выделена'
x = Selection.Calculate
Selection.TypeText FormatNumber(x, 2)
End Sub

Но, боюсь, он вообще все цифры после запятой обнулит! Тогда используйте точку.

[Sasha_Smirnov]

Точнее

x = val(Selection.Text)

Только пока не скажу, срабатывает ли запятая или точка (в дробях). У кого как.

[Sasha_Smirnov]

Как с запятой, так и с точкой сработает следующий

Sub Макросс()
If ActiveDocument.Tables.Count = 0 Then Exit Sub

With ActiveDocument.Tables.Item(1)

For Strochka = 1 To .Rows.Count
        For Kolonka = 1 To .Columns.Count
            .Cell(Strochka, Kolonka).Select
            x = Val(Replace(Selection.Text, ",", "."))
            Selection.TypeText FormatNumber(x, 2)
        Next Kolonka
Next Strochka

End With

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

И тоже "спецэффект": кроме чисел (если были), в ячейках всё сотрётся. А в пустых будет 0,00 (или 0.00).

Юра, Вы б сообщили свои СООБРАЖЕНИЯ на эту тему, что ли.

[Окоча Юра]

Извини, что не ответил! Макрос не совсем тот, допусти у меня в таблице текст, можно ли чтобы текст не трогало, а токо в числах добавляло нули. Помоги, если будет время, мне с темой в екселе "сумма и копилка". Заранее благодарен.