Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Невидимый символ и его отображение в VBA, Создание макроса замены невидимого символа на любой другой
 
#1
12.11.2017 15:07:34
Добрый день, подскажите пожалуйста, как мне сделать макрос замены этого символа "ᅠ" (содержится меж кавычек) содержащегося в ячейке excel?

Представим есть текст в ячейке "Детальᅠ" (на конце у него невидимый символ), его нужно убрать. Через макрос записывал и вставял этот символ, в VBA он прописывается как "?".

Может в самом макросе нужно прописать код символа? Буду очень признателен, если поможете.

ПС: Если использовать вручную (заменить) все спокойно меняется, но макросом не вхыодит
 
 
 
#2
12.11.2017 15:16:43
Код
Sub tt()
    Dim s$
    s = Selection
    Selection.Offset(1) = Replace(s, ChrW(AscW(Right(s, 1))), "")
End Sub

Это если делать через код символа (его код 4448).
А так - просто тупой заменой:
Код
Sub tt2()
    Dim s$
    s = Selection
    Selection.Offset(, 1) = Replace(s, Right(s, 1), "")
End Sub
Изменено: Hugo - 12.11.2017 15:20:25
 
 
 
#3
12.11.2017 15:21:19

del
пост мимо кассы

Изменено: Ігор Гончаренко - 12.11.2017 15:36:54
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#4
12.11.2017 15:22:40
Цитата
Hugo написал:
Это если делать через код символа (его код 4448).
А как сделать, чтобы, например, весь столбец содержащий на конце "этот символ" автоматически весь заменялся?
Изменено: Nesquilol - 12.11.2017 15:40:11
 
 
 
#5
12.11.2017 15:48:35
Код
Sub tt3()
    Columns(1).Replace what:=ChrW(4448), Replacement:="", _
                       LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
End Sub

Банально. Но расчёт на то что этот символ только в конце. Или в начале...
Изменено: Hugo - 12.11.2017 15:49:38
 
 
 
#6
12.11.2017 15:49:43
Скопируйте в буфер этот символ.
Далее: Выделить столбец, Заменить - этот символ, Заменить на - ничего не указывать.
 
 
 
#7
12.11.2017 15:51:05
Огромнейшее спасибо! Теперь работает как надо)
 
 
 
#8
12.11.2017 15:54:03
Цитата
Мотя написал:
Скопируйте в буфер этот символ.
Далее: Выделить столбец, Заменить - этот символ, Заменить на - ничего не указывать.
Способ от Hugo, гораздо удобнее :) Ну и вам тоже спасибо
 
 
 
#9
12.11.2017 15:54:31
Цитата
Nesquilol написал:
Если использовать вручную (заменить) все спокойно меняется, но макросом не вхыодит
- я ориентировался на это.
 
 
 
#10
12.11.2017 15:54:58
Цитата
Hugo написал:
Банально. Но расчёт на то что этот символ только в конце. Или в начале...
Суть как раз в этом и есть, что у меня этот символ только в конце.
 
 
 
#11
12.11.2017 15:59:33
Цитата
Nesquilol написал:
Ну и вам тоже спасибо
Да, уж и не обязательно!  :D
Цитата
Nesquilol написал:
этот символ только в конце.
Сегодня в конце, а завтра может оказаться, где угодно!
"Шаловливые" ручки пользователей, присылающих отчетные файлы, и не такое умеют!
 
 
 
Страницы: 1
Читают тему
Наверх