वीबीए में एग्जिट आईएफ स्टेटमेंट का उपयोग कैसे करें (उदाहरण के साथ)

वीबीए में कोई अंतर्निहित एक्ज़िट इफ़ स्टेटमेंट नहीं है, लेकिन आप GoTo स्टेटमेंट के साथ इफ़ स्टेटमेंट का उपयोग करके आसानी से एक का अनुकरण कर सकते हैं।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में यह कैसे करना है।

उदाहरण: VBA में Exit IF स्टेटमेंट का उपयोग कैसे करें

मान लीजिए कि हम एक मैक्रो बनाना चाहते हैं जो उपयोगकर्ता को 10 से कम पूर्णांक दर्ज करने के लिए कहता है और फिर निम्नलिखित करने के लिए IF कथन का उपयोग करता है:

• यदि दर्ज किया गया पूर्णांक 10 से कम है, तो इसे 2 से गुणा करें और परिणाम को सेल ए1 में प्रदर्शित करें।
• यदि दर्ज किया गया पूर्णांक 10 से कम नहीं है, तो IF कथन से बाहर निकलें और एक त्रुटि संदेश उत्पन्न करें।

ऐसा करने के लिए हम निम्नलिखित सिंटैक्स का उपयोग कर सकते हैं:

 SubMultiplySomeValue ()

Dim inputInteger As Integer
     
'get integer from user
inputInteger = InputBox(" Please enter an integer less than 10 ")

'check if integer is less than 10
If inputInteger < 10 Then
Range(" A1 ").Value = inputInteger * 2
Else
GoTo FlagMessage
End If

FlagMessage:
MsgBox “ This number is not less than 10 ”
    
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें 10: से कम पूर्णांक दर्ज करने के लिए प्रेरित किया जाएगा।

मान लीजिए हम मान 5 दर्ज करते हैं और फिर OK दबाते हैं:

चूँकि यह पूर्णांक 10 से कम है, उप-प्रक्रिया हमारे द्वारा दर्ज किए गए मान को 2 से गुणा करेगी और परिणाम को सेल ए1 में प्रदर्शित करेगी:

हालाँकि, मान लीजिए कि हम इसके बजाय मान 15 दर्ज करते हैं:

हमें एक्सेल में निम्नलिखित संदेश बॉक्स प्राप्त होगा:

हमारे द्वारा दर्ज किया गया मान 2 से गुणा नहीं किया जाएगा और सेल A1 में कोई परिणाम प्रदर्शित नहीं किया जाएगा।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए में त्रुटि होने पर सब से कैसे बाहर निकलें
VBA में IFERROR का उपयोग कैसे करें
VBA का उपयोग करके फ़ाइलें कैसे हटाएं