Căutați litere latine în text chirilic și invers

Descriere

Este adesea necesar să întâlniți litere latine (engleze) într-un text scris în chirilic (ucraineană sau rusă). Acest lucru se întâmplă adesea în timpul analizei și prelucrării informațiilor text din bazele de date, unde, la rândul lor, textul a fost introdus de către operatori care nu au avut timp să treacă la un nou aspect de tastatură.

Deci avem nevoie de un mecanism cum găsiți alfabetul chirilic în alfabetul latin sau, invers, găsiți latină în chirilic . Excel nu are instrumente standard pentru astfel de scopuri. Mai jos veți găsi o macrocomandă gata făcută VBA , care efectuează caută litere latine în text , scris în chirilic și invers.

Trebuie să adăugați codul VBA la registrul de lucru înainte de a utiliza această macrocomandă. Pentru aceasta:

1. Apăsați ALT + F11 pentru a deschide editorul Visual Basic;
2. Adăugați un nou modul gol prin meniu Insert - Module;
3. Copiați și lipiți codul macro în modul;
4. Salvați fișierul și reveniți la Excel.

Acum puteți selecta o serie de celule, puteți rula o macrocomandă și, astfel, puteți verifica textul pentru caractere străine.

Căutați alfabetul latin în chirilic

Macrocod pentru căutarea literelor latine:

Sub ShowLatin()
  '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 "[A-Za-z]" Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 3
   Next i, c
End Sub

Rezultatul verificării textului în latină:

Căutați chirilic în alfabetul latin

Cod macro pentru căutarea literelor chirilice:

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

Rezultatul verificării textului chirilic:

Articole pe tema:

• Transliterare din ucraineană în engleză