ПРОБЛЕМА с заменой символов в ячейке с помощью кода VBA - Microsoft Office Excel

Maxx · 11.11.2008, 11:19

Пример:
По ходу выполнения кода у меня получаются рассченые значения и записываются в ячейки А1 и А2 в числовом формате.

Допустим: А1=25,3645569 А2=43,28925648
Как полученные в ячейках значения преобразовать в текстовый формат и заменить "," на "."

Проблема в том, что записанный макрорекодером код:
Range("A1:A2").Select
Selection.NumberFormat = "@"
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
НЕ РАБОТАЕТ.
Что делать???

И еще один вопрос: как в полученных ячейках оставить после точки только 4 знака?

Заранее благодарен!!!

SAS888 · 11.11.2008, 14:30

Пусть в ячейке "A1" Ваше число и формат ячейки "общий".
Следующий код сделает то, что Вам нужно.

Код:

[A1].NumberFormat = "@"
    [A1] = Application.Substitute([A1], ",", ".", 1)

Maxx · 11.11.2008, 15:07

Просто гениально! Спасибо огромнейшее!

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

IgorGO · 11.11.2008, 15:45

round(123.456789, 4) = 123.4568 - округлено до 4-го знака.

Maxx · 11.11.2008, 16:02

Если round - это код VBA, то как его приписать в коде к конкретной ячейке???

Maxx · 11.11.2008, 16:42

Я молодец, сам нашел ответ:

Range("A1").Value = Round(Range("A1").Value, 4)

11.11.2008, 11:19	#1
Maxx Форумчанин Регистрация: 29.10.2008 Сообщений: 294	ПРОБЛЕМА с заменой символов в ячейке с помощью кода VBA Пример: По ходу выполнения кода у меня получаются рассченые значения и записываются в ячейки А1 и А2 в числовом формате. Допустим: А1=25,3645569 А2=43,28925648 Как полученные в ячейках значения преобразовать в текстовый формат и заменить "," на "." Проблема в том, что записанный макрорекодером код: Range("A1:A2").Select Selection.NumberFormat = "@" Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False НЕ РАБОТАЕТ. Что делать??? И еще один вопрос: как в полученных ячейках оставить после точки только 4 знака? Заранее благодарен!!! Последний раз редактировалось Maxx; 11.11.2008 в 13:49. Причина: Исправление вопроса

11.11.2008, 14:30	#2
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Пусть в ячейке "A1" Ваше число и формат ячейки "общий". Следующий код сделает то, что Вам нужно. Код: `[A1].NumberFormat = "@" [A1] = Application.Substitute([A1], ",", ".", 1)` Чем шире угол зрения, тем он тупее.

11.11.2008, 15:45	#4
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	round(123.456789, 4) = 123.4568 - округлено до 4-го знака. Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Поиск и замена групп символов данными из edit в memo	treefantom	Общие вопросы Delphi	5	26.10.2008 17:26
Замена HTML-кода c javascript'om	avalon8	Работа с сетью в Delphi	0	31.07.2008 16:12
Замена символов из таблицы	sadpoet	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	0	02.03.2008 15:33
Замена символов	PAVEL315	Общие вопросы Delphi	1	03.02.2007 21:56

11.11.2008, 15:07	#3
Maxx Форумчанин Регистрация: 29.10.2008 Сообщений: 294	Просто гениально! Спасибо огромнейшее! А на второй вопрос можете дать ответ: как после замены запятой на точку, оставить после точки всего 4 знака????

11.11.2008, 16:02	#5
Maxx Форумчанин Регистрация: 29.10.2008 Сообщений: 294	Если round - это код VBA, то как его приписать в коде к конкретной ячейке???

11.11.2008, 16:42	#6
Maxx Форумчанин Регистрация: 29.10.2008 Сообщений: 294	Я молодец, сам нашел ответ: Range("A1").Value = Round(Range("A1").Value, 4)