ابحث عن الحروف اللاتينية في النص السيريلي والعكس

وصف

غالبًا ما يكون من الضروري مواجهة الحروف اللاتينية (الإنجليزية) في نص مكتوب باللغة السيريلية (الأوكرانية أو الروسية). يحدث هذا غالبًا أثناء تحليل ومعالجة المعلومات النصية من قواعد البيانات، حيث يتم إدخال النص بدوره بواسطة المشغلين الذين لم يكن لديهم الوقت للتبديل إلى تخطيط لوحة المفاتيح الجديد.

لذلك نحن بحاجة إلى آلية للعثور على السيريلية في اللاتينية، أو على العكس من ذلك، للعثور على اللاتينية في السيريلية. Excel ليس لديه أدوات قياسية لمثل هذه الأغراض. ستجد أدناه ماكرو جاهز على VBA، يبحث عن الحروف اللاتينية في النص المكتوب باللغة السيريلية والعكس.

يجب عليك إضافة رمز VBA إلى المصنف الخاص بك قبل استخدام هذا الماكرو. لهذا:

1. اضغط على ALT + F11 لفتح محرر Visual Basic
2. أضف وحدة فارغة جديدة عبر القائمة Inser - Module
3. انسخ رمز الماكرو والصقه في الوحدة.
4. احفظ الملف ثم عد إلى Excel.

يمكنك الآن تحديد نطاق من الخلايا، وتشغيل ماكرو، وبالتالي التحقق من النص بحثًا عن أحرف أجنبية.

البحث عن الأبجدية اللاتينية باللغة السيريلية

كود الماكرو للبحث عن الحروف اللاتينية:

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

نتيجة فحص النص باللغة اللاتينية:

ابحث عن السيريلية في الأبجدية اللاتينية

رمز الماكرو للبحث عن الحروف السيريلية:

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

نتيجة فحص النص السيريلي:

مقالات حول الموضوع: