Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте!
Сложный формат ячейки
Необходимо в ячейки F13 заменить “.” на “,” , предугадать где будет точка нельзя, также ее может и не быть. Также в данной ячейки необходимо удалить знак “`”, он всегда присутствует в конце.
Применил данный код Тест1
Код:
Range("F13").Replace ".", ",": Range("F13").Replace "`", ""
затем необходимо перенести данное числовое значение по с ссылке в ячейку D13
Код:
ActiveCell.FormulaR1C1 = "=RC[2]"
Данная ячейка отформатирована под числовое значение (число десятичных значений 1, отрицательные числа красные)
При выполнение кода, красный цвет отрицательного значения отсутствует, при проверки на число формула дает 0.
Изначально я использовал данный код Тест2
Код:
Range("D15").Formula = "=VALUE(REPLACE(IF(ISERROR(SEARCH(""."",RC[2])),RC[2],REPLACE(RC[2],SEARCH(""."",RC[2]),1,"",""))," & Chr(10) & "SEARCH(""`"",IF(ISERROR(SEARCH(""."",RC[2])),RC[2],REPLACE(RC[2],SEARCH(""."",RC[2]),1,"",""))),1,""""))"
данный код работает нормально но на 97-2003 идет сбой

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Вопрос задал: resseg (статус: Посетитель) Вопрос отправлен: 11 апреля 2010, 15:18 Состояние вопроса: открыт, ответов: 0.

Мини-форум вопроса

resseg (статус: Посетитель), 18 апреля 2010, 15:26 [#1]: resseg: Странно. Что профессионалов нет, ответить не профессионалу?

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.