वीबीए: कैसे जांचें कि शीट मौजूद है या नहीं (उदाहरण के साथ)

यह जांचने के लिए कि वर्तमान में सक्रिय Excel कार्यपुस्तिका में कोई विशेष शीट मौजूद है या नहीं, आप VBA में निम्नलिखित फ़ंक्शन बना सकते हैं:

 Function sheetExists(some_sheet As String) As Boolean

On Error Resume Next
sheetExists = (ActiveWorkbook.Sheets(some_sheet).Index > 0)

End Function

यह फ़ंक्शन यह बताने के लिए TRUE या FALSE लौटाएगा कि वर्तमान में सक्रिय Excel कार्यपुस्तिका में कोई विशेष शीट नाम मौजूद है या नहीं।

ध्यान दें कि यह फ़ंक्शन केवल यह जाँचता है कि किसी शीट की अनुक्रमणिका संख्या 0 से अधिक है या नहीं।

यदि शीट मौजूद है, तो शीट इंडेक्स नंबर का मान कम से कम 1 होगा, जिससे फ़ंक्शन TRUE का मान लौटाएगा।

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

उदाहरण: यह जांचने के लिए वीबीए का उपयोग करें कि शीट मौजूद है या नहीं

मान लीजिए हमारे पास तीन शीट वाली निम्नलिखित एक्सेल वर्कबुक है:

हम यह जांचने के लिए वीबीए में निम्नलिखित फ़ंक्शन बना सकते हैं कि इस कार्यपुस्तिका में कोई विशेष शीट नाम मौजूद है या नहीं:

 Function sheetExists(some_sheet As String) As Boolean

On Error Resume Next
sheetExists = (ActiveWorkbook.Sheets(some_sheet).Index > 0)

End Function

इसके बाद हम यह जांचने के लिए वर्तमान सक्रिय शीट के सेल A1 में निम्नलिखित सूत्र टाइप कर सकते हैं कि शीट का नाम “टीम” इस कार्यपुस्तिका में मौजूद है या नहीं:

 =sheetExists("Teams")

निम्नलिखित स्क्रीनशॉट दिखाता है कि व्यवहार में इस सूत्र का उपयोग कैसे करें:

फ़ंक्शन TRUE लौटाता है क्योंकि यह शीट नाम कार्यपुस्तिका में मौजूद है।

यह भी ध्यान दें कि यह फ़ंक्शन केस संवेदी नहीं है।

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

हालाँकि, मान लीजिए कि हम जाँचते हैं कि शीट का नाम “कोच” मौजूद है या नहीं:

फ़ंक्शन FALSE लौटाता है क्योंकि यह शीट नाम कार्यपुस्तिका में मौजूद नहीं है।

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

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

वीबीए: किसी कार्यपुस्तिका में शीटों की संख्या कैसे गिनें
वीबीए: किसी अन्य कार्यपुस्तिका से डेटा कैसे निकालें
वीबीए: एकाधिक पंक्तियाँ कैसे सम्मिलित करें