Skip to content

Instantly share code, notes, and snippets.

@inpromotion

inpromotion/ms_excel_macros_find_cyrillic_symbols

Created May 6, 2019 20:27
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save inpromotion/5a59882164e3821c0a761129ff872b6b to your computer and use it in GitHub Desktop.
Save inpromotion/5a59882164e3821c0a761129ff872b6b to your computer and use it in GitHub Desktop.
Download ZIP
Макрос поиска кириллических букв в латинском тексте в Excel. По мотивам http://moonexcel.com.ua/%D0%BF%D0%BE%D0%B8%D1%81%D0%BA-%D0%BB%D0%B0%D1%82%D0%B8%D0%BD%D1%81%D0%BA%D0%B8%D1%85-%D0%B1%D1%83%D0%BA%D0%B2-%D0%B2-%D1%82%D0%B5%D0%BA%D1%81%D1%82%D0%B5_ru
Raw
ms_excel_macros_find_cyrillic_symbols
1. Нажмите клавиши ALT + F11 , чтобы открыть редактор Visual Basic
2. Добавьте новый пустой модуль через меню Insert - Module
3. Скопируйте и вставьте в модуль код макроса.
4. Переименуйте модуль
Sub ShowCyrylic()
'moonexcel.com.ua
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment