Как найти латиницу и кириллицу в таблице

Как найти латиницу и кириллицу в таблице

Поступил очень интересный вопрос от одного из зрителей - как в таблицах 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 - это красный цвет). Для того, чтобы вставить кнопки (как в примере) нужно на вкладке "Разработчик" нажать кнопку "Вставить" и выбрать значение "Кнопка", а потом назначить кнопкам нужный макрос (щелчок правой кнопкой мышки по кнопке и выбор "Назначить макрос").

 

Если что-то непонятно - смотрим видео!

 

Post Author: Иван

Добавить комментарий