Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Убрать непечатные символы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Убрать непечатные символы (Макросы/Sub)
Убрать непечатные символы
emkub Дата: Понедельник, 19.02.2018, 19:46 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте, друзья!
Нет-нет, да и появится непонятная фигня :)
В приложенном файле есть фраза: "SEEKING MENTORS in system hardening‍Ё, penetration testing‍ and red teaming‍Ё, #securitymonitoring, #digitalforensics‍ and incident response‍Ё, and #cyberanalysis."
Буквами Ё отметил те самые символы, которые эксель непечатными похоже не считает....
Подскажите пожалуйста, как их убирать?
К сообщению приложен файл: 7546848.xlsm (13.4 Kb)
 
Ответить
СообщениеЗдравствуйте, друзья!
Нет-нет, да и появится непонятная фигня :)
В приложенном файле есть фраза: "SEEKING MENTORS in system hardening‍Ё, penetration testing‍ and red teaming‍Ё, #securitymonitoring, #digitalforensics‍ and incident response‍Ё, and #cyberanalysis."
Буквами Ё отметил те самые символы, которые эксель непечатными похоже не считает....
Подскажите пожалуйста, как их убирать?
Автор - emkub
Дата добавления - 19.02.2018 в 19:46
Pelena Дата: Понедельник, 19.02.2018, 20:07 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19179
Репутация: 4419 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Символ Юникода с кодом 8205
Код
=ПОДСТАВИТЬ(A1;ЮНИСИМВ(8205);"")

Или скопировать этот символ -- Ctrl+h -- в поле Найти вставить скопированный символ -- поле Заменить оставить пустым -- Заменить все

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Символ Юникода с кодом 8205
Код
=ПОДСТАВИТЬ(A1;ЮНИСИМВ(8205);"")

Или скопировать этот символ -- Ctrl+h -- в поле Найти вставить скопированный символ -- поле Заменить оставить пустым -- Заменить все
Автор - Pelena
Дата добавления - 19.02.2018 в 20:07
emkub Дата: Понедельник, 19.02.2018, 20:13 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
у меня КОДСИМВ всё время показывал разные значения....
 
Ответить
Сообщениеу меня КОДСИМВ всё время показывал разные значения....
Автор - emkub
Дата добавления - 19.02.2018 в 20:13
Pelena Дата: Понедельник, 19.02.2018, 20:18 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19179
Репутация: 4419 ±
Замечаний: ±

Excel 365 & Mac Excel
Не КОДСИМВ, а UNICODE

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеНе КОДСИМВ, а UNICODE
Автор - Pelena
Дата добавления - 19.02.2018 в 20:18
emkub Дата: Понедельник, 19.02.2018, 20:32 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Вы ещё больше поможете, если подскажете, как прописать эту замену с юнисимв в VBA :)
Cells.Replace Chr(8205), "" - так не будет работать.
 
Ответить
СообщениеВы ещё больше поможете, если подскажете, как прописать эту замену с юнисимв в VBA :)
Cells.Replace Chr(8205), "" - так не будет работать.
Автор - emkub
Дата добавления - 19.02.2018 в 20:32
emkub Дата: Понедельник, 19.02.2018, 20:36 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
ChrW похоже тоже не срабатывает.
 
Ответить
СообщениеChrW похоже тоже не срабатывает.
Автор - emkub
Дата добавления - 19.02.2018 в 20:36
Nic70y Дата: Понедельник, 19.02.2018, 20:37 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
Я могу конечно ошибаЦся,
но моему этот Микрософт "ложил" на Юникод,
игнорируя всех и вся...

ЮMoney 41001841029809
 
Ответить
СообщениеЯ могу конечно ошибаЦся,
но моему этот Микрософт "ложил" на Юникод,
игнорируя всех и вся...
Автор - Nic70y
Дата добавления - 19.02.2018 в 20:37
Pelena Дата: Понедельник, 19.02.2018, 20:41 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 19179
Репутация: 4419 ±
Замечаний: ±

Excel 365 & Mac Excel
[vba]
Код
    For Each r In Range(Cells(1, 1), Cells(50, 5))
        r.Value = Replace(r.Value, ChrW(8205), "")
    Next r
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение[vba]
Код
    For Each r In Range(Cells(1, 1), Cells(50, 5))
        r.Value = Replace(r.Value, ChrW(8205), "")
    Next r
[/vba]
Автор - Pelena
Дата добавления - 19.02.2018 в 20:41
emkub Дата: Понедельник, 19.02.2018, 20:53 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Большое спасибо!
Век живи - век учись!
 
Ответить
СообщениеБольшое спасибо!
Век живи - век учись!
Автор - emkub
Дата добавления - 19.02.2018 в 20:53
RAN Дата: Понедельник, 19.02.2018, 20:59 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
    Range(Cells(1, 1), Cells(50, 5)).Replace What:=ChrW(8205), Replacement:="", LookAt:=xlPart
[/vba]
????????

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
    Range(Cells(1, 1), Cells(50, 5)).Replace What:=ChrW(8205), Replacement:="", LookAt:=xlPart
[/vba]
????????
Автор - RAN
Дата добавления - 19.02.2018 в 20:59
emkub Дата: Понедельник, 19.02.2018, 21:19 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
такой способ, похоже, не заменяет.
 
Ответить
Сообщениетакой способ, похоже, не заменяет.
Автор - emkub
Дата добавления - 19.02.2018 в 21:19
RAN Дата: Понедельник, 19.02.2018, 21:48 | Сообщение № 12
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Не похоже.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНе похоже.
Автор - RAN
Дата добавления - 19.02.2018 в 21:48
emkub Дата: Вторник, 20.02.2018, 14:26 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
RAN, перепроверил несколько раз, не срабатывает...
 
Ответить
СообщениеRAN, перепроверил несколько раз, не срабатывает...
Автор - emkub
Дата добавления - 20.02.2018 в 14:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Убрать непечатные символы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!