VBA में If Else Statement का उपयोग कैसे करें? (उदाहरण सहित)

एक्सेल VBA इफ स्टेटमेंट

कार्यपत्रक में कोई IF विवरण नहीं है और इसका उपयोग केवल VBA कोड में किया जा सकता है, VBA में काम करते समय हम एक शर्त प्रदान कर सकते हैं जो कि IF स्थिति कथन है और यदि यह निर्देशों के एक निश्चित सेट को पूरा करता है तो इसे निष्पादित किया जाता है और यदि स्थिति अनुदेश विफल हो जाती है और फिर कथन निष्पादित किया जाता है।

तार्किक परीक्षणों की बात करें तो VBA अलग नहीं है। यह उसी तरह से काम करता है जैसे कि यह नियमित वर्कशीट में कैसे काम करता है। सभी तार्किक कार्यों में से, "IF" फ़ंक्शन का उपयोग बहुत से किया जाता है। IF का उपयोग करते हुए, हम तार्किक परीक्षण का आयोजन कर सकते हैं और तार्किक परीक्षण से संतुष्ट होने पर निर्णय पर पहुँच सकते हैं और यदि तार्किक परीक्षण से संतुष्ट नहीं हैं तो वैकल्पिक निर्णय भी ले सकते हैं।

नीचे IF इफ कंडीशन का सिंटैक्स है।

आईफि अगर लॉजिकल टेस्ट सही है, तो लॉजिकल टेस्ट FALSE एंड आईएफ है

वीबीए आईएफ है तो एल्स स्टेटमेंट क्या है?

एक बार आपूर्ति की गई तार्किक परीक्षा FALSE है, हमें कोड के भाग के रूप में निष्पादित करने के लिए कुछ वैकल्पिक कार्य की आवश्यकता है। तो "अगर ईएलएसई" का अर्थ है कि यदि तार्किक परीक्षण FALSE है, तो और क्या करने की आवश्यकता है।

नीचे दिए गए उदाहरण को बेहतर ढंग से समझने के लिए, हमने परिणाम की आपूर्ति "10 से अधिक" के रूप में की है यदि केवल तार्किक परीक्षण TRUE है। फिर भी, FALSE तार्किक परिणाम में, हम "10 कम है" के रूप में वैकल्पिक परिणाम की आपूर्ति कर सकते हैं।

इसलिए एक बार तार्किक परीक्षण करने के बाद और अगली पंक्ति में लिखा TRUE भाग कोड, "ELSE" शब्द दर्ज करें।

ELSE का अर्थ है कि यदि तार्किक परीक्षण TRUE नहीं है, तो हमें परिणाम की आवश्यकता है क्योंकि "10 कम है"।

कोड:

उप IF_Else_Example1 () यदि 10> 11 तो MsgBox "10 से अधिक है" Else MsgBox "10 कम है" अंत यदि अंत उप

अब हमारा कोड कम से कम उपरोक्त परिणामों में से किसी एक को देता है। कोड निष्पादित करें और परिणाम देखें।

चूंकि हमने वैकल्पिक परिणाम की आपूर्ति की है यदि तार्किक परीक्षण FALSE है, तो उसने वैकल्पिक परिणाम को "10 कम" के रूप में प्रदर्शित किया है क्योंकि 10 अन्य संख्या 11 से कम है।

उदाहरण

उदाहरण के लिए, नीचे दिए गए डेटा को देखें।

इस डेटा के साथ, हमें प्रत्येक उत्पाद के "मूल्य" के आधार पर स्थिति में पहुंचने की आवश्यकता है। नीचे आने के लिए मानदंड नीचे हैं।

यदि लागत मूल्य> 50 है, तो स्थिति " महंगी " होनी चाहिए , अन्यथा स्थिति " महंगी नहीं " होनी चाहिए ।

यहां हमें लागत मूल्य यानी तार्किक परीक्षण का परीक्षण करना होगा कि लागत मूल्य ५० है या नहीं। यदि तार्किक परीक्षण TRUE है, अर्थात लागत मूल्य 50 से अधिक है, तो हमें "महंगे" के रूप में स्थिति की आवश्यकता है और यदि तार्किक परीक्षण FALSE है, अर्थात, लागत मूल्य 50 से कम है, तो हमें वैकल्पिक परिणाम की आवश्यकता है "महंगा नहीं।"

ठीक है, अब कोड लिखते हैं। इससे पहले, उपरोक्त तालिका को एक्सेल वर्कशीट में कॉपी और पेस्ट करें।

चरण 1: उपप्रकार शुरू करें।

उप IF_ELSE_Example2 () समाप्ति उप

चरण 2: चर को एक इंटीजर डेटा प्रकार के रूप में घोषित करें।

Dim k As Integer

चरण 3: चूंकि हमें एक से अधिक सेल वैल्यू का परीक्षण करने की आवश्यकता होती है, इसलिए हमें कोशिकाओं के माध्यम से लूप के लिए VBA LOOP को नियोजित करने और सभी कोशिकाओं के लिए तर्क को लागू करने की आवश्यकता है।

हमें 2 पंक्ति से 8 वीं पंक्ति तक तार्किक परीक्षण लागू करने की आवश्यकता है , इसलिए 2 से 8 तक LOOP के लिए शुरू करें।

कोड:

K = 2 से 8 के लिए अगला k

चरण 4: इस लूप के अंदर, हमें तार्किक परीक्षण को निष्पादित करने की आवश्यकता है। इसलिए IF स्टेटमेंट खोलें और CELLS प्रॉपर्टी का उपयोग करके पहली सेल चुनें।

कोड:

यिद सेल (k, 2) .वैल्यू> 50 तब

यहाँ कक्ष (k, 2) का अर्थ पंक्ति (k का मान) और स्तंभ 2 है।

चरण 5: यदि यह सेल वैल्यू> 50 है, तो हमें अगले कॉलम सेल में "महंगी" के रूप में परिणाम की आवश्यकता है। तो कोड होगा -

कोड:

कक्ष (k, 3) .ल्यू = "महँगा"

चरण 6: यदि परीक्षण TRUE नहीं है, तो हमें ELSE विवरण परिणामों की आवश्यकता है, अर्थात, "महंगा नहीं है।"

कोड:

उप IF_ELSE_Example2 () डिम k As Integer For k = 2 To 8 यदि सेल (k, 2) .Value> 50 फिर सेल (k, 3) .Value = "महंगा" Els Cells (k, 3) .Value = "नहीं। महँगा "एंड इफ नेक्स्ट के एंड एंड सब

यह कोड 2 nd से 8 वीं-पंक्ति के नंबरों का परीक्षण करेगा और लागत मूल्य के आधार पर परिणाम पर पहुंचेगा।

इस तरह, हम वैकल्पिक परिणामों के लिए इफ-एल्स का उपयोग कर सकते हैं।

याद रखने वाली चीज़ें

  • एल्स स्टेटमेंट एक FALSE लॉजिकल टेस्ट के लिए है।
  • यदि आप एक्सेल में दो से अधिक तार्किक परीक्षण लागू करना चाहते हैं, तो हमें ELSE IF कथन का उपयोग करने की आवश्यकता है।
  • एक से अधिक सेल के लिए कार्य निष्पादन के मामले में, हमें लूप का उपयोग करने की आवश्यकता है।
  • यदि एल्स स्टेटमेंट केवल एक तार्किक परीक्षण का परीक्षण कर सकता है।

दिलचस्प लेख...