Здравствуйте, есть таблица, в которой выгружены названия построчно. В названиях встречаются и русские и английские буквы. Необходимо закрасить цветом русские буквы (ну или английские). Есть набросок кода, но он закрашивает только ячейку. А как сделать чтоб он закрашивал в столбце в определенном диапазоне??? например 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] Кодировка в примере не правильная))) так сюда скопировалось
Здравствуйте, есть таблица, в которой выгружены названия построчно. В названиях встречаются и русские и английские буквы. Необходимо закрасить цветом русские буквы (ну или английские). Есть набросок кода, но он закрашивает только ячейку. А как сделать чтоб он закрашивал в столбце в определенном диапазоне??? например 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
Сообщение отредактировал Sokol345 - Четверг, 13.02.2020, 13:03
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
