वीबीए फ़ंक्शन से मान कैसे वापस करें (उदाहरण के साथ)

VBA में किसी फ़ंक्शन से कोई मान वापस करने के लिए, आपको फ़ंक्शन नाम पर मान निर्दिष्ट करना होगा।

उदाहरण के लिए, हम दो मानों को विभाजित करने के लिए निम्नलिखित फ़ंक्शन बना सकते हैं और फिर विभाजन परिणाम लौटा सकते हैं:

 Function DivideValues(x,y)
    DivideValues = x / y
End Function

इस फ़ंक्शन का नाम DivideValues है, इसलिए इस फ़ंक्शन से एक मान वापस करने के लिए हमें DivideValues से उसी नाम के एक वेरिएबल में x/y का परिणाम निर्दिष्ट करने की आवश्यकता है।

यदि आपके फ़ंक्शन में यदि अन्यथा तर्क शामिल है, तो आप फ़ंक्शन नाम पर कई बार मान निर्दिष्ट कर सकते हैं।

उदाहरण के लिए, यदि आप शून्य से विभाजित करने का प्रयास करते हैं, तो आप निम्न फ़ंक्शन बना सकते हैं जो “शून्य से विभाजित नहीं किया जा सकता” लौटाता है, या बस विभाजन का परिणाम लौटाता है:

 Function DivideValues(x,y)
    If y = 0 Then
      DivideValues = " Cannot divide by zero "
    Else
      DivideValues = x / y
    End If
End Function

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

उदाहरण: वीबीए फ़ंक्शन से मान कैसे वापस करें

मान लीजिए हम सेल A2 के मान को सेल B2 के मान से विभाजित करने के लिए VBA में एक फ़ंक्शन बनाना चाहते हैं:

ऐसा करने के लिए हम निम्नलिखित फ़ंक्शन बना सकते हैं:

 Function DivideValues(x,y)
    DivideValues = x / y
End Function

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

फ़ंक्शन 5 का मान लौटाता है, जो 50 को 10 से विभाजित करने का परिणाम है।

हम एक फ़ंक्शन भी बना सकते हैं जो पहले यह जांचने के लिए इफ एल्स तर्क का उपयोग करता है कि जिस मान को हम विभाजित कर रहे हैं वह शून्य के बराबर नहीं है:

 Function DivideValues(x,y)
    If y = 0 Then
      DivideValues = " Cannot divide by zero "
    Else
      DivideValues = x / y
    End If
End Function

यदि हम सेल B2 में मान बदलते हैं और फिर विभाजन करने के लिए इस फ़ंक्शन का उपयोग करते हैं, तो हमें निम्नलिखित परिणाम प्राप्त होंगे:

चूँकि हमने शून्य से विभाजित करने का प्रयास किया, “शून्य से विभाजित नहीं किया जा सकता” फ़ंक्शन द्वारा लौटाया जाता है।

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

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

वीबीए में कोड के एक ब्लॉक पर टिप्पणी कैसे करें
VBA का उपयोग करके कैसे जांचें कि फ़ाइल मौजूद है या नहीं
VBA का उपयोग करके फ़ोल्डर्स कैसे बनाएं