सिरिलिक पाठ में लैटिन अक्षर खोजें और इसके विपरीत

विवरण

सिरिलिक (यूक्रेनी या रूसी) में लिखे गए पाठ में लैटिन (अंग्रेजी) अक्षरों का सामना करना अक्सर आवश्यक होता है। यह अक्सर डेटाबेस से पाठ जानकारी के विश्लेषण और प्रसंस्करण के दौरान होता है, जहां, बदले में, पाठ उन ऑपरेटरों द्वारा दर्ज किया जाता था जिनके पास नए कीबोर्ड लेआउट पर स्विच करने का समय नहीं था।

इसलिए हमें लैटिन में सिरिलिक को खोजने के लिए या, इसके विपरीत, सिरिलिक में लैटिन को खोजने के लिए एक तंत्र की आवश्यकता है। Excel के पास ऐसे उद्देश्यों के लिए कोई मानक उपकरण नहीं है। नीचे आपको VBA पर एक तैयार मैक्रो मिलेगा, जो सिरिलिक में लिखे गए पाठ में लैटिन अक्षरों की खोज करता है और इसके विपरीत।

इस मैक्रो का उपयोग करने से पहले आपको अपनी कार्यपुस्तिका में VBA कोड जोड़ना होगा। इसके लिए:

1. Visual Basic संपादक खोलने के लिए ALT + F11 दबाएँ
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

सिरिलिक पाठ की जाँच का परिणाम:

विषय पर लेख: