VBA के साथ उच्चारण वर्णों को नियमित वर्णों से बदलें

एक्सेल के लिए कुटूल के साथ उच्चारण वर्णों को नियमित वर्णों से बदलें

जिन उपयोगकर्ताओं को Microsoft Excel का अनुभव है, उनके लिए VBA मैक्रो का उपयोग करना इस जटिल कार्य से निपटने का एक आसान तरीका है।

1. नीचे पकड़ो ऑल्ट + F11 एक्सेल में कुंजियाँ, और यह खुलता है एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.

2. क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल विंडो.

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

3. फिर एक रिक्त सेल पर जाएं और सूत्र को सेल में पेस्ट करें: =चेकस्ट्रिंगCHAR(इनस्ट्रिंग), उदाहरण के लिए =चेकस्ट्रिंगCHAR('ù')या, =चेकस्ट्रिंगCHAR(A2).

टिप्पणियाँ:
(1) यदि आपका माइक्रोसॉफ्ट विज़ुअल बेसिक यूनिकोड का समर्थन नहीं करता है, तो हो सकता है कि वह उच्चारण वर्णों को बिल्कुल भी न पहचान सके। उदाहरण के लिए, जब आप विज़ुअल बेसिक में "š" पेस्ट करते हैं, तो आपको "?" मिल सकता है। यदि हां, तो यह मैक्रो उपलब्ध नहीं है.
(2) यह सीधे चयनित सेल की स्ट्रिंग में उच्चारण वर्णों को प्रतिस्थापित नहीं करता है।

वीबीए मैक्रो का उपयोग करने के लिए बहुत अधिक कौशल और ज्ञान की आवश्यकता होती है। और निम्नलिखित विधि आपको केवल कुछ क्लिक के साथ आसानी से काम करने में मदद करेगी। कुटूल्स फॉर एक्सेल का रिप्लेस एक्सेंटेड कैरेक्टर्स टूल आपके लिए एक ही बार में सभी प्रकार के एक्सेंटेड कैरेक्टर्स को नियमित कैरेक्टर्स से आसानी से बदलना संभव बनाता है।

1. उस श्रेणी का चयन करें जिसमें आप सभी उच्चारण वर्णों को प्रतिस्थापित करेंगे।

2. क्लिक करें कुटूल > टेक्स्ट > उच्चारण वर्ण बदलें..., स्क्रीनशॉट देखें:

3. In उच्चारण वर्ण बदलें संवाद बॉक्स में, क्लिक करें सभी का चयन करें सभी प्रतिस्थापित नियमों का चयन करने के लिए बटन, और सभी उच्चारण वर्णों को बदलने के लिए ओके बटन पर क्लिक करें। स्क्रीनशॉट देखें:

नोट्स:
(1) यदि आपके इच्छित कुछ विशिष्ट उच्चारण वाले अक्षर नहीं हैं, तो आप क्लिक कर सकते हैं नियम जोड़ें उपरोक्त रिप्लेस एक्सेंटेड कैरेक्टर डायलॉग में सूची बॉक्स में अपने नियम जोड़ने के लिए बटन।
(2) आप रिप्लेस एक्सेंटेड कैरेक्टर संवाद बॉक्स में नए प्रतिस्थापन नियमों को अनुकूलित कर सकते हैं।

अब आपके पास चयनित श्रेणी की स्ट्रिंग्स में सभी उच्चारण वर्ण तुरंत नियमित वर्णों में परिवर्तित हो जाएंगे। स्क्रीनशॉट देखें:

RSI उच्चारण वर्ण बदलें एक्सेल के लिए कुटूल्स की सुविधा संपूर्ण कार्यपुस्तिका में सभी प्रकार के उच्चारण वर्णों को नियमित वर्णों से आसानी से बदल सकती है। निःशुल्क परीक्षण करें!