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

Вход

Регистрация

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

 

= Мир MS Excel/Закрасить все русские буквы цветом - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закрасить все русские буквы цветом (Макросы/Sub)
Закрасить все русские буквы цветом
Sokol345 Дата: Четверг, 13.02.2020, 12:58 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте, есть таблица, в которой выгружены названия построчно. В названиях встречаются и русские и английские буквы. Необходимо закрасить цветом русские буквы (ну или английские). Есть набросок кода, но он закрашивает только ячейку. А как сделать чтоб он закрашивал в столбце в определенном диапазоне??? например D2:D5000
[vba]
Код

Sub tt()
Dim S As String
Dim i As Long
With Range("D3")
For i = 1 To Len(.Value)
S = Mid(.Value, i, 1)
Select Case S
Case "¸": .Characters(i, 1).Font.Color = vbGreen
Case "é": .Characters(i, 1).Font.Color = vbGreen
Case "ö": .Characters(i, 1).Font.Color = vbGreen
Case "ó": .Characters(i, 1).Font.Color = vbGreen
Case "ê": .Characters(i, 1).Font.Color = vbGreen
Case "å": .Characters(i, 1).Font.Color = vbGreen
Case "í": .Characters(i, 1).Font.Color = vbGreen
Case "ã": .Characters(i, 1).Font.Color = vbGreen
Case "ø": .Characters(i, 1).Font.Color = vbGreen
Case "ù": .Characters(i, 1).Font.Color = vbGreen
Case "ç": .Characters(i, 1).Font.Color = vbGreen
Case "õ": .Characters(i, 1).Font.Color = vbGreen
Case "ú": .Characters(i, 1).Font.Color = vbGreen
Case "ô": .Characters(i, 1).Font.Color = vbGreen
Case "û": .Characters(i, 1).Font.Color = vbGreen
Case "â": .Characters(i, 1).Font.Color = vbGreen
Case "à": .Characters(i, 1).Font.Color = vbGreen
Case "ï": .Characters(i, 1).Font.Color = vbGreen
Case "ð": .Characters(i, 1).Font.Color = vbGreen
Case "î": .Characters(i, 1).Font.Color = vbGreen
Case "ë": .Characters(i, 1).Font.Color = vbGreen
Case "ä": .Characters(i, 1).Font.Color = vbGreen
Case "æ": .Characters(i, 1).Font.Color = vbGreen
Case "ý": .Characters(i, 1).Font.Color = vbGreen
Case "ÿ": .Characters(i, 1).Font.Color = vbGreen
Case "÷": .Characters(i, 1).Font.Color = vbGreen
Case "ñ": .Characters(i, 1).Font.Color = vbGreen
Case "ì": .Characters(i, 1).Font.Color = vbGreen
Case "è": .Characters(i, 1).Font.Color = vbGreen
Case "ò": .Characters(i, 1).Font.Color = vbGreen
Case "ü": .Characters(i, 1).Font.Color = vbGreen
Case "á": .Characters(i, 1).Font.Color = vbGreen
Case "þ": .Characters(i, 1).Font.Color = vbGreen
Case "¨": .Characters(i, 1).Font.Color = vbGreen
Case "É": .Characters(i, 1).Font.Color = vbGreen
Case "Ö": .Characters(i, 1).Font.Color = vbGreen
Case "Ó": .Characters(i, 1).Font.Color = vbGreen
Case "Ê": .Characters(i, 1).Font.Color = vbGreen
Case "Å": .Characters(i, 1).Font.Color = vbGreen
Case "Í": .Characters(i, 1).Font.Color = vbGreen
Case "Ã": .Characters(i, 1).Font.Color = vbGreen
Case "Ø": .Characters(i, 1).Font.Color = vbGreen
Case "Ù": .Characters(i, 1).Font.Color = vbGreen
Case "Ç": .Characters(i, 1).Font.Color = vbGreen
Case "Õ": .Characters(i, 1).Font.Color = vbGreen
Case "Ú": .Characters(i, 1).Font.Color = vbGreen
Case "Ô": .Characters(i, 1).Font.Color = vbGreen
Case "Û": .Characters(i, 1).Font.Color = vbGreen
Case "Â": .Characters(i, 1).Font.Color = vbGreen
Case "À": .Characters(i, 1).Font.Color = vbGreen
Case "Ï": .Characters(i, 1).Font.Color = vbGreen
Case "Ð": .Characters(i, 1).Font.Color = vbGreen
Case "Î": .Characters(i, 1).Font.Color = vbGreen
Case "Ë": .Characters(i, 1).Font.Color = vbGreen
Case "Ä": .Characters(i, 1).Font.Color = vbGreen
Case "Æ": .Characters(i, 1).Font.Color = vbGreen
Case "Ý": .Characters(i, 1).Font.Color = vbGreen
Case "ß": .Characters(i, 1).Font.Color = vbGreen
Case "×": .Characters(i, 1).Font.Color = vbGreen
Case "Ñ": .Characters(i, 1).Font.Color = vbGreen
Case "Ì": .Characters(i, 1).Font.Color = vbGreen
Case "È": .Characters(i, 1).Font.Color = vbGreen
Case "Ò": .Characters(i, 1).Font.Color = vbGreen
Case "Ü": .Characters(i, 1).Font.Color = vbGreen
Case "Á": .Characters(i, 1).Font.Color = vbGreen
Case "Þ": .Characters(i, 1).Font.Color = vbGreen
End Select
Next
End With

End Sub
[/vba]
Кодировка в примере не правильная))) так сюда скопировалось


Сообщение отредактировал Sokol345 - Четверг, 13.02.2020, 13:03
 
Ответить
СообщениеЗдравствуйте, есть таблица, в которой выгружены названия построчно. В названиях встречаются и русские и английские буквы. Необходимо закрасить цветом русские буквы (ну или английские). Есть набросок кода, но он закрашивает только ячейку. А как сделать чтоб он закрашивал в столбце в определенном диапазоне??? например D2:D5000
[vba]
Код

Sub tt()
Dim S As String
Dim i As Long
With Range("D3")
For i = 1 To Len(.Value)
S = Mid(.Value, i, 1)
Select Case S
Case "¸": .Characters(i, 1).Font.Color = vbGreen
Case "é": .Characters(i, 1).Font.Color = vbGreen
Case "ö": .Characters(i, 1).Font.Color = vbGreen
Case "ó": .Characters(i, 1).Font.Color = vbGreen
Case "ê": .Characters(i, 1).Font.Color = vbGreen
Case "å": .Characters(i, 1).Font.Color = vbGreen
Case "í": .Characters(i, 1).Font.Color = vbGreen
Case "ã": .Characters(i, 1).Font.Color = vbGreen
Case "ø": .Characters(i, 1).Font.Color = vbGreen
Case "ù": .Characters(i, 1).Font.Color = vbGreen
Case "ç": .Characters(i, 1).Font.Color = vbGreen
Case "õ": .Characters(i, 1).Font.Color = vbGreen
Case "ú": .Characters(i, 1).Font.Color = vbGreen
Case "ô": .Characters(i, 1).Font.Color = vbGreen
Case "û": .Characters(i, 1).Font.Color = vbGreen
Case "â": .Characters(i, 1).Font.Color = vbGreen
Case "à": .Characters(i, 1).Font.Color = vbGreen
Case "ï": .Characters(i, 1).Font.Color = vbGreen
Case "ð": .Characters(i, 1).Font.Color = vbGreen
Case "î": .Characters(i, 1).Font.Color = vbGreen
Case "ë": .Characters(i, 1).Font.Color = vbGreen
Case "ä": .Characters(i, 1).Font.Color = vbGreen
Case "æ": .Characters(i, 1).Font.Color = vbGreen
Case "ý": .Characters(i, 1).Font.Color = vbGreen
Case "ÿ": .Characters(i, 1).Font.Color = vbGreen
Case "÷": .Characters(i, 1).Font.Color = vbGreen
Case "ñ": .Characters(i, 1).Font.Color = vbGreen
Case "ì": .Characters(i, 1).Font.Color = vbGreen
Case "è": .Characters(i, 1).Font.Color = vbGreen
Case "ò": .Characters(i, 1).Font.Color = vbGreen
Case "ü": .Characters(i, 1).Font.Color = vbGreen
Case "á": .Characters(i, 1).Font.Color = vbGreen
Case "þ": .Characters(i, 1).Font.Color = vbGreen
Case "¨": .Characters(i, 1).Font.Color = vbGreen
Case "É": .Characters(i, 1).Font.Color = vbGreen
Case "Ö": .Characters(i, 1).Font.Color = vbGreen
Case "Ó": .Characters(i, 1).Font.Color = vbGreen
Case "Ê": .Characters(i, 1).Font.Color = vbGreen
Case "Å": .Characters(i, 1).Font.Color = vbGreen
Case "Í": .Characters(i, 1).Font.Color = vbGreen
Case "Ã": .Characters(i, 1).Font.Color = vbGreen
Case "Ø": .Characters(i, 1).Font.Color = vbGreen
Case "Ù": .Characters(i, 1).Font.Color = vbGreen
Case "Ç": .Characters(i, 1).Font.Color = vbGreen
Case "Õ": .Characters(i, 1).Font.Color = vbGreen
Case "Ú": .Characters(i, 1).Font.Color = vbGreen
Case "Ô": .Characters(i, 1).Font.Color = vbGreen
Case "Û": .Characters(i, 1).Font.Color = vbGreen
Case "Â": .Characters(i, 1).Font.Color = vbGreen
Case "À": .Characters(i, 1).Font.Color = vbGreen
Case "Ï": .Characters(i, 1).Font.Color = vbGreen
Case "Ð": .Characters(i, 1).Font.Color = vbGreen
Case "Î": .Characters(i, 1).Font.Color = vbGreen
Case "Ë": .Characters(i, 1).Font.Color = vbGreen
Case "Ä": .Characters(i, 1).Font.Color = vbGreen
Case "Æ": .Characters(i, 1).Font.Color = vbGreen
Case "Ý": .Characters(i, 1).Font.Color = vbGreen
Case "ß": .Characters(i, 1).Font.Color = vbGreen
Case "×": .Characters(i, 1).Font.Color = vbGreen
Case "Ñ": .Characters(i, 1).Font.Color = vbGreen
Case "Ì": .Characters(i, 1).Font.Color = vbGreen
Case "È": .Characters(i, 1).Font.Color = vbGreen
Case "Ò": .Characters(i, 1).Font.Color = vbGreen
Case "Ü": .Characters(i, 1).Font.Color = vbGreen
Case "Á": .Characters(i, 1).Font.Color = vbGreen
Case "Þ": .Characters(i, 1).Font.Color = vbGreen
End Select
Next
End With

End Sub
[/vba]
Кодировка в примере не правильная))) так сюда скопировалось

Автор - Sokol345
Дата добавления - 13.02.2020 в 12:58
Kuzmich Дата: Четверг, 13.02.2020, 13:05 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 464
Репутация: 95 ±
Замечаний: 0% ±

Excel 2003
 
Ответить
Сообщениеhttp://www.excelworld.ru/forum/3-236-1

Автор - Kuzmich
Дата добавления - 13.02.2020 в 13:05
Sokol345 Дата: Четверг, 13.02.2020, 13:17 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Kuzmich, Спасибо!!! можно удалить тему наверное
 
Ответить
СообщениеKuzmich, Спасибо!!! можно удалить тему наверное

Автор - Sokol345
Дата добавления - 13.02.2020 в 13:17
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закрасить все русские буквы цветом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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