VBA लेफ्ट फंक्शन - एक्सेल VBA लेफ्ट फंक्शन का उपयोग कैसे करें?

विषय - सूची

एक्सेल VBA वाम

एक्सेल VBA वाम

VBA वाम पाठ कार्यों के अंतर्गत वर्गीकृत कार्यपत्रक कार्यों में से एक है जो अनुप्रयोग के साथ VBA में उपयोग किया जाता है। वर्कशीट विधि, यह स्ट्रिंग के बाएं भाग से वर्णों की निर्दिष्ट संख्या देता है।

एक्सेल कार्यों में से कुछ VBA के साथ भी एकीकृत हैं। सभी पाठ कार्यों में से, VBA LEFT उन कार्यों में से एक है, जिनका उपयोग हम अन्य सूत्रों की तुलना में अक्सर करते हैं।

यदि आप LEFT फ़ंक्शन को जानते हैं, तो VBA LEFT फ़ंक्शन बिल्कुल समान है। यह उपयोगकर्ता द्वारा दिए गए स्ट्रिंग या मान के बाईं ओर से वर्ण निकाल सकता है।

LEFT फ़ंक्शन का सिंटैक्स ठीक उसी तरह है जैसे वर्कशीट फ़ंक्शन में होता है।

इसके दो तर्क हैं।

स्ट्रिंग: यह और कुछ नहीं बल्कि मूल्य या सेल संदर्भ है। इस मूल्य से, हम पात्रों को काटना चाहते हैं।
लंबाई: आपके द्वारा दिए गए स्ट्रिंग से कितने वर्ण आप निकालना चाहते हैं । यह एक संख्यात्मक मूल्य होना चाहिए।

एक्सेल VBA लेफ्ट फंक्शन का उपयोग कैसे करें?

उदाहरण 1

मान लें कि आपके पास "सचिन तेंदुलकर" शब्द है और आप इस शब्द से केवल पहले 6 अक्षर चाहते हैं। हम VBA में LEFT फ़ंक्शन का उपयोग करके बाईं ओर से निकालने का तरीका दिखाएंगे।

चरण 1: एक स्थूल नाम बनाएँ और स्ट्रिंग के रूप में चर को परिभाषित करें।

कोड:

सब लेफ्ट_एक्सप्ल १ (४) डिम मायवैल्यू ऐज़ स्ट्रिंग एंड सब

चरण 2: अब इस चर के लिए एक मान निर्दिष्ट करें

कोड:

सब लेफ्ट_एक्सप्लिमेंट 1 () डिम मायवैल्यू स्ट्रिंग स्ट्रिंग मायवैल्यू = एंड सब

चरण 3: बायाँ फ़ंक्शन खोलें।

कोड:

उप बाएँ_Example1 () स्ट्रिंग MyValue के रूप में मंद MyValue = वाम (अंतिम उप)

चरण 4: पहला तर्क यह बताना है कि स्ट्रिंग या मान क्या है। यहाँ हमारा मूल्य "सचिन तेंदुलकर" है।

कोड:

सब लेफ्ट_एक्सप्लिमेंट 1 () डिम मायवैल्यू ऐज स्ट्रिंग मायवैल्यू = लेफ्ट ("सचिन तेंदुलकर", एंड सब

चरण 5: लंबाई कुछ भी नहीं है लेकिन हमें बाएं से कितने वर्णों की आवश्यकता है। हमें 6 वर्ण चाहिए।

कोड:

सब लेफ्ट_Example1 () स्ट्रिंग MyValue स्ट्रिंग माय वेल्यू = लेफ्ट ("सचिन तेंदुलकर", 6) एंड सब

चरण 6: VBA MsgBox में मान दिखाएं।

कोड:

सब लेफ्ट_एक्सप्लिमेंट 1 () डिम मायवैल्यू ऐज़ स्ट्रिंग मायवैल्यू = लेफ्ट ("सचिन तेंदुलकर", 6) मिसगॉक्स मायवेल्यू एंड सब

चरण 7: संदेश बॉक्स में परिणाम प्राप्त करने के लिए F5 कुंजी या मैन्युअल रूप से रन विकल्प के माध्यम से मैक्रो चलाएँ।

आउटपुट:

एक संदेश बॉक्स में परिणाम दिखाने के बजाय, हम इस परिणाम को हमारी एक्सेल वर्कशीट में से किसी एक सेल में संग्रहीत कर सकते हैं। हमें केवल कक्ष संदर्भ और चर मान जोड़ने की आवश्यकता है।

कोड:

सब लेफ्ट_एक्सप्लिमेंट 1 () डिम मायवैल्यू एज़ स्ट्रिंग मायवेल्यू = लेफ्ट ("सचिन तेंदुलकर", 6) रेंज ("ए 1")। वैल्यू = मायवेल्यू एंड।

अब, यदि आप इस कोड को चलाते हैं, तो हमें सेल A1 में मान मिलेगा।

उदाहरण # 2 - अन्य कार्यों के साथ बाएँ

उपरोक्त मामले में, हमने सीधे बाईं ओर से आवश्यक वर्णों की लंबाई की आपूर्ति की है, लेकिन यह एक या दो मूल्यों के लिए अधिक उपयुक्त है। नीचे मान लें कि आपके एक्सेल शीट में आपके द्वारा दिए गए मानों की सूची है।

In each case, first name characters are different from one to another; we cannot directly specify the number of characters we needed from each name.

This is where the beauty of other functions will come into the picture. In order to supply the number of characters dynamically, we can use the “VBA Instr” function.

In the above set of names, we need all the characters from the left until we reach space character. So Instr function can return those many characters.

Step 1: Similarly, start an excel macro name and define a variable as a string.

Code:

Sub Left_Example2() Dim FirstName As String End Sub

Step 2: Assign the value to the variable through the LEFT function.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left( End Sub

Step 3: Here, we need to refer the cell to get the value from the cells. So write the code as CELLE (2,1).Value.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2,1).Value, End Sub

Step 4: The next thing is how many characters we need. After applying the LEFT function, don’t enter the length of the characters manually. Apply the Instr function.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2, 1).Value, InStr(1, Cells(2, 1).Value, " ")) End Sub

Step 5: Store this result in the B2 cell. So the code is CELLS (2,2).value = FirstName

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2, 1).Value, InStr(1, Cells(2, 1).Value, " ")) Cells(2, 2).Value = FirstName End Sub

चरण 6: इस कोड को मैन्युअल रूप से या F5 के माध्यम से चलाएं, हमें पहला नाम मिलेगा।

हमें एक नाम के लिए पहला नाम मिला, लेकिन हमारे पास कई अन्य नाम भी हैं। हम निकालने के लिए कोड की 100 लाइनें नहीं लिख सकते हैं, फिर हम कैसे निकालें?

यह वह जगह है जहाँ लूप की सुंदरता तस्वीर में आती है। नीचे लूप कोड है, जो सभी अवांछित कदमों को समाप्त कर सकता है और 3 लाइनों में काम कर सकता है।

कोड:

सब लेफ्ट_एक्सप्ल २ () डिम फर्स्टनाम ऐज़ स्ट्रिंग दिम आई अस इंटेगर फॉर आई = २ टू ९ फर्स्ट नेम = लेफ्ट (सेल्स, १), वेल, इनस्टार (१, सेल्स (आई, १)। वेल, "") - १)। कोशिकाएं (i, 2) ।Value = FirstName Next i End Sub