एक्सेल कार्यपुस्तिका में स्ट्रिंग द्वारा नामित रेंज प्राप्त करें जब नाम डुप्लिकेट किया गया है

Question

विस्तृत करने के लिए, मान लें कि मेरे पास मेरी कार्यपुस्तिका में दो नामित श्रेणियां हैं। दोनों नामित श्रेणियों का एक ही नाम है (चलो "myName" कहें), लेकिन एक को शीट 1 पर रखा गया है और दूसरा कार्यपुस्तिका में है।

नामित रेंज का नाम (स्ट्रिंग) दिया गया है, मैं वर्कबुक स्तर नामित रेंज को पकड़ना चाहता हूं।

यदि मैं मूल कॉल का उपयोग करता हूं: wb.Names.Item("myName"), यह शीट नामित रेंज को वापस देता है।

यदि मैं इसके बजाय करता हूं: wb.Names.Item("Sheet1!myName"), जो स्पष्ट रूप से शीट स्कोप्ड नाम सीमा देता है। मैंने पाया है कि मैं शीट विशिष्ट निर्दिष्ट करने के लिए इसका उपयोग कर सकता हूं, लेकिन एक कार्यपुस्तिका नहीं।

क्या वैसे भी मैं निर्दिष्ट कर सकता हूं कि मैं कार्यपुस्तिका को स्कॉप्ड करना चाहता हूं?

मेरा कामकाज वर्तमान में सभी नामों की सूची में पुन: प्रयास कर रहा है, और कार्यपुस्तिका के दायरे नामित रेंज को पकड़ने के लिए नामकरण की तुलना कर रहा है। यह काम करता है क्योंकि .नाम संपत्ति "शीट 1" जोड़ती है। शीट के लिए नामित रेंज स्कॉप्ड। हालांकि यह करने के लिए बहुत महंगा है, और मैं इसे टालना चाहता हूं।

Answer 1

जब हम (जेकेपी और खुद) Name Manager लिख रहे थे तो हमने विशेष रूप से डुप्लिकेट ग्लोबल/स्थानीय नामों के लिए एक फ़िल्टर और चेतावनी संदेश जोड़ा क्योंकि यह एक्सेल ऑब्जेक्ट मॉडल व्यवहार जो आप उल्लेख करते हैं, वह बग का पता लगाने के लिए कठिन होता है।

तो मेरी सिफारिश कभी भी डुप्लिकेट ग्लोबल/स्थानीय नामों का उपयोग नहीं करना है।

हम यह पता लगाने के लिए कोड का उपयोग करते हैं कि कोई नाम स्थानीय नाम के माता-पिता के साथ वैश्विक/स्थानीय डुप्लिकेट है या फिर आवश्यक होने पर शीट स्विच करें।

Function FindNameLocal(oSheet As Worksheet, sName As String) As Name 
     Dim oName As Name 
     Dim strLocalName As String 
     Dim strLocalNameNoQuote 
     Dim strName As String 
     Set FindNameLocal = Nothing 
     If Len(sName) > 0 And Not oSheet Is Nothing And oSheet.Names.Count > 0 Then 
      On Error Resume Next 
      strLocalName = "'" & oSheet.Name & "'!" & sName 
      strLocalNameNoQuote = oSheet.Name & "!" & sName 
      Set FindNameLocal = oSheet.Names(strLocalName) 
      If Err <> 0 Or (FindNameLocal.NameLocal <> strLocalName And FindNameLocal.NameLocal <> strLocalNameNoQuote) Then 
       On Error GoTo 0 
       Set FindNameLocal = Nothing 
       For Each oName In oSheet.Names 
        strName = oName.Name 
        If Len(strLocalName) = Len(strName) Or Len(strLocalNameNoQuote) = Len(strName) Then 
         If strName = strLocalName Or strName = strLocalNameNoQuote Then 
          Set FindNameLocal = oName 
          GoTo GoExit 
         End If 
        End If 
       Next 
      End If 
     End If 
GoExit: 
    End Function