एक्सेल VBA सबरूटीन: उदाहरण के साथ VBA में Sub को कैसे कॉल करें

मान लीजिए कि आपने यूजर इनपुट डेटा स्वीकार करने के लिए टेक्स्ट बॉक्स के साथ यूजर इंटरफ़ेस बनाया है। आप एक सबरूटीन बना सकते हैं जो टेक्स्ट बॉक्स की सामग्री को साफ़ करता है। ऐसे परिदृश्य में VBA कॉल सबरूटीन उपयुक्त है क्योंकि आप कोई परिणाम वापस नहीं करना चाहते हैं।

सबरूटीन्स का उपयोग क्यों करें

• कोड को छोटे प्रबंधनीय कोड में विभाजित करेंएक औसत कंप्यूटर प्रोग्राम में हज़ारों-हज़ार सोर्स कोड लाइनें होती हैं। इससे जटिलता आती है। सबरूटीन प्रोग्राम को कोड के छोटे-छोटे प्रबंधनीय हिस्सों में तोड़कर इस समस्या को हल करने में मदद करते हैं।
• कोड पुनः प्रयोज्यतामान लीजिए कि आपके पास एक प्रोग्राम है जिसे डेटाबेस तक पहुँचने की आवश्यकता है, प्रोग्राम में लगभग सभी विंडो को डेटाबेस के साथ इंटरैक्ट करने की आवश्यकता होगी। इन विंडो के लिए अलग-अलग कोड लिखने के बजाय, आप एक ऐसा फ़ंक्शन बना सकते हैं जो सभी डेटाबेस इंटरैक्शन को संभालता है। फिर आप इसे अपनी इच्छानुसार किसी भी विंडो से कॉल कर सकते हैं।
• सबरूटीन और फ़ंक्शन स्व-दस्तावेजीकरण हैंमान लीजिए कि आपके पास एक फ़ंक्शन है calculateLoanInterest और दूसरा फ़ंक्शन है connectToDatabase. सबरूटीन/फ़ंक्शन के नाम को देखकर ही प्रोग्रामर यह बता पाएगा कि प्रोग्राम क्या करता है.

सबरूटीन और फ़ंक्शन नामकरण के नियम

सबरूटीन्स और फंक्शन्स का उपयोग करने के लिए कुछ नियमों का पालन करना होता है।

• सबरूटीन या VBA कॉल फ़ंक्शन नाम में स्पेस नहीं हो सकता
• एक्सेल VBA कॉल सब या फ़ंक्शन का नाम किसी अक्षर या अंडरस्कोर से शुरू होना चाहिए। यह किसी संख्या या विशेष वर्ण से शुरू नहीं हो सकता
• सबरूटीन या फ़ंक्शन नाम कीवर्ड नहीं हो सकता। कीवर्ड एक ऐसा शब्द है जिसका विशेष अर्थ होता है VBA. Private, Sub, Function, और End आदि जैसे शब्द कीवर्ड के उदाहरण हैं। कंपाइलर इनका उपयोग विशिष्ट कार्यों के लिए करता है।

VBA सबरूटीन सिंटैक्स

इस उदाहरण का अनुसरण करने के लिए आपको एक्सेल में डेवलपर टैब को सक्षम करना होगा। यदि आप नहीं जानते कि डेवलपर टैब को कैसे सक्षम किया जाता है, तो ट्यूटोरियल पढ़ें VBA Operaमरोड़

यहाँ वाक्यविन्यास में,

Private Sub mySubRoutine(ByVal arg1 As String, ByVal arg2 As String)
    'do something
End Sub

वाक्यविन्यास स्पष्टीकरण

निम्नलिखित सबरूटीन प्रथम और अंतिम नाम स्वीकार करता है और उन्हें संदेश बॉक्स में प्रदर्शित करता है।

अब हम इस Sub Processor को प्रोग्राम और निष्पादित करने जा रहे हैं। आइये इसे देखें।

Private Sub displayFullName(ByVal firstName As String, ByVal lastName As String)
    MsgBox firstName & " " & lastName
End Sub

Private Sub btnDisplayFullName_Click()
    displayFullName "John", "Doe"
End Sub

सारांश

• सबरूटीन कोड का एक टुकड़ा है जो एक विशिष्ट कार्य करता है। सबरूटीन निष्पादन के बाद कोई मान नहीं लौटाता है
• सबरूटीन्स कोड पुनः प्रयोज्यता प्रदान करते हैं
• सबरूटीन्स कोड के बड़े हिस्सों को छोटे प्रबंधनीय कोड में तोड़ने में मदद करते हैं।