यह ट्यूटोरियल प्रदर्शित करेगा कि टेक्स्ट को दाईं ओर से निकालने के लिए राइट VBA फ़ंक्शन का उपयोग कैसे करें।
सही कार्य
वीबीए राइट फंक्शन लास्ट एन कैरेक्टर
VBA राइट फ़ंक्शन एक स्ट्रिंग से अंतिम n वर्ण देता है:
| 123456 | उप दायांउदाहरण_1()MsgBox राइट ("ABCDEFGHI", 4) 'परिणाम है: "FGHI"MsgBox राइट ("ABCDEFGHI", 2) 'परिणाम है: "HI"MsgBox राइट ("ABCDEFGHI", 1) 'परिणाम है: "I"MsgBox राइट ("ABCDEFGHI", 100) 'परिणाम है: "ABCDEFGHI"अंत उप |
VBA राइट फंक्शन लास्ट n कैरेक्टर इन ए वेरिएबल
जैसा कि ऊपर दिखाया गया है, आप केवल उद्धरण चिह्नों से घिरे पाठ को दर्ज करके एक स्ट्रिंग को परिभाषित कर सकते हैं। लेकिन राइट फंक्शन स्ट्रिंग वेरिएबल्स के साथ भी काम करेगा। ये उदाहरण एक स्ट्रिंग चर से अंतिम n वर्ण निकालेंगे।
| 123456789 | उप दायांउदाहरण_2()स्ट्रिंग के रूप में मंद स्ट्रेक्स 'एक स्ट्रिंग चर परिभाषित करें'स्ट्रेक्स = "एबीसीडीईएफजीएचआई"MsgBox राइट (StrEx, 4) 'परिणाम है: "FGHI"MsgBox राइट (StrEx, 2) 'परिणाम है: "HI"MsgBox राइट (StrEx, 1) 'परिणाम है: "I"MsgBox राइट (StrEx, 100) 'परिणाम है: "ABCDEFGHI"अंत उप |
वीबीए प्रोग्रामिंग | कोड जेनरेटर आपके लिए काम करता है!
VBA राइट फंक्शन अंतिम n एक सेल से वर्ण
स्ट्रिंग्स को वीबीए कोड में परिभाषित किया जा सकता है लेकिन आप कोशिकाओं से मूल्यों का भी उपयोग कर सकते हैं। किसी सेल का मान पढ़ें, उसे एक स्ट्रिंग वेरिएबल में रखें, और उस वर्कशीट सेल मान से अंतिम n वर्ण निकालें।
| 123456789101112 | उप दायां उदाहरण_3 ()स्ट्रिंग के रूप में मंद स्ट्रेक्स 'एक स्ट्रिंग चर परिभाषित करें''वर्कशीट शीट1 में सेल A1 का मान पढ़ें'स्ट्रेक्स = यह वर्कबुक। वर्कशीट ("शीट 1")। रेंज ("ए 1")। वैल्यू'इस उदाहरण के लिए सेल A1 का मान "ABCDEFG hI" हैMsgBox राइट (StrEx, 4) 'परिणाम है: "G hI"MsgBox राइट (StrEx, 2) 'परिणाम है: "hI"MsgBox राइट (StrEx, 1) 'परिणाम है: "I"MsgBox राइट (StrEx, 100) 'परिणाम है: "ABCDEFG hI"अंत उप |
VBA राइट फंक्शन ट्रिम ऑफ फर्स्ट लेटर
स्ट्रिंग की शुरुआत से अक्षरों को हटाने के लिए, LEN फ़ंक्शन के साथ RIGHT फंक्शन का उपयोग करें।
VBA LEN फ़ंक्शन एक स्ट्रिंग में वर्णों की संख्या की गणना करता है:
| 1 | लेन (स्ट्रेक्स) |
फ़ंक्शंस को मिलाकर, हम स्ट्रिंग की शुरुआत से कुछ निश्चित वर्णों को हटा सकते हैं:
| 12345678 | उप दायां उदाहरण_4 ()स्ट्रिंग के रूप में मंद स्ट्रेक्स 'एक स्ट्रिंग चर परिभाषित करें'स्ट्रेक्स = "एबीसीडीईएफ"MsgBox राइट (StrEx, लेन (StrEx)) 'परिणाम है: "ABCDEF"MsgBox Right(StrEx, Len(StrEx) - 1) 'परिणाम है: "BCDEF"MsgBox Right(StrEx, Len(StrEx) - 2) 'परिणाम है: "CDEF"अंत उप |
VBA अंतरिक्ष के बाद पाठ निकालने का अधिकार
पूरे नाम वाली स्ट्रिंग से अंतिम नाम निकालने के लिए, लेन और इंस्ट्र फ़ंक्शन के साथ राइट फंक्शन का उपयोग करें।
VBA LEN फ़ंक्शन एक स्ट्रिंग में वर्णों की संख्या की गणना करता है:
| 1 | लेन (स्ट्रेक्स) |
VBA InStr फ़ंक्शन एक स्ट्रिंग के अंदर एक सबस्ट्रिंग की खोज करता है और सबस्ट्रिंग की स्थिति संख्या देता है।
| 1 | इनस्ट्र (स्ट्रेक्स, "") |
फ़ंक्शंस को मिलाकर, हम किसी वाक्यांश से पहले स्थान के बाद के भाग को निकाल सकते हैं:
| 123456789101112131415 | उप दायां उदाहरण_5 ()स्ट्रिंग के रूप में मंद स्ट्रेक्स 'एक स्ट्रिंग चर परिभाषित करें'स्ट्रेक्स = "ल्यूक स्काईवॉकर"MsgBox Right(StrEx, Len(StrEx) - InStr(StrEx, " "))'परिणाम है: "स्काईवॉकर"स्ट्रेक्स = "लियोनार्डो दा विंची"MsgBox Right(StrEx, Len(StrEx) - InStr(StrEx, " "))परिणाम है: "दा विंची"StrEx = "बल आपके साथ हो सकता है"MsgBox Right(StrEx, Len(StrEx) - InStr(StrEx, " "))'परिणाम है: "बल तुम्हारे साथ हो"अंत उप |
VBA कोड उदाहरण खोज कर थक गए हैं? ऑटोमैक्रो का प्रयास करें!
अंतिम शब्द निकालने का वीबीए अधिकार
एक वाक्यांश के साथ एक स्ट्रिंग से अंतिम शब्द निकालने के लिए, लेन और इंस्ट्रव फ़ंक्शन के साथ राइट फंक्शन का उपयोग करें।
जैसा कि हमने ऊपर देखा, VBA LEN फ़ंक्शन एक स्ट्रिंग में वर्णों की संख्या की गणना करता है:
| 1 | लेन (स्ट्रेक्स) |
VBA InStrRev फ़ंक्शन एक स्ट्रिंग के अंदर एक सबस्ट्रिंग की खोज करता है और सबस्ट्रिंग की स्थिति संख्या देता है। यह वाक्यांश के अंत (दाएं से बाएं) से खोज शुरू करता है लेकिन स्ट्रिंग की शुरुआत (बाएं से दाएं) से स्थिति लौटाता है।
| 1 | इनस्ट्रेव (स्ट्रेक्स, "") |
कार्यों को मिलाकर, हम एक वाक्यांश से अंतिम स्थान के बाद के भाग को निकाल सकते हैं:
| 123456789101112131415 | उप दायां उदाहरण_6 ()स्ट्रिंग के रूप में मंद स्ट्रेक्स 'एक स्ट्रिंग चर परिभाषित करें'स्ट्रेक्स = "ल्यूक स्काईवॉकर"MsgBox राइट (StrEx, लेन (StrEx) - InStrRev (StrEx, ""))'परिणाम है: "स्काईवॉकर"स्ट्रेक्स = "लियोनार्डो दा विंची"MsgBox राइट (StrEx, लेन (StrEx) - InStrRev (StrEx, ""))परिणाम है: "दा विंची"StrEx = "बल आपके साथ हो सकता है"MsgBox राइट (StrEx, लेन (StrEx) - InStrRev (StrEx, ""))परिणाम है: "आप"अंत उप |
