यह आलेख प्रदर्शित करेगा कि VBA स्विच कथन का उपयोग कैसे करें।
VBA स्विच स्टेटमेंट का उपयोग VBA सेलेक्ट केस स्टेटमेंट के समान तरीके से किया जाता है।
स्विच स्टेटमेंट का सिंटैक्स
स्विच स्टेटमेंट एक्सप्रेशन की सूची का मूल्यांकन यह देखने के लिए करता है कि वे सही हैं या गलत, और पहले एक्सप्रेशन का मान लौटाता है जिसका मूल्यांकन सत्य के रूप में किया जाता है। तर्क सूची जोड़े से बनी होती है - एक अभिव्यक्ति और एक मान जो वापस किया जाता है यदि अभिव्यक्ति का मूल्यांकन सत्य के रूप में किया जाता है।
स्विच(एक्सप्र-1, मूल्य-1, [ एक्सपीआर-2, मूल्य-2… , [ एक्सपीआर-एन, मूल्य-एन ]])
VBA प्रक्रिया में स्विच स्टेटमेंट का उपयोग करना
मैक्रो में इसका उपयोग करने के लिए नीचे दिए गए उदाहरण के समान हो सकता है:
1234567 | सब टेस्टस्विच ()स्ट्रिंग के रूप में मंद strCompanyडिम कंपनीआईडी पूर्णांक के रूप मेंकंपनी आईडी = 2strCompany = स्विच (कंपनीआईडी = 1, "ऐप्पल", कंपनी आईडी = 2, "आईबीएम", कंपनी आईडी = 3, "सैमसंग")MsgBox strकंपनियाँअंत उप |
हम स्विच स्टेटमेंट के भीतर भावों से मूल्यों को रखने के लिए एक पूर्णांक चर घोषित कर रहे हैं। फिर हम उस एक्सप्रेशन में निहित मान को वापस करने के लिए एक और स्ट्रिंग वेरिएबल घोषित करते हैं।
रेंज के साथ स्विच स्टेटमेंट का उपयोग करना
उस मान को हार्ड-कोडिंग करने के बजाय जो स्विच कोड में मूल्यांकन करने जा रहा है, हम उस मान का उपयोग कर सकते हैं जिसे हमने एक्सेल सेल में संग्रहीत किया है ताकि हमें जिस स्ट्रिंग की आवश्यकता हो उसे वापस कर सकें।
1234567 | सब टेस्टस्विच ()स्ट्रिंग के रूप में मंद strCompanyडिम कंपनीआईडी पूर्णांक के रूप मेंकंपनी आईडी = रेंज ("ए 2")strCompany = स्विच (कंपनीआईडी = 1, "ऐप्पल", कंपनी आईडी = 2, "आईबीएम", कंपनी आईडी = 3, "सैमसंग")MsgBox strकंपनियाँअंत उप |
इस प्रक्रिया का उपयोग करने के लिए, हमें कार्यपत्रक में कक्ष A2 में एक संख्या की आवश्यकता होगी। फिर हम कंपनी (यानी सैमसंग) का नाम पाने के लिए मैक्रो चला सकते हैं।
यदि हमारे पास सेल A3 में कोई संख्या नहीं है और हम कोड चलाते हैं, तो एक प्रकार की बेमेल त्रुटि वापस आ जाएगी।
वीबीए स्विच के साथ एक कस्टम फ़ंक्शन बनाना
हम वीबीए स्विच का उपयोग करके एक कस्टम फ़ंक्शन भी बना सकते हैं और इसे अपनी कार्यपुस्तिका में उपयोग कर सकते हैं।
123 | फ़ंक्शन स्विचस्टेटमेंट (i के रूप में पूर्णांक) स्ट्रिंग के रूप मेंस्विचस्टेटमेंट = स्विच (i = 1, "Apple", i = 2, "IBM", i = 3, "सैमसंग")अंत समारोह |
इसे अपनी कार्यपुस्तिका में उपयोग करने के लिए, हम इन्सर्ट फंक्शन डायलॉग बॉक्स का उपयोग कर सकते हैं।
सेल A3 में क्लिक करें और फिर फंक्शन बार में इन्सर्ट फंक्शन पर क्लिक करें।
इन्सर्ट फंक्शन डायलॉग बॉक्स से, चुनें उपयोगकर्ता परिभाषित से श्रेणी ड्रॉप डाउन सूची का चयन करें, और फिर चुनें स्विचस्टेटमेंट.
क्लिक ठीक है, और फिर सेल . पर क्लिक करें ए २.
कंपनी का नाम, जैसा कि स्विच स्टेटमेंट में संग्रहीत है, हमारे वर्कशीट में वापस कर दिया जाएगा।