यह ट्यूटोरियल प्रदर्शित करेगा कि ट्रिम, LTrim, और RTrim VBA फ़ंक्शंस के साथ-साथ ट्रिम वर्कशीट फ़ंक्शन का उपयोग कैसे करें।
ट्रिम फंक्शन
वीबीए ट्रिम फ़ंक्शन टेक्स्ट के स्ट्रिंग्स के पहले और बाद में गलत रिक्त स्थान ("ट्रिम्स") को हटा देता है।
टेक्स्ट से पहले और बाद में रिक्त स्थान ट्रिम करें
वीबीए ट्रिम फ़ंक्शन टेक्स्ट के स्ट्रिंग्स से पहले और बाद में रिक्त स्थान हटा देगा:
12345678910 | सब ट्रिमउदाहरण_1()MsgBox ट्रिम ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"MsgBox ट्रिम ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"MsgBox ट्रिम ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"अंत उप |
टेक्स्ट से पहले और बाद में कई जगहों को ट्रिम करें
इसमें टेक्स्ट के पहले और बाद में कई स्पेस को ट्रिम करना शामिल है:
12345678910 | उप ट्रिमउदाहरण_2()MsgBox ट्रिम ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"MsgBox ट्रिम ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"MsgBox ट्रिम ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"अंत उप |
वीबीए ट्रिम शब्दों के बीच एकाधिक रिक्त स्थान नहीं हटाएगा
हालांकि, ट्रिम फ़ंक्शन शब्दों के बीच कई रिक्त स्थान नहीं हटाएगा:
12345678910 | उप ट्रिमExample_3()MsgBox ट्रिम ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"MsgBox ट्रिम ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"MsgBox ट्रिम ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"अंत उप |
वर्कशीट फंक्शन के रूप में ट्रिम करें
हालाँकि, एक्सेल ट्रिम वर्कशीट फ़ंक्शन का उपयोग शब्दों के बीच अतिरिक्त रिक्त स्थान को हटाने के लिए किया जा सकता है:
वीबीए में वर्कशीट ट्रिम फंक्शन का प्रयोग करें
वीबीए में एक्सेल ट्रिम फ़ंक्शन का उपयोग करने के लिए, वर्कशीट फ़ंक्शन का उपयोग करके इसे कॉल करें:
12345678910 | उप ट्रिमExample_4()Msgbox वर्कशीटFunction.Trim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"Msgbox वर्कशीटFunction.Trim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"Msgbox वर्कशीटFunction.Trim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"अंत उप |
VBA कोड उदाहरण खोज कर थक गए हैं? ऑटोमैक्रो का प्रयास करें!
वर्कशीट फंक्शन के बीच अंतर। ट्रिम और वीबीए ट्रिम
यह ट्रिम और वर्कशीट फंक्शन के बीच अंतर प्रदर्शित करेगा। ट्रिम:
1234567891011121314151617 | उप ट्रिमExample_5()Msgbox वर्कशीटFunction.Trim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"Msgbox ट्रिम ("आई लव एक्सेल")'परिणाम है: "मुझे एक्सेल पसंद है"Msgbox वर्कशीटFunction.Trim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"Msgbox ट्रिम ("आई लव एक्सेल")'परिणाम है: "मुझे एक्सेल पसंद है"Msgbox वर्कशीटFunction.Trim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"Msgbox ट्रिम ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"अंत उप |
एक श्रेणी में ट्रिम फ़ंक्शन जोड़ने के लिए VBA का उपयोग करें
ट्रिम वर्कशीट फ़ंक्शन को संपत्ति का उपयोग करके एक श्रेणी में जोड़ा जा सकता है। फॉर्मूला:
123 | उप ट्रिमExample_6()यह वर्कबुक। वर्कशीट ("शीट 1")। रेंज ("बी 1")। फॉर्मूला = "= ट्रिम (ए 1)"अंत उप |
एलट्रीम फंक्शन
LTrim फ़ंक्शन केवल शब्द के बाईं ओर से रिक्त स्थान निकालता है:
12345678910111213141516171819 | उप ट्रिमExample_7()MsgBox LTrim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"MsgBox LTrim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"MsgBox LTrim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"MsgBox LTrim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"MsgBox LTrim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"MsgBox LTrim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"अंत उप |
RTrim समारोह
RTrim फ़ंक्शन केवल शब्द के दाईं ओर से रिक्त स्थान निकालता है:
12345678910111213141516171819 | उप ट्रिमExample_8()MsgBox RTrim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"MsgBox RTrim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"MsgBox RTrim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"MsgBox RTrim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"MsgBox RTrim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"MsgBox RTrim ("मुझे एक्सेल पसंद है")'परिणाम है: "मुझे एक्सेल पसंद है"अंत उप |
ट्रिम, लिट्रिम और रट्रिम शब्दों के बीच रिक्त स्थान को नहीं हटाते हैं।
टेक्स्ट से सभी रिक्त स्थान हटाएं
ट्रिम केवल शब्दों के बीच में अतिरिक्त रिक्त स्थान को हटा देगा, लेकिन टेक्स्ट की एक स्ट्रिंग में सभी रिक्त स्थान को हटाने के लिए, आप बदलें फ़ंक्शन का उपयोग कर सकते हैं:
1234 | उप प्रतिस्थापन उदाहरण ()MsgBox बदलें ("मुझे एक्सेल पसंद है", "", "")परिणाम है: "Iloveexcel"अंत उप |