이름이 중복 될 때 Excel 통합 문서의 문자열로 명명 된 범위 가져 오기

Question

통합 문서에 두 개의 명명 된 범위가 있다고 가정 해 보겠습니다. 두 명명 된 범위는 동일한 이름 ("myName"이라고합시다)을 가지지 만 하나는 Sheet1에 범위가 지정되고 다른 하나는 통합 문서의 범위가됩니다.

명명 된 범위의 이름 (문자열)이 지정되면 명명 된 범위의 통합 문서 수준을 가져 오려고합니다.

네이티브 호출을 사용하는 경우 : wb.Names.Item("myName"), 범위가 지정된 시트 범위를 반환합니다.

그 대신에 : wb.Names.Item("Sheet1!myName")을 입력하면 시트 범위의 이름 범위가 분명히 반환됩니다. 나는 시트 특정 것들을 지정하기 위해 이것을 사용할 수 있지만 통합 문서는 지정할 수 없다는 것을 알았다.

어쨌든 통합 문서 범위를 지정할 수 있습니까?

해결 방법 현재 모든 해결 방법은 모든 이름 목록을 반복하고 .Name 속성을 비교하여 통합 문서 범위 명명 된 범위를 가져옵니다. .Name 속성을 "Sheet1!"추가하기 때문에이 작동합니다. 시트 범위의 명명 된 범위. 그러나 이것은 매우 비용이 많이 들고, 나는 그것을 피하고 싶습니다.

Answer 1

우리가 (JKP와 나 자신이) Name Manager을 작성할 때 우리가 특별히 언급 한 Excel 개체 모델 동작이 버그를 찾기 어렵 기 때문에 중복 된 전역/로컬 이름에 대한 필터 및 경고 메시지를 추가했습니다.

내 추천은 절대 중복 된 글로벌/로컬 이름을 사용하지 않아야합니다.

우리는 코드가 로컬 이름의 부모와 전역/로컬이 중복되었는지 감지하고 필요한 경우 시트를 전환합니다. 당신은을 사용하는 방법을

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