Поступил очень интересный вопрос от одного из зрителей — как в таблицах Excel искать латинские и кириллические символы?
Ответ прост — мы напишем небольшой макрос (на самом деле можно было бы обойтись и формулой, но её размер вряд ли был бы меньше текста самого макроса).
Открываем вкладку «Разработчик», затем вставляем модуль (Insert->Module), в него добавляем следующий текст:
Sub Показать_латиницу()
‘показать латиницу
Dim c As Range, i As Long
For Each c In Selection
For i = 1 To Len(c)
If Mid$(c, i, 1) Like «[A-Za-z]» Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 4
Next i, c
End Sub
В данном макросе нужно знать следующее — «с» (это символ), «i» -это количество символов в строке (диапазоне), «For Each c In Selection» — для каждого символа в выделении (обратите своё внимание в выделенном диапазоне!), «If Mid$(c, i, 1) Like «[A-Za-z]» Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 4″ — это условие при котором любой символ с A-Z и a-z будет подсвечен зелёным цветом, «Next i, c» — следующие символы в диапазоне.
Снова вставляем модуль и размещаем текст макроса для него.
Sub Показать_кириллица()
‘показать кириллицу
Dim c As Range, i As Long
For Each c In Selection
For i = 1 To Len(c)
If Mid$(c, i, 1) Like «[А-Яа-я]» Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 3
Next i, c
End Sub
Всё то же самое за исключением букв и цвета (3 — это красный цвет). Для того, чтобы вставить кнопки (как в примере) нужно на вкладке «Разработчик» нажать кнопку «Вставить» и выбрать значение «Кнопка», а потом назначить кнопкам нужный макрос (щелчок правой кнопкой мышки по кнопке и выбор «Назначить макрос»).
Если что-то непонятно — смотрим видео!
