VPF::Как в Excel поменять все точки на запятые

SVN

Дата 30.8.2007, 20:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 16.5.2007

Репутация: нет
Всего: нет

Народ помогите плиз. Такая ситуация. Есть Excel файл в котором очень много записей типа 0.85031678643 Как сделать что бы вместо точки стояла запятая. т.к. записей около тысячи, то вручную их править проблеатично. Может кто нибудь скриптом поможет буду очень признателен.
Заранее благодарю

Дмит

Дата 30.8.2007, 21:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 21.4.2006
Где: г.Волгоград

Репутация: 8
Всего: 9

А не подходит Правка->Заменить...->Заменить все ?

mihanik

Дата 31.8.2007, 06:39 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109

Цитата(SVN @ 30.8.2007, 20:31

)

очень много записей типа 0.85031678643

Эти записи как-то сгруппированы, или разбросаны по всем листам рабочей книги?

--------------------

Программистами не рождаются, - это родовая травма...

RussianHero

Дата 31.8.2007, 07:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 88
Регистрация: 14.8.2007
Где: г. Балашиха, МО

Репутация: нет
Всего: нет

Грубо говоря -

Код


for i = 1 to MyTable.Rows.Count
   For j=1 to MyTable.Columns.Count
      If InStr(1, myTable.Cell(i,j), ".") > 0 Then
         Pos = InStr(1, myTable.Cell(i,j), ".")
          myTable.Cell(i,j) = Mid(myTable.Cell(i,j), 1, Pos - 1) & "," & Mid(myTable.Cell(i,j), Pos + 1)
      End If
   Next J
Next i

С мелочами думаю сам резберешься *)

SVN

Дата 31.8.2007, 11:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 16.5.2007

Репутация: нет
Всего: нет

Огромное спасибо всем.

mihanik

Дата 31.8.2007, 13:01 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109

Если проблема, то пометь вопрос решённым.

--------------------

Программистами не рождаются, - это родовая травма...

Мих

Дата 17.9.2007, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 11.1.2007
Где: г. Екатеринбург

Репутация: нет
Всего: нет

а так - сервис - параметры - международные - разделитель дробной части

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »