Uzyskaj nazwany zakres według ciągu w skoroszycie programu Excel, gdy nazwa jest powielana

Question

Aby opracować, załóżmy, że mam dwa nazwane zakresy w moim skoroszycie. Oba nazwane zakresy mają tę samą nazwę (powiedzmy "myName"), ale jedna z nich ma zasięg do arkusza1, a druga ma zasięg do skoroszytu.

Biorąc pod uwagę nazwę (ciąg) nazwanego zakresu, chcę pobrać poziom nazwany Skrócone skoroszytu.

Jeśli korzystam z połączenia natywnego: wb.Names.Item("myName"), funkcja zwraca zakres nazwany w arkuszu.

Jeśli zamiast tego robię: wb.Names.Item("Sheet1!myName"), to oczywiście zwraca zakres nazw zakresów arkusza. Zauważyłem, że mogę użyć tego do określenia specyficznych dla arkusza, ale nie do skoroszytu.

Czy mimo to mogę określić, że skoroszyt ma jeden zakres?

Moje obejście polega na iteracji na liście wszystkich nazw i porównaniu właściwości .Name w celu pobrania zakresu nazwanego zakresu skoroszytu. Działa to, ponieważ właściwość .Name dołącza "Arkusz1!" do arkusza o nazwie Zasięg. Jest to jednak bardzo kosztowne i chcę tego uniknąć.

Answer 1

Kiedy my (JKP i ja) pisaliśmy Name Manager, specjalnie dodaliśmy filtr i komunikat ostrzegawczy dla Duplikatów nazw globalnych/lokalnych, ponieważ wspomniane zachowanie modelu obiektowego Excel prowadzi do trudnych do wykrycia błędów.

Dlatego moją rekomendacją jest nigdy nie używać duplikatów globalnych/lokalnych nazw.

Używamy kodu, aby wykryć, czy nazwa jest zduplikowana globalnie/lokalnie, gdy nadrzędna nazwa lokalna jest aktywna, a następnie w razie potrzeby zmienić arkusze. Zoptymalizowany kod VBA używamy, aby znaleźć lokalną wersję nazwy globalnej to: jego dość szybko, chyba że masz kilkadziesiąt tysięcy nazwisk -

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