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

وصف

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

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

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

1. اضغط على ALT + F11 لفتح محرر Visual Basic؛
2. إضافة وحدة فارغة جديدة من خلال القائمة Insert - 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

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

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

• الترجمة من الأوكرانية إلى الإنجليزية