Как в ячейке точку заменить запятой?

[Bananovyy]

Как в ячейке точку заменить запятой, преобразовав тем самым слово в число?
Код записанный рекордером не работает:

Sub Макрос1()

Range("A1:A10").Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

End Sub

[Wasup!]

Как вариант

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

For Each c In Range("A1:A10")
    c.Value = Replace(c.Value, ".", ",")
Next

А вообще не точка или запятая определяют число это или текст, а региональные настройки конкретного компьютера (см. панель управления Regional and Language settings).
Быстро определить текущий разделитель:

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

? format$(0,".")

[Bananovyy]

Как вариант

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

For Each c In Range("A1:A10")
    c.Value = Replace(c.Value, ".", ",")
Next

А вообще не точка или запятая определяют число это или текст, а региональные настройки конкретного компьютера (см. панель управления Regional and Language settings).
Быстро определить текущий разделитель:

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

? format$(0,".")

Получается та же ересь,
Пример:

1.11111 > 111 111
11.1111 > 111 111
111.111 > 111 111
1111.11 > 1111,11
11111.1 > 11111,1


Первые три строчки бредово преобразуются в число = 111 111 ?!?
Две последние точно меняют зпт на тчк, но при этом формат остается текстовый
с примечанием о преобразовании в число...

Суть сей операции в следующем:
Из Oracle вытаскивается массив данных, вставляется в Excel, все данные там забиты в текстовом формате, включая циферки… и каждый раз приходится делать лишние телодвижения через меню: Правка / Заменить ТЧК на ЗПТ… Необходимо текст преобразовать в циферки для возможности дальнейших расчётов-пересчётов этих циферок!!!… Что делать Х.З.

[Денис]

Bananovyy
Панель управления -> Язык и региональные стандарты -> Настройка -> Числа -> Разделитель целой и дробной части

[Bananovyy]

Bananovyy
Панель управления -> Язык и региональные стандарты -> Настройка -> Числа -> Разделитель целой и дробной части

Там стоит запятая?!?

[Денис]

Bananovyy
Панель управления -> Язык и региональные стандарты -> Настройка -> Числа -> Разделитель целой и дробной части

Там стоит запятая?!?

Так. Начнем с самого начала: Откуда в твоих ячейках взялись числа с точками вместо запятых?

[Bananovyy]

Bananovyy
Панель управления -> Язык и региональные стандарты -> Настройка -> Числа -> Разделитель целой и дробной части

Там стоит запятая?!?

Так. Начнем с самого начала: Откуда в твоих ячейках взялись числа с точками вместо запятых?

Суть сей операции в следующем:
Из Oracle вытаскивается массив данных, вставляется в Excel, все данные там забиты в текстовом формате, включая циферки… и каждый раз приходится делать лишние телодвижения через меню: Правка / Заменить ТЧК на ЗПТ… Необходимо текст преобразовать в циферки для возможности дальнейших расчётов-пересчётов этих циферок!!!…


[alibek] :: Не стоит редактировать модераторские замечания.

[iGrok]

1) Мат, пусть даже скрытый, в конференции запрещён. Не стоит нарушать это правило.
2) По сабжу: Ну так вытаскивай из Оракла цифры! Каким-таким хитрым образом ты вытаскиваешь данные так, что у тебя там получается текст вместо цифр?

[Bananovyy]

1) Мат, пусть даже скрытый, в конференции запрещён. Не стоит нарушать это правило.
2) По сабжу: Ну так вытаскивай из Оракла цифры! Каким-таким хитрым образом ты вытаскиваешь данные так, что у тебя там получается текст вместо цифр?

Ну так нельзя))))))))))

[iGrok]

Как нельзя, чего нельзя? Из Оракла цифры вытащить вместо текста? Можно.
А чего ещё нельзя?

Приведение текста к числу выглядит, к примеру, так:

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

text="100.10"
dec_delim=format$(0,".")
value=cdbl(replace(text,".",dec_delim))


Это если разделитель изначально точка.

А то, что там бредово преобразуется.. Ну покажи наконец код которым делаешь.

[Bananovyy]

Приведение текста к числу выглядит, к примеру, так:

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

text="100.10"
dec_delim=format$(0,".")
value=cdbl(replace(text,".",dec_delim))


СУПЕР!!! ТО, ЧТО НАДО, ПАСИБОС!!!

[Viper]

Приведение текста к числу выглядит, к примеру, так:

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

text="100.10"
dec_delim=format$(0,".")
value=cdbl(replace(text,".",dec_delim))


СУПЕР!!! ТО, ЧТО НАДО, ПАСИБОС!!!

Конечно супер, особенно если учесть, что ответ был дан в первом же сообщении.

[Bananovyy]

Млин, так я же только учусь)))

[Viper]

Млин, так я же только учусь)))

Неужели читать?