वीबीए में कई स्ट्रिंग फ़ंक्शन हैं जो आपको अपने कोड में टेक्स्ट और स्ट्रिंग्स के साथ हेरफेर करने और काम करने की अनुमति देंगे। इस ट्यूटोरियल में, हम ऐसे कार्यों को कवर करने जा रहे हैं जो आपको स्ट्रिंग्स से सबस्ट्रिंग निकालने, स्ट्रिंग्स से रिक्त स्थान निकालने, टेक्स्ट या स्ट्रिंग के केस को कन्वर्ट करने, स्ट्रिंग्स और अन्य उपयोगी स्ट्रिंग फ़ंक्शंस की तुलना करने की अनुमति देंगे।
एक सबस्ट्रिंग निकालना
वीबीए वाम स्ट्रिंग समारोह
वीबीए लेफ्ट फंक्शन आपको बाईं ओर से शुरू होने वाले टेक्स्ट या स्ट्रिंग से सबस्ट्रिंग निकालने की अनुमति देता है। VBA लेफ्ट स्ट्रिंग फंक्शन का सिंटैक्स है:
वाम (स्ट्रिंग, Num_of_characters) जहां:
- स्ट्रिंग - मूल पाठ।
- num_of_characters - एक पूर्णांक जो शुरुआत से शुरू होने वाले मूल पाठ से निकालने के लिए वर्णों की संख्या निर्दिष्ट करता है।
निम्नलिखित कोड आपको दिखाता है कि दिए गए स्ट्रिंग के पहले चार वर्णों को निकालने के लिए बाएं स्ट्रिंग फ़ंक्शन का उपयोग कैसे करें:
1234567891011 | उप का उपयोग TheLeftStringFunction ()मंद मानएक स्ट्रिंग के रूप मेंमंद मानदो स्ट्रिंग के रूप मेंvalueOne = "ऑटोमेटएक्सेल"valueTwo = वाम (valueOne, 4)MsgBox मानदोअंत उप |
परिणाम है:
लेफ्ट फंक्शन ने AutomateExcel के पहले चार अक्षर निकाले हैं, जो Auto हैं।
वीबीए राइट स्ट्रिंग फंक्शन
VBA राइट फंक्शन आपको दाईं ओर से शुरू होने वाले टेक्स्ट या स्ट्रिंग से सबस्ट्रिंग निकालने की अनुमति देता है। VBA राइट स्ट्रिंग फंक्शन का सिंटैक्स है:
राइट (स्ट्रिंग, Num_of_characters) जहां:
- स्ट्रिंग - मूल पाठ।
- num_of_characters - एक पूर्णांक जो अंत से शुरू होने वाले मूल पाठ से निकालने के लिए वर्णों की संख्या निर्दिष्ट करता है।
निम्न कोड आपको दिखाता है कि स्ट्रिंग के अंतिम चार वर्णों को निकालने के लिए राइट स्ट्रिंग फ़ंक्शन का उपयोग कैसे करें:
1234567891011 | उप प्रयोग TheRightStringFunction ()मंद मानएक स्ट्रिंग के रूप मेंमंद मानदो स्ट्रिंग के रूप मेंvalueOne = "ऑटोमेटएक्सेल"वैल्यू टू = राइट (वैल्यूऑन, 4)MsgBox मानदोअंत उप |
परिणाम है:
राइट फंक्शन ने AutomateExcel के अंतिम चार अक्षर निकाले हैं, जो कि xcel हैं।
वीबीए मिड स्ट्रिंग फंक्शन
वीबीए मिड फंक्शन आपको किसी टेक्स्ट या स्ट्रिंग से एक सबस्ट्रिंग निकालने की अनुमति देता है, जो आपके द्वारा निर्दिष्ट स्ट्रिंग के भीतर किसी भी स्थिति से शुरू होता है। वीबीए मिड स्ट्रिंग फंक्शन का सिंटैक्स है:
मिड (स्ट्रिंग, स्टार्टिंग_पोजिशन, [Num_of_characters]) जहां:
- स्ट्रिंग - मूल पाठ।
- Start_position - मूल पाठ में वह स्थिति, जहां से फ़ंक्शन निकालना शुरू होगा।
- Num_of_characters (ऐच्छिक) - एक पूर्णांक जो प्रारंभिक_स्थिति से शुरू होने वाले मूल पाठ से निकालने के लिए वर्णों की संख्या निर्दिष्ट करता है। यदि रिक्त है, तो MID फ़ंक्शन सभी वर्णों को Start_position से लौटा देगा।
निम्न कोड आपको दिखाता है कि स्ट्रिंग में दूसरी स्थिति या वर्ण से चार वर्णों को निकालने के लिए मध्य स्ट्रिंग फ़ंक्शन का उपयोग कैसे करें:
1234567891011 | उप का उपयोग TheMidStringFunction ()मंद मानएक स्ट्रिंग के रूप मेंमंद मानदो स्ट्रिंग के रूप मेंvalueOne = "ऑटोमेटएक्सेल"valueTwo = मध्य (valueOne, 2, 4)MsgBox मानदोअंत उप |
परिणाम एक संदेश बॉक्स में आउटपुट होता है:
मिड फंक्शन ने ऑटोमेटएक्सेल के चार अक्षरों को दूसरे अक्षर/स्थिति/अक्षर से शुरू किया है जो यूटम हैं।
एक सबस्ट्रिंग की स्थिति ढूँढना
वीबीए इंस्ट्र स्ट्रिंग फंक्शन
वीबीए इंस्ट्र फ़ंक्शन किसी अन्य स्ट्रिंग के भीतर एक सबस्ट्रिंग की प्रारंभिक स्थिति देता है। यह फ़ंक्शन केस-संवेदी है। वीबीए इंस्ट्र स्ट्रिंग फ़ंक्शन का सिंटैक्स है:
इंस्ट्र ([प्रारंभ], स्ट्रिंग, सबस्ट्रिंग, [तुलना करें]) जहां:
- शुरू (ऐच्छिक) - यह फ़ंक्शन के लिए खोज करने के लिए प्रारंभिक स्थिति निर्दिष्ट करता है। यदि रिक्त है, तो 1 के डिफ़ॉल्ट मान का उपयोग किया जाता है।
- स्ट्रिंग - मूल पाठ।
- सबस्ट्रिंग- मूल टेक्स्ट में वह सबस्ट्रिंग जिसका आप पता लगाना चाहते हैं।
- तुलना करना (वैकल्पिक)- यह तुलना के प्रकार को निर्दिष्ट करता है। यदि रिक्त है, तो बाइनरी तुलना का उपयोग किया जाता है।
-vbBinaryCompare - बाइनरी तुलना (ऊपरी और निचले मामले को अलग माना जाता है)
-vbTextCompare - पाठ तुलना (ऊपरी और निचले मामले को समान माना जाता है)
-vbDatabaseCompare - डेटाबेस तुलना (यह विकल्प केवल Microsoft Access में उपयोग किया जाता है, और डेटाबेस पर आधारित तुलना है)
निम्नलिखित कोड आपको दिखाता है कि मुख्य स्ट्रिंग के भीतर "Th" सबस्ट्रिंग की पहली घटना को निर्धारित करने के लिए इंस्ट्र स्ट्रिंग फ़ंक्शन का उपयोग कैसे करें:
123456789101112 | उप उपयोग TheInstrStringFunction ()मंद मानएक स्ट्रिंग के रूप मेंपूर्णांक के रूप में सबस्ट्रिंग की मंद स्थितिvalueOne = "यह पाठ है"positionofSubstring = InStr(1, valueOne, "Th")डीबग.सबस्ट्रिंग की स्थिति प्रिंट करेंअंत उप |
परिणाम (तत्काल विंडो में आउटपुट) है:
इंस्ट्र फ़ंक्शन ने सबस्ट्रिंग "थ" की पहली घटना की स्थिति वापस कर दी है जो कि 1 है। ध्यान दें कि इस फ़ंक्शन में गिनती में रिक्त स्थान शामिल हैं।
VBA InstrRev स्ट्रिंग फंक्शन
VBA InstrRev फ़ंक्शन किसी अन्य स्ट्रिंग के भीतर एक सबस्ट्रिंग की प्रारंभिक स्थिति देता है लेकिन यह स्ट्रिंग के अंत से स्थिति की गणना करना शुरू कर देता है। यह फ़ंक्शन केस-संवेदी है। VBA InstrRev स्ट्रिंग फ़ंक्शन का सिंटैक्स है:
InstrRev (स्ट्रिंग, सबस्ट्रिंग, [प्रारंभ], [तुलना करें]) जहां:
- स्ट्रिंग - मूल पाठ।
- सबस्ट्रिंग- मूल टेक्स्ट में वह सबस्ट्रिंग, जिसकी स्थिति आप ढूँढ़ना चाहते हैं।
- शुरू (ऐच्छिक) - यह उस स्थिति को निर्दिष्ट करता है जिससे खोज शुरू करनी है। यदि रिक्त है, तो फ़ंक्शन अंतिम वर्ण से खोजना शुरू कर देता है।
- तुलना करना (वैकल्पिक)- यह तुलना के प्रकार को निर्दिष्ट करता है। यदि रिक्त है, तो बाइनरी तुलना का उपयोग किया जाता है।
-vbBinaryCompare - बाइनरी तुलना (ऊपरी और निचले मामले को अलग माना जाता है)
-vbTextCompare - पाठ तुलना (ऊपरी और निचले मामले को समान माना जाता है)
-vbDatabaseCompare - डेटाबेस तुलना (यह विकल्प केवल Microsoft Access में उपयोग किया जाता है, और डेटाबेस पर आधारित तुलना है)
निम्नलिखित कोड आपको दिखाता है कि स्ट्रिंग के अंत से शुरू होने वाले मुख्य स्ट्रिंग के भीतर "Th" सबस्ट्रिंग की पहली घटना को निर्धारित करने के लिए InstrRev स्ट्रिंग फ़ंक्शन का उपयोग कैसे करें:
1234567891011 | उप का उपयोग TheInstrRevStringFunction ()मंद मानएक स्ट्रिंग के रूप मेंपूर्णांक के रूप में सबस्ट्रिंग की मंद स्थितिvalueOne = "यह पाठ है"positionofSubstring = InStrRev (valueOne, "Th")डीबग.सबस्ट्रिंग की स्थिति प्रिंट करेंअंत उप |
परिणाम तत्काल विंडो में आउटपुट होता है:
InstrRev फ़ंक्शन ने सबस्ट्रिंग "Th" की पहली घटना की स्थिति वापस कर दी है, लेकिन अंत से गिनती शुरू कर रहा है जो 9 है। ध्यान दें कि इस फ़ंक्शन में गिनती में रिक्त स्थान शामिल हैं।
एक स्ट्रिंग से रिक्त स्थान हटाना
VBA LTrim स्ट्रिंग फंक्शन
VBA LTrim फ़ंक्शन किसी टेक्स्ट या स्ट्रिंग से सभी प्रमुख रिक्त स्थान को हटा देता है। VBA LTrim स्ट्रिंग फ़ंक्शन का सिंटैक्स है:
LTrim (स्ट्रिंग) जहां:
- स्ट्रिंग - मूल पाठ।
निम्नलिखित कोड आपको दिखाता है कि दिए गए स्ट्रिंग में प्रमुख रिक्त स्थान को हटाने के लिए VBA LTrim फ़ंक्शन का उपयोग कैसे करें:
123456789101112 | उप उपयोग TheLTrimStringFunction ()मंद मानएक स्ट्रिंग के रूप मेंमंद मानदो स्ट्रिंग के रूप मेंvalueOne = "यह वेबसाइट का पता है https://easyexcel.net/excel/"valueTwo = LTrim (valueOne)MsgBox valueOneMsgBox मानदोअंत उप |
परिणाम हैं:
LTrim फ़ंक्शन ने valuetwo के लिए प्रमुख रिक्त स्थान को हटा दिया है, जो दूसरे संदेश बॉक्स में दिखाया गया है।
VBA RTrim स्ट्रिंग फंक्शन
VBA RTrim फ़ंक्शन किसी पाठ या स्ट्रिंग से सभी अनुगामी रिक्त स्थान को हटा देता है। VBA RTrim स्ट्रिंग फ़ंक्शन का सिंटैक्स है:
RTrim (स्ट्रिंग) जहां:
- स्ट्रिंग - मूल पाठ।
निम्नलिखित कोड आपको दिखाता है कि दिए गए स्ट्रिंग में पिछली जगहों को हटाने के लिए VBA RTrim फ़ंक्शन का उपयोग कैसे करें:
123456789101112 | उप प्रयोग TheRTrimStringFunction ()मंद मानएक स्ट्रिंग के रूप मेंमंद मानदो स्ट्रिंग के रूप मेंvalueOne = "यह वेबसाइट का पता है https://easyexcel.net/excel/"valueTwo = RTrim (valueOne)MsgBox valueOneMsgBox मानदोअंत उप |
दिए गए परिणाम हैं:
RTrim फंक्शन ने valuetwo के लिए अनुगामी रिक्त स्थान को हटा दिया है, जो दूसरे संदेश बॉक्स में दिखाया गया है।
वीबीए ट्रिम स्ट्रिंग फंक्शन
VBA ट्रिम फ़ंक्शन किसी टेक्स्ट या स्ट्रिंग से सभी प्रमुख और अनुगामी रिक्त स्थान को हटा देता है। VBA ट्रिम स्ट्रिंग फ़ंक्शन का सिंटैक्स है:
ट्रिम (स्ट्रिंग) जहां:
- स्ट्रिंग - मूल पाठ।
निम्नलिखित कोड आपको दिखाता है कि दिए गए स्ट्रिंग में अग्रणी और पिछली जगहों को हटाने के लिए वीबीए ट्रिम फ़ंक्शन का उपयोग कैसे करें:
123456789101112 | उप प्रयोग TheTrimStringFunction ()मंद मानएक स्ट्रिंग के रूप मेंमंद मानदो स्ट्रिंग के रूप मेंvalueOne = "यह वेबसाइट का पता है https://easyexcel.net/excel/"valueTwo = ट्रिम (valueOne)MsgBox valueOneMsgBox मानदोअंत उप |
परिणाम हैं:
ट्रिम फ़ंक्शन ने valuetwo के लिए अग्रणी और अनुगामी रिक्त स्थान को हटा दिया है, जो दूसरे संदेश बॉक्स में दिखाया गया है।
वीबीए केस फ़ंक्शंस
VBA LCase स्ट्रिंग फंक्शन
VBA LCase फ़ंक्शन किसी टेक्स्ट या स्ट्रिंग के अक्षरों को लोअर केस में कनवर्ट करता है। VBA LCase स्ट्रिंग फ़ंक्शन का सिंटैक्स है:
LCase (स्ट्रिंग) जहां:
- स्ट्रिंग - मूल पाठ।
निम्नलिखित कोड आपको दिखाता है कि दिए गए स्ट्रिंग के सभी अक्षरों को लोअर केस में बदलने के लिए LCase स्ट्रिंग फ़ंक्शन का उपयोग कैसे करें:
1234567891011 | उप का उपयोग TheLCaseStringFunction ()मंद मानएक स्ट्रिंग के रूप मेंमंद मानदो स्ट्रिंग के रूप मेंvalueOne = "यह उत्पाद है"valueTwo = LCase (valueOne)MsgBox मानदोअंत उप |
परिणाम है:
LCase फंक्शन ने स्ट्रिंग के सभी अक्षरों को लोअर केस में बदल दिया है।
वीबीए यूकेस स्ट्रिंग फंक्शन
VBA UCase फ़ंक्शन किसी टेक्स्ट या स्ट्रिंग के अक्षरों को अपर केस में कनवर्ट करता है। VBA UCase स्ट्रिंग फ़ंक्शन का सिंटैक्स है:
यूकेस (स्ट्रिंग) जहां:
- स्ट्रिंग - मूल पाठ।
निम्नलिखित कोड आपको दिखाता है कि दिए गए स्ट्रिंग के सभी अक्षरों को अपर केस में बदलने के लिए UCase स्ट्रिंग फ़ंक्शन का उपयोग कैसे करें:
1234567891011 | उप का उपयोग TheUCaseStringFunction ()मंद मानएक स्ट्रिंग के रूप मेंमंद मानदो स्ट्रिंग के रूप मेंvalueOne = "यह उत्पाद है"valueTwo = UCase (valueOne)MsgBox मानदोअंत उप |
परिणाम है:
UCase फंक्शन ने स्ट्रिंग के सभी अक्षरों को अपर केस में बदल दिया है।
VBA StrConv फ़ंक्शन
VBA StrConv फ़ंक्शन आपके द्वारा निर्दिष्ट रूपांतरण के प्रकार के आधार पर टेक्स्ट या स्ट्रिंग के अक्षरों को अपर केस, लोअर केस, प्रॉपर केस या यूनिकोड में बदल सकता है। VBA StrConv स्ट्रिंग फ़ंक्शन का सिंटैक्स है:
StrConv (स्ट्रिंग, रूपांतरण, [एलसीआईडी]) जहां:
- स्ट्रिंग - मूल पाठ।
- रूपांतरण - आप जिस प्रकार का रूपांतरण चाहते हैं।
- [एलसीआईडी] (वैकल्पिक) -एक वैकल्पिक पैरामीटर जो लोकेलआईडी निर्दिष्ट करता है। यदि रिक्त है, तो सिस्टम लोकेलआईडी का उपयोग किया जाता है।
निम्नलिखित कोड आपको दिखाता है कि स्ट्रिंग को उचित स्थिति में बदलने के लिए StrConv स्ट्रिंग फ़ंक्शन का उपयोग कैसे करें:
1234567891011 | उप का उपयोग TheStrConvStringFunction ()मंद मानएक स्ट्रिंग के रूप मेंमंद मानदो स्ट्रिंग के रूप मेंvalueOne = "यह उत्पाद है"valueTwo = StrConv (valueOne, vbProperCase)MsgBox मानदोअंत उप |
परिणाम है:
आप रूपांतरण पैरामीटर का उपयोग करके वह रूपांतरण प्रकार निर्दिष्ट करते हैं जिसे आप निष्पादित करना चाहते हैं:
- vbLowerCase टेक्स्ट के सभी अक्षरों को लोअर केस में कनवर्ट करता है।
- vbUpperCase टेक्स्ट के सभी अक्षरों को अपर केस में कनवर्ट करता है।
- vbProperCase टेक्स्ट में प्रत्येक शब्द के पहले अक्षर को अपर केस में कनवर्ट करता है, जबकि अन्य सभी अक्षरों को लोअर केस के रूप में रखा जाता है।
- vbUnicode एक स्ट्रिंग को यूनिकोड में कनवर्ट करता है।
- vbFromUnicode एक स्ट्रिंग को यूनिकोड से सिस्टम के डिफ़ॉल्ट कोड पेज में कनवर्ट करता है।
स्ट्रिंग्स की तुलना करना
वीबीए स्ट्रकॉम फंक्शन
VBA StrComp स्ट्रिंग फ़ंक्शन आपको दो स्ट्रिंग्स की तुलना करने की अनुमति देता है। फ़ंक्शन लौटाता है:
- 0 यदि दो तार मेल खाते हैं
- -1 अगर स्ट्रिंग 1 स्ट्रिंग 2 से कम है
- 1 अगर स्ट्रिंग 1 स्ट्रिंग 2 से बड़ा है
- एक शून्य मान यदि कोई भी तार शून्य था
निम्न कोड आपको दिखाता है कि दो स्ट्रिंग्स की तुलना करने के लिए StrComp फ़ंक्शन का उपयोग कैसे करें:
123456789101112 | उप का उपयोग TheStrCompStringFunction ()मंद मानएक स्ट्रिंग के रूप मेंमंद मानदो स्ट्रिंग के रूप मेंपूर्णांक के रूप में तुलना का मंद परिणामvalueOne = "ऑटोमेटएक्सेल"valueTwo = "ऑटोमेट एक्सेल"resultofComparison = StrComp (valueOne, valueTwo)डीबग करें। तुलना का परिणाम प्रिंट करेंअंत उप |
परिणाम है:
StrComp फ़ंक्शन ने दो स्ट्रिंग्स के बीच एक सटीक मिलान पाया है और 0 लौटाया है।
वीबीए लाइक ऑपरेटर
वीबीए लाइक ऑपरेटर आपको टेक्स्ट या स्ट्रिंग की तुलना पैटर्न से करने और यह देखने की अनुमति देता है कि क्या कोई मेल है। आप आमतौर पर वाइल्डकार्ड के संयोजन में लाइक ऑपरेटर का उपयोग करेंगे। निम्न कोड आपको दिखाता है कि लाइक ऑपरेटर का उपयोग कैसे करें:
123456789101112 | उप प्रयोग TheLikeOperatorInVBA ()मंद मानएक स्ट्रिंग के रूप मेंvalueOne = "आइए आउटपुट देखें"अगर valueOne लाइक "*view*" तोMsgBox "एक मैच है, इस स्ट्रिंग में शब्द दृश्य है"अन्यथाMsgBox "कोई मिलान नहीं मिला"अगर अंतअंत उप |
परिणाम है:
पैटर्न मिलान खोजने के लिए आप लाइक ऑपरेटर के साथ जिन वाइल्डकार्ड का उपयोग कर सकते हैं उनमें शामिल हैं:
- ? जो एक वर्ण से मेल खाता है
- # जो एक अंक से मेल खाता है
- * जो शून्य या अधिक वर्णों से मेल खाता हो
निम्नलिखित कोड आपको दिखाता है कि आप लाइक ऑपरेटर और ? वाइल्डकार्ड आपके कोड में एक पैटर्न से मेल खाने के लिए:
123456789101112 | उप प्रयोग TheLikeOperatorWithAWildcardInVBA ()मंद मानएक स्ट्रिंग के रूप मेंवैल्यूवन = "द"अगर valueOne Like "??e" तोMsgBox "एक मिलान है, एक मिलान पैटर्न मिला"अन्यथाMsgBox "कोई मिलान नहीं मिला"अगर अंतअंत उप |
दिया गया परिणाम है:
अन्य उपयोगी वीबीए स्ट्रिंग फ़ंक्शंस
वीबीए स्ट्रिंग फ़ंक्शन बदलें
VBA रिप्लेस फंक्शन एक स्ट्रिंग में वर्णों के एक सेट को वर्णों के दूसरे सेट से बदल देता है। VBA बदलें स्ट्रिंग फ़ंक्शन का सिंटैक्स है:
बदलें (स्ट्रिंग, खोजें, बदलें, [प्रारंभ], [गणना], [तुलना करें]) जहां:
- स्ट्रिंग - मूल पाठ।
- ढूँढें - मूल पाठ के भीतर खोजने के लिए सबस्ट्रिंग।
- रिप्लेस - फाइंड सबस्ट्रिंग को बदलने के लिए सबस्ट्रिंग।
- शुरू (वैकल्पिक)- मूल पाठ के भीतर से खोज शुरू करने की स्थिति। यदि रिक्त है, तो 1 के मान का उपयोग किया जाता है और फ़ंक्शन पहले वर्ण की स्थिति से प्रारंभ होता है।
- गिनती (वैकल्पिक)- बदलने के लिए मूल पाठ में ढूँढें सबस्ट्रिंग की घटनाओं की संख्या। यदि रिक्त है, तो ढूँढें सबस्ट्रिंग की सभी आवृत्तियाँ बदल दी जाती हैं।
- तुलना करना (वैकल्पिक)- यह तुलना के प्रकार को निर्दिष्ट करता है। यदि रिक्त है, तो बाइनरी तुलना का उपयोग किया जाता है।
-vbBinaryCompare - बाइनरी तुलना
-vbTextCompare - पाठ तुलना
-vbDatabaseCompare - डेटाबेस तुलना (यह विकल्प केवल Microsoft Access में उपयोग किया जाता है, और डेटाबेस पर आधारित तुलना है।)
निम्न कोड आपको दिखाता है कि बदलें स्ट्रिंग फ़ंक्शन का उपयोग कैसे करें:
1234567891011 | उप उपयोग TheReplaceStringFunction ()मंद मानएक स्ट्रिंग के रूप मेंमंद मानदो स्ट्रिंग के रूप मेंvalueOne = "उत्पाद एबीसी"valueTwo = बदलें (valueOne, "ABC", "XYZ")MsgBox मानदोअंत उप |
परिणाम है:
बदलें फ़ंक्शन ने उत्पाद एबीसी के भीतर सबस्ट्रिंग एबीसी पाया और इसे सबस्ट्रिंग XYZ के साथ बदल दिया।
VBA StrReverse फ़ंक्शन
VBA StrReverse Function किसी दिए गए टेक्स्ट या स्ट्रिंग में वर्णों को उलट देता है। VBA StrReverse String Function का सिंटैक्स है:
StrReverse (स्ट्रिंग) कहा पे:
- स्ट्रिंग - मूल पाठ।
निम्न कोड आपको दिखाता है कि स्ट्रिंग उत्पाद में वर्णों को उलटने के लिए VBA StrReverse फ़ंक्शन का उपयोग कैसे करें:
1234567891011 | उप उपयोग TheStrReverseStringFunction ()मंद मानएक स्ट्रिंग के रूप मेंमंद मानदो स्ट्रिंग के रूप मेंvalueOne = "उत्पाद"valueTwo = StrReverse (valueOne)MsgBox मानदोअंत उप |
परिणाम है:
वीबीए लेन स्ट्रिंग फंक्शन
VBA लेन फ़ंक्शन टेक्स्ट स्ट्रिंग में वर्णों की संख्या देता है। VBA लेन स्ट्रिंग फ़ंक्शन का सिंटैक्स है:
लेन (स्ट्रिंग) जहां:
- स्ट्रिंग - मूल पाठ।
निम्न कोड आपको दिखाता है कि स्ट्रिंग AutomateExcel की लंबाई निर्धारित करने के लिए लेन स्ट्रिंग फ़ंक्शन का उपयोग कैसे करें:
1234567891011 | उप का उपयोग TheLenFunction ()मंद मानएक स्ट्रिंग के रूप मेंमंद स्ट्रिंग लम्बाई पूर्णांक के रूप मेंvalueOne = "ऑटोमेटएक्सेल"स्ट्रिंग लम्बाई = लेन (वैल्यूऑन)डिबग.प्रिंट स्ट्रिंगलंबाईअंत उप |
परिणाम है:
लेन फंक्शन ने AutomateExcel टेक्स्ट में सभी वर्णों की गणना की है, जो कि 13 अक्षरों का है।