एक्सेल VBA सबस्ट्रिंग
सबस्ट्रिंग स्ट्रिंग या भाग का एक हिस्सा है या स्ट्रिंग के चरित्र को "सबस्ट्रिंग" कहा जाता है। VBA LEFT, RIGHT और MID में तीन प्रकार के विकल्प फ़ंक्शन हैं, वे एक्सेल में वर्कशीट सबस्ट्रिंग के समान हैं।
एक तार और कुछ नहीं बल्कि पात्रों की एक श्रृंखला है, और वर्ण वर्ण, संख्या, विशेष वर्ण हो सकते हैं, और इन सभी को भी जोड़ सकते हैं।
अक्सर एक्सेल में, जब हम डेटा के साथ काम करते हैं, जो स्ट्रिंग है, तो हमें अपने उद्देश्य को सुविधाजनक बनाने के लिए स्ट्रिंग के केवल हिस्से को प्राप्त करने की आवश्यकता है। हमें उपयोग करने के लिए पूर्ण स्ट्रिंग की आवश्यकता नहीं हो सकती है, लेकिन हमें अपने उपयोग के लिए केवल स्ट्रिंग के भाग की आवश्यकता है। उदाहरण के लिए, यदि आपके पास "सचिन तेंदुलकर" नाम है, तो आपको नाम के केवल पहले भाग की आवश्यकता हो सकती है, अर्थात, केवल "सचिन"। इसे एक्सेल VBA में स्ट्रिंग की सबस्ट्रिंग कहा जाता है। इन स्ट्रिंग्स से निपटने के लिए, हमने एक्सेल श्रेणी में TEXT फ़ंक्शन के तहत अंतर्निहित कार्य किए हैं।
इस लेख में, हम चर्चा करेंगे कि वीबीए में पूर्ण स्ट्रिंग से प्रतिस्थापन कैसे प्राप्त करें।
VBA में सबस्ट्रिंग फ़ंक्शंस का उपयोग कैसे करें?
स्ट्रिंग से सबस्ट्रिंग निकालने के लिए, हमारे पास कुछ अंतर्निहित पाठ फ़ंक्शन हैं, और कुछ महत्वपूर्ण कार्य एक्सेल में LEFT, RIGHT, INSTR और MID हैं। फ़ंक्शन इंस्ट्र अन्य तीन कार्यों के लिए सहायक फ़ंक्शन के रूप में काम करेगा।
हम देखेंगे कि इन क्रियाओं का उपयोग व्यावहारिक रूप से सबस्ट्रिंग निकालने के लिए कैसे करें। उन्हें समझने के लिए नीचे दिए गए उदाहरणों पर पढ़ें।
उदाहरण # 1 - वाम फ़ंक्शन का उपयोग करना
यदि आपका पूरा नाम "सचिन तेंदुलकर" है और आपको विकल्प के रूप में निकाले जाने वाले पहले नाम की आवश्यकता है, तो इसे प्राप्त करने के लिए निम्न कोड का उपयोग करें।
चरण 1: एक मैक्रो नाम बनाएँ और स्ट्रिंग के रूप में दो चर को परिभाषित करें।
कोड:
उप SubString_Example1 () पूर्ण FullName स्ट्रिंग के रूप में मंद FirstName स्ट्रिंग स्ट्रिंग उप के रूप में
चरण 2: अब नाम "सचिन तेंदुलकर" को पूर्णांक नाम दें ।
कोड:
Sub Subringring_Example1 () पूर्ण FullName स्ट्रिंग के रूप में मंद FirstName स्ट्रिंग FullName = "सचिन तेंदुलकर" के रूप में
चरण 3: अब, चर FullName "सचिन तेंदुलकर" का मूल्य रखता है। अब हमें पूर्ण नाम से पहले नाम के एक्सेल VBA सबस्ट्रिंग को निकालने की आवश्यकता है। तो, LEFT फ़ंक्शन के माध्यम से वैरिएबल फर्स्टनाम का मान असाइन करें ।
कोड:
उप SubString_Example1 () पूर्ण FullName स्ट्रिंग के रूप में मंद FullName स्ट्रिंग पूर्ण नाम के रूप में = "सचिन तेंदुलकर" FirstName = Left (समाप्ति उप)
चरण 4: VBA LEFT फ़ंक्शन पहला तर्क स्ट्रिंग है; वह पूर्ण मान या पूर्ण स्ट्रिंग है। इस उदाहरण में, हमारा पूरा मूल्य या स्ट्रिंग "सचिन तेंदुलकर" है, जिसे चर FullName को सौंपा गया है ।
तो तर्क के रूप में चर FullName की आपूर्ति करें ।
कोड:
उप SubString_Example1 () पूर्ण FullName स्ट्रिंग के रूप में मंद FullName स्ट्रिंग पूर्ण नाम के रूप में = "सचिन तेंदुलकर" FirstName = बाएँ छोर उप
चरण 5: अगला तर्क यह है कि हमारे द्वारा आपूर्ति की गई स्ट्रिंग से हमें कितने वर्णों की आवश्यकता है, इसलिए इस मामले में, हमें पहले नाम " सचिन " की आवश्यकता है, इसलिए पूरी तरह से, हमें बाईं ओर से 6 वर्णों की आवश्यकता है ।
कोड:
Sub SubString_Example1 () पूर्ण FullName स्ट्रिंग के रूप में मंद FullName स्ट्रिंग FullName = "सचिन तेंदुलकर" FirstName = Left (FullName, 6) समाप्ति उप नाम
चरण 6: अब VBA में एक संदेश बॉक्स में परिणाम दिखाएं।
कोड:
Sub SubString_Example1 () पूर्ण FullName स्ट्रिंग के रूप में मंद FullName स्ट्रिंग FullName = "सचिन तेंदुलकर" FirstName = Left (FullName, 6) MsgBox FirstName समाप्ति उप नाम
चरण 7: मैक्रो चलाएं पहला नाम संदेश बॉक्स में एक विकल्प के रूप में देखें।
उदाहरण # 2 - राइट से सबस्ट्रिंग प्राप्त करें
जैसे हमने बायीं ओर से सबस्ट्रिंग कैसे निकाला है, हम दायें से भी निकाल सकते हैं। एक उदाहरण के रूप में एक ही नाम लें।
चरण 1: स्ट्रिंग के रूप में दो चर को परिभाषित करें।
कोड:
उप SubString_Example2 () पूर्ण अंतिम नाम स्ट्रिंग के रूप में मंद अंतिम नाम स्ट्रिंग उप के रूप में
Step 2: As usual, assign the value to the variable FullName as “Sachin Tendulkar.”
Code:
Sub SubString_Example2() Dim FullName As String Dim LastName As String FullName = "Sachin Tendulkar" End Sub
Step 3: Now, for the variable LastName, assign the value through the RIGHT excel function.
Code:
Sub SubString_Example2() Dim FullName As String Dim LastName As String FullName = "Sachin Tendulkar" LastName = Right( End Sub
Step 4: String is our FullName, so supply the variable.
Code:
Sub SubString_Example2() Dim FullName As String Dim LastName As String FullName = "Sachin Tendulkar" LastName = Right(FullName, End Sub
Step 5: Length is how many characters we need from the right side. We need 9 characters on the right side.
Code:
Sub SubString_Example2() Dim FullName As String Dim LastName As String FullName = "Sachin Tendulkar" LastName = Right(FullName, 9) End Sub
Step 6: Show this value in the message box.
Code:
Sub SubString_Example2() Dim FullName As String Dim LastName As String FullName = "Sachin Tendulkar" LastName = Right(FullName, 9) MsgBox LastName End Sub
Step 7: Run the macro. We will see the last name in the message box.
Example #3 - Using Instr Function
In the above examples, we had only one name, and we have directly supplied how many characters we need from the left & right. But in the case of many names, first name & last name characters are not the same, it will differ from name to name. In those cases, we cannot supply the number of characters directly so we can use the function Instr.
Instr function will return the supplied character position in the string. For example, look at the below code.
Code:
Sub SubString_Example3() Dim Position As String Position = InStr(1, "Sachin", "a") MsgBox Position End Sub
InStr(1, “Sachin,” “a”), this will identify the position of the letter “a” as the first appearance in the string “Sachin.” In this case letter, “a” is in the second position. So we will get 2 as a result in the message box.
Like this, we can use the Instr function to find the space character between the first name and last name.
For example, look at the below name I have in the excel sheet.
Using LEFT, RIGHT, and Instr function, we can extract the substrings. Below is the code to extract the First Name.
Code:
उप FirstName () डिम K अस लॉन्ग डिम LR, लॉन्ग LR = सेल्स (Rows.Count, 1)। And (xIUp) .R के लिए 2 = एलआर सेल्स (K, 2) के लिए। वैल्यू - लेफ्ट (सेल्स (K) 1)। वाल्यू, इनस्ट्रीम (1, सेल्स (के, 1)। वाल्यू, "") - 1) नेक्स्ट के एंड सब उप
मैक्रो चलाएँ और संदेश बॉक्स में विकल्प के रूप में पहला नाम देखें।
अंतिम कोड को विकल्प के रूप में अंतिम नाम निकालने के लिए उपयोग करें।
कोड:
उप अंतिम नाम () डिम K अस लॉन्ग डिम LR, लॉन्ग LR = सेल्स (Rows.Count, 1)। And (xIUp) .R K = 2 के लिए LR सेल (K, 3) .Value (राइट) (सेल्स (K) 1)। वाल्यू, लेन (सेल्स (के, 1)) - इनस्ट्र (1, सेल (के, 1),। वेल, "")) नेक्स्ट के एंड सब।
मैक्रो चलाएँ, और हम संदेश बॉक्स में अंतिम नाम देखेंगे।
मैंने वर्कशीट को मैक्रो बटन असाइन किया है, वर्कबुक डाउनलोड करें और उनका उपयोग करें।
