名前が重複しているときにExcelワークブックで名前付き範囲を文字列で取得

Question

詳細を述べると、ワークブックに2つの名前付き範囲があるとします。両方の名前付き範囲は同じ名前（「myName」と言う）がありますが、1つはSheet1にスコープされ、もう1つはブックにスコープされます。

名前付き範囲の名前（文字列）を指定すると、ブックレベルの名前付き範囲を取得したいと考えています。

ネイティブコール：wb.Names.Item("myName")を使用すると、名前付き範囲のシートスコープが返されます。

代わりに私が：wb.Names.Item("Sheet1!myName")を実行すると、明らかにシートスコープの名前範囲が返されます。私はこれを使用してシート固有のものを指定できますが、ワークブックは指定できないことがわかりました。

とにかく私はワークブックスコープ1を指定できますか？

現在、すべての名前のリストに対して反復処理を行い、.Nameプロパティを比較してブックのスコープ名前付き範囲を取得しています。これは、.Nameプロパティが "Sheet1！"シートスコープの名前付き範囲に追加します。しかしこれは非常にコストがかかり、私はそれを避けたい。

Answer 1

私たち（JKPと自分自身）がName Managerと書いていたときに、このExcelオブジェクトモデルの動作がバグを検出しにくくなるため、特に重複したグローバル/ローカル名のフィルタと警告メッセージが追加されました。

私はグローバル/ローカル名を重複して使用しないことを推奨します。

ローカル名の親とアクティブな名前がグローバル/ローカルで重複しているかどうかを検出し、必要に応じてシートを切り替えます。グローバル名のローカルバージョンを見つけるために使用する最適化されたVBAコードは次のとおりです。数万の名前を持たない限り、それはかなり高速です -

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