विषय - सूची
जांचें कि क्या शीट मौजूद है
हमने एक फ़ंक्शन बनाया है जो परीक्षण करेगा कि कोई शीट या रेंज (किसी विशेष शीट पर) मौजूद है या नहीं। रेंज परीक्षण उपयोगी है यदि आप यह जांचना चाहते हैं कि शीट पर कोई विशेष नामित श्रेणी मौजूद है या नहीं।
| 123456789101112 | 'परीक्षण करें कि क्या एक सीमा एक शीट पर मौजूद है।'शीट मौजूद है या नहीं, यह जांचने के लिए रेंज खाली छोड़ दें'इनपुट:' WhatSheet - पत्रक का स्ट्रिंग नाम (उदा "Sheet1")' WhatRange (वैकल्पिक, डिफ़ॉल्ट = "A1") - श्रेणी का स्ट्रिंग नाम (उदा "A1")फ़ंक्शन रेंज एक्ज़िस्ट्स (स्ट्रिंग के रूप में व्हाट्सएप, स्ट्रिंग के रूप में वैकल्पिक ByVal WhatRange = "A1") बूलियन के रूप मेंरेंज के रूप में मंद परीक्षणत्रुटि पर फिर से शुरू करें अगलापरीक्षण सेट करें = ActiveWorkbook.Sheets(WhatSheet).Range(WhatRange)RangeExists = Err.Number = 0त्रुटि गोटो 0 . परअंत समारोह |
फ़ंक्शन को वीबीए कोड मॉड्यूल के भीतर रखें और आप इस तरह की उप प्रक्रियाओं का उपयोग करके इसे एक्सेस कर सकते हैं:
जांचें कि क्या शीट मौजूद है
| 123 | सब टेस्ट_शीटएक्सिस्ट्स ()MsgBox RangeExists("सेटअप")अंत उप |
जांचें कि क्या रेंज एक शीट पर मौजूद है
| 123 | सब टेस्ट_रेंजएक्सिस्ट्स ()MsgBox RangeExists ("सेटअप", "rngInput")अंत उप |
रेंजएक्सिस्ट्स फंक्शन को एडजस्ट करना
जांचें कि क्या शीट किसी अन्य कार्यपुस्तिका पर मौजूद है
उपरोक्त फ़ंक्शन ने ActiveWorkbook (वर्तमान में सक्रिय कार्यपुस्तिका) को देखा। इसके बजाय आप इस तरह की विशिष्ट कार्यपुस्तिका को देखने के लिए फ़ंक्शन को समायोजित कर सकते हैं:
| 12345678910111213 | 'परीक्षण करें कि क्या एक सीमा एक शीट पर मौजूद है।'शीट मौजूद है या नहीं, यह जांचने के लिए रेंज खाली छोड़ दें'इनपुट:'व्हाट्सबुक - *वर्कबुक ऑब्जेक्ट*' व्हाट्सएप - शीट का स्ट्रिंग नाम (उदा "शीट 1")' WhatRange (वैकल्पिक, डिफ़ॉल्ट = "A1") - श्रेणी का स्ट्रिंग नाम (उदा "A1")फंक्शन रेंज एक्ज़िस्ट्स (व्हाट्सएप के रूप में वर्कबुक, स्ट्रिंग के रूप में व्हाट्सएप, स्ट्रिंग के रूप में वैकल्पिक बायवैल व्हाट्सएप = "ए 1") बूलियन के रूप मेंरेंज के रूप में मंद परीक्षणत्रुटि पर फिर से शुरू करें अगलापरीक्षण सेट करें = WhatBook.Sheets (WhatSheet)। रेंज (WhatRange)RangeExists = Err.Number = 0त्रुटि गोटो 0 . परअंत समारोह |
कार्यान्वयन:
| 1234567 | उप परीक्षण_WBSheet_Exists ()कार्यपुस्तिका के रूप में मंद wbडब्ल्यूबी = एक्टिववर्कबुक सेट करेंMsgBox RangeExists(wb, "Sheet1")अंत उप |
