टेक्स्ट स्ट्रिंग्स से एक्रोनिम्स की गणना करें - वीबीए कोड उदाहरण

टेक्स्ट के स्ट्रिंग्स से एक्रोनिम्स बनाएं

निम्नलिखित फ़ंक्शन स्ट्रिंग्स से एक्रोनिम्स का मूल्यांकन करता है यानी यह एक स्ट्रिंग में प्रत्येक शब्द के पहले अक्षर को जोड़ता है। जैसे "पेड़ हरे हैं" "TAG" बन जाता है।

रूटीन हर कैरेक्टर को एक स्ट्रिंग में ट्रैवर्स करता है और अगर यह स्पेस है तो यह स्ट्रिंग में अगला कैरेक्टर लेता है। स्ट्रिंग का मूल्यांकन करने से पहले, यह सभी अनुगामी और डुप्लिकेट रिक्त स्थान को हटा देता है।

फंक्शन Acroymn (मूल_स्ट्रिंग के रूप में) स्ट्रिंग डिम ट्रिम्ड_स्ट्रिंग के रूप में स्ट्रिंग डिम लंबाई के रूप में इंटीजर डिम पॉज़ के रूप में इंटीजर Trimmed_String = Application.WorksheetFunction.Trim (Original_String) 'स्ट्रिंग की लंबाई का काम करें लंबाई = लेन (ट्रिम_स्ट्रिंग) Acroymn = UCase(Left = UCase) (छंटनी_स्ट्रिंग, १)) स्थिति के लिए = २ से लंबाई - १ यदि (मध्य (छंटनी_स्ट्रिंग, स्थिति, १) = " ") अंत समारोह

तो उदाहरण के लिए:
Acroymn ("ब्रिटिश ब्रॉडकास्टिंग कॉर्पोरेशन") BBC . देता है
Acroymn ("फंकी") F . देता है
Acroymn ("") NULL . देता है

लेख से .XLSM फ़ाइल डाउनलोड करने के लिए, यहाँ क्लिक करें