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

विवरण

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

तो हमें एक तंत्र की आवश्यकता है कि कैसे लैटिन वर्णमाला में सिरिलिक वर्णमाला खोजें या, इसके विपरीत, सिरिलिक में लैटिन खोजें . 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

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

विषय पर लेख:

• यूक्रेनी से अंग्रेजी में लिप्यंतरण