Replace

Программирование на Visual Basic for Applications
jojo
Начинающий
Начинающий
 
Сообщения: 19
Зарегистрирован: 19.07.2004 (Пн) 11:18

Replace

Сообщение jojo » 25.01.2005 (Вт) 10:52

Привет всем !

Есть формула
("З"18+"З"19+"З"23+"З"24)*(2.9.4./2.9.5.)

нужно заменить все "З" на букву З русскую

ac_c1new = Replace(list1.Cells(i, 7).Value, " "З" " , "З") - так ругается
как исхитрится ?

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 25.01.2005 (Вт) 10:54

На что ругается? Попробуй написать .Cells().Text или .Formula.
Lasciate ogni speranza, voi ch'entrate.

jojo
Начинающий
Начинающий
 
Сообщения: 19
Зарегистрирован: 19.07.2004 (Пн) 11:18

Сообщение jojo » 25.01.2005 (Вт) 10:59

alibek писал(а):На что ругается? Попробуй написать .Cells().Text или .Formula.


ac_c1new = Replace(list1.Cells(i, 7).Value, " "З" " , "З") - так ругается

Sintax error

uhm
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1597
Зарегистрирован: 02.12.2004 (Чт) 15:21

Сообщение uhm » 25.01.2005 (Вт) 11:02

Все проще: тут кавычки внутри кавычек. В таком случае, их надо удваивать. Т. е. должно быть так:

Код: Выделить всё
ac_c1new = Replace(list1.Cells(i, 7).Value, """З""" , "З")

jojo
Начинающий
Начинающий
 
Сообщения: 19
Зарегистрирован: 19.07.2004 (Пн) 11:18

Сообщение jojo » 25.01.2005 (Вт) 11:05

uhm писал(а):Все проще: тут кавычки внутри кавычек. В таком случае, их надо удваивать. Т. е. должно быть так:

Код: Выделить всё
ac_c1new = Replace(list1.Cells(i, 7).Value, """З""" , "З")


спасибо покатило :) думал же прибавить ...в delphi также
Кстати рульный форум так быстро мне даже на sql.ru не ответили !!!!

СПАСИБО


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 12

    TopList