Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Почему replace не меняет "пробел и любое количество любых символов" на "ничто"?
 
#1
15.07.2015 11:22:27
Уважаемые форумчане, добрый день.
Голову сломал, почему этот код не меняет "пробел и любое количество любых символов" на "ничто"
Код
Sub test()
ActiveCell = Replace(ActiveCell, " *", "")
End Sub
И как сделать что б менял?
Спасибо.
 
 
 
#2
15.07.2015 11:30:43
Код
ActiveCell.Replace What:=" *", Replacement:=""

Можно через метод Replace
Функция, по-моему, работает с текстами и не использует символы подстановки.
Кому решение нужно - тот пример и рисует.
 
 
 
#3
15.07.2015 12:04:47
Пытливый, спасибо.
 
 
 
#4
08.02.2020 20:32:48
Пытливый, а подскажите пожалуйста, как сделать так, чтобы текст, на который необходимо заменить содержал кавычки (заменить + на "+")
 
 
 
#5
08.02.2020 20:38:21
Код
txt = Replace(txt, "+", Chr(38) & "+" & Chr(38))
 
 
 
#6
08.02.2020 20:53:00
Radomir-m, а как будет выглядеть полный код для макроса, а то у меня по какой-то причине не читается chr
 
 
 
#7
08.02.2020 21:07:39
Кавычки это код 34, то-бишь Chr(34).
Можно кавычку в тексте заменить двойной кавычкой, например.
Replace("h+h","+","""")
результат вернёт
h"h
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
 
 
#8
08.02.2020 21:17:34
Alemox, что это такое я понимаю Chr(34), но проблема в том, что на листе по итогу вылезает вот такое:
Код
1Chr(38) &  & Chr(38)1

из:
1+1
Я не исключаю свою некомпетентность в этом вопросе, а во многом, даже, подтверждаю, собственно, поэтому я и тут
Код
Sub test() 
    ActiveCell.Replace What:="+", Replacement:="Chr(38) & " + " & Chr(38)"
End Sub
Изменено: Sakramento - 09.02.2020 01:09:11
 
 
 
#9
08.02.2020 21:29:09
Код
ActiveCell.Replace "+", Chr(38) & " + " & Chr(38)

Вы кавычки не там ставите. Chr(38) - это команда а не текст.
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
 
 
#10
08.02.2020 21:32:58
Alemox,Спасибо огромное, Вы сэкономили очень много временных ресурсов мне. ЧЕЛОВЕЧИЩЕ!
 
 
 
Страницы: 1
Наверх