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

Вход

Регистрация

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

 

= Мир MS Excel/Выделение символов по их коду - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделение символов по их коду (Макросы/Sub)
Выделение символов по их коду
Shakal07 Дата: Четверг, 17.06.2021, 14:03 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2k3;2k7;2k10;2k13;2k19
Здравствуйте, уважаемые форумчене.
Есть документ с разными данными (цифры, текст) не суть
Надо с помощью макроса выделить необходимый символ по его коду(UNICODE)
Есть такой макрос, вроде как рабочий, но не все гладко
[vba]
Код
Sub ShowChar()
' Выделить символ
    Dim c As Range, i As Long
    For Each c In Selection
      For i = 1 To Len(c)
        If Mid$(c, i, 1) Like ChrW(35) Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 5
    Next i, c
End Sub
[/vba]
Но выделить некоторые символы, такие как "#" или "*" или "?" не удается

С уважением, Shakal
 
Ответить
СообщениеЗдравствуйте, уважаемые форумчене.
Есть документ с разными данными (цифры, текст) не суть
Надо с помощью макроса выделить необходимый символ по его коду(UNICODE)
Есть такой макрос, вроде как рабочий, но не все гладко
[vba]
Код
Sub ShowChar()
' Выделить символ
    Dim c As Range, i As Long
    For Each c In Selection
      For i = 1 To Len(c)
        If Mid$(c, i, 1) Like ChrW(35) Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 5
    Next i, c
End Sub
[/vba]
Но выделить некоторые символы, такие как "#" или "*" или "?" не удается

С уважением, Shakal

Автор - Shakal07
Дата добавления - 17.06.2021 в 14:03
Pelena Дата: Четверг, 17.06.2021, 19:37 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17793
Репутация: 3958 ±
Замечаний: ±

Excel 2016 & Mac Excel
Здравствуйте.
Попробуйте так
[vba]
Код
Sub ShowChar()
' Выделить символ
    Dim c As Range, i As Long
    For Each c In Selection
    For i = 1 To Len(c)
        If Mid$(c, i, 1) = ChrW(35) Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 5
    Next i, c
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Попробуйте так
[vba]
Код
Sub ShowChar()
' Выделить символ
    Dim c As Range, i As Long
    For Each c In Selection
    For i = 1 To Len(c)
        If Mid$(c, i, 1) = ChrW(35) Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 5
    Next i, c
End Sub
[/vba]

Автор - Pelena
Дата добавления - 17.06.2021 в 19:37
Shakal07 Дата: Пятница, 18.06.2021, 10:34 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2k3;2k7;2k10;2k13;2k19
Спасибо, Все сработало

есть ли возможность сделать так чтобы
при нажатии на кнопку макроса на ленте или панели
можно было ввести код символа
сделать макрос более универсальным
 
Ответить
СообщениеСпасибо, Все сработало

есть ли возможность сделать так чтобы
при нажатии на кнопку макроса на ленте или панели
можно было ввести код символа
сделать макрос более универсальным

Автор - Shakal07
Дата добавления - 18.06.2021 в 10:34
Pelena Дата: Пятница, 18.06.2021, 10:50 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 17793
Репутация: 3958 ±
Замечаний: ±

Excel 2016 & Mac Excel
Для ввода одного кода символа (без проверки правильности) можно так
[vba]
Код
Sub ShowChar()
' Выделить символ
    Dim c As Range, i As Long, ch As Long
    ch = InputBox("введите код символа")
    For Each c In Selection
    For i = 1 To Len(c)
        If Mid$(c, i, 1) = ChrW(ch) Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 5
    Next i, c
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеДля ввода одного кода символа (без проверки правильности) можно так
[vba]
Код
Sub ShowChar()
' Выделить символ
    Dim c As Range, i As Long, ch As Long
    ch = InputBox("введите код символа")
    For Each c In Selection
    For i = 1 To Len(c)
        If Mid$(c, i, 1) = ChrW(ch) Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 5
    Next i, c
End Sub
[/vba]

Автор - Pelena
Дата добавления - 18.06.2021 в 10:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделение символов по их коду (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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