एक्सेल VBA UCase फ़ंक्शन
VBA में Ucase एक इनबिल्ट फंक्शन है जिसका उपयोग अपरकेस में प्रदान किए गए इनपुट स्ट्रिंग को परिवर्तित करने के लिए किया जाता है। यह एकल तर्क लेता है जो इनपुट के रूप में स्ट्रिंग है और इस फ़ंक्शन द्वारा उत्पन्न आउटपुट एक स्ट्रिंग है, जिसे रखने के लिए एक चीज है यह ध्यान में रखते हुए कि यह फंक्शन सभी फंक्शन को अपरकेस में परिवर्तित करता है, न कि केवल पहले कैरेक्टर को।
ऐसी स्थितियाँ हैं जहाँ हमें कुछ पाठ मानों को Excel में UPPERCASE में बदलने की आवश्यकता है। यह VBA कोड में नियमित वर्कशीट फ़ंक्शन और UCase फ़ंक्शन में UPPER फ़ंक्शन का उपयोग करके किया जा सकता है।
यदि आप पहले से ही VBA में UPPER फ़ंक्शन को खोज रहे हैं, तो आप इसे वर्कशीट फ़ंक्शन क्लास के साथ भी नहीं पाएंगे। VBA में, यह एक पूरी तरह से अलग और संक्षिप्त नाम फ़ंक्शन है, अर्थात "UCASE।" यहाँ "U" का अर्थ "UPPER" है, इसलिए सूत्र "UPPERCASE" को पढ़ता है।
वाक्य - विन्यास
अब, UCASE फ़ंक्शन के सिंटैक्स को देखें।
स्ट्रिंग: यह कुछ भी नहीं है लेकिन जो पाठ मूल्य हम अपरकेस में बदलने की कोशिश कर रहे हैं। यह एक प्रत्यक्ष मूल्य या सेल संदर्भ भी हो सकता है। हम कुछ ही समय में दोनों तरह के उदाहरण देखेंगे।
VBA Ucase का उपयोग करके टेक्स्ट को अपरकेस में कैसे बदलें?
उदाहरण 1
आइए UCase फ़ंक्शन का उपयोग करके टेक्स्ट मान एक्सेल VBA को अपरकेस टेक्स्ट में बदलने का प्रयास करें ।
चरण 1: मैक्रो बनाकर उप-प्रक्रिया शुरू करें।
कोड:
उप UCase_Example1 () उप सब
चरण 2: चर को VBA स्ट्रिंग के रूप में घोषित करें।
कोड:
उप UCase_Example1 () मंद कश्मीर के रूप में स्ट्रिंग अंत उप
चरण 3: "UCASE" फ़ंक्शन को लागू करके चर "k" के मान को असाइन करें।
चरण 4: यहां, एक स्ट्रिंग हमारा लक्षित पाठ मान है जिसे हम अपरकेस में बदलने की कोशिश कर रहे हैं, और स्ट्रिंग मान "एक्सेल VBA है।"
कोड:
उप UCase_Example1 () डिम के अस स्ट्रिंग K = UCase ("एक्सेल vba") एंड सब
चरण 5: संदेश बॉक्स में चर का परिणाम प्रदर्शित करते हैं।
कोड:
उप UCase_Example1 () डिम के रूप में स्ट्रिंग k = UCase ("एक्सेल vba") MsgBox k मैं उप
ठीक है, हम VBA कोडिंग भाग के साथ किया जाता है। संदेश बॉक्स में परिणाम देखने के लिए मैक्रो चलाएँ।
इसलिए अपरकेस फ़ंक्शन सेकंड के एक अंश में पाठ मान "एक्सेल VBA" को "EXCEL VBA" में बदल दिया।
उदाहरण # 2
आइए फ़ंक्शन के सेल संदर्भ का उपयोग करने के उदाहरण को देखें। उसी पाठ मान को मैंने सेल A1 में दर्ज किया है।
चरण 1: हम रेंज बी 1 सेल में परिणाम दिखाएंगे, इसलिए कोड रेंज ("बी") होगा। मूल्य =
कोड:
उप UCase_Example2 () रेंज ("बी 1")। मूल्य = समाप्ति उप
चरण 2: UCASE फ़ंक्शन के माध्यम से सेल B1 में, हम डेटा स्टोर करेंगे, इसलिए UCASE फ़ंक्शन खोलें।
चरण 3: यहां, इस बार स्ट्रिंग मान सेल संदर्भ है। इसलिए सेल संदर्भ को रेंज ("A1") के रूप में दें।
कोड:
उप UCase_Example2 () श्रेणी ("B1")। मान = UCase (श्रेणी ("A1") आदि।) उप उप।
इसीलिए किया।
कोड चलाएँ और B1 सेल में परिणाम देखें।
उदाहरण # 3
उपरोक्त उदाहरण में, हमने ऊपरी मामले में परिवर्तित होने के लिए एकमात्र एकल-सेल मान देखा है। कल्पना कीजिए अगर आपके पास नीचे की छवि की तरह कई नाम हैं।
इन मामलों में, हम हर एक पंक्ति के लिए कोड नहीं लिख सकते हैं, इसलिए हमें लूप के साथ सूत्र को संलग्न करना होगा। नीचे दिया गया कोड उपरोक्त पाठ मानों को एक ही बार में ऊपरी स्थिति में बदल देगा।
कोड:
उप UCase_Example3 () k के लिए लंबे समय तक k = 2 से 8 कक्ष (k, 2) .Value = UCase (कक्ष (k, 1) .Value) अगला k अंत उप।
यह सभी पाठ मानों को पंक्ति 2 से पंक्ति 8 के ऊपरी मामले में निम्नानुसार रूपांतरित कर देगा।
कल्पना करें कि यदि आप सभी चयनित सेल मानों को ऊपरी मामले में बदलना चाहते हैं तो नीचे दिए गए कोड का उपयोग करें।
कोड:
सब UCase_Example4 () डिम रींग के रूप में रेंज सेट Rng = चयन में प्रत्येक आरएनजी के लिए चयन = Rase = UCase (Rng.Value) अगला रिंग अंत उप
इस कोड को काम करने के लिए, पहले हमें उन कोशिकाओं की श्रेणी का चयन करना होगा जिन्हें हम ऊपरी मामले में बदलना चाहते हैं, फिर मैक्रो को चलाएं। केवल चयनित सीमा में, यह पाठ मानों को ऊपरी केस वर्णों में बदल देगा।
