Nhận phạm vi được đặt tên theo chuỗi trong sổ làm việc Excel khi tên được nhân đôi

Question

Để xây dựng, giả sử tôi có hai dải ô được đặt tên trong sổ làm việc của mình. Cả hai phạm vi được đặt tên có cùng tên (hãy nói "myName"), nhưng một phạm vi được sắp xếp thành Sheet1 và một phạm vi khác được sắp xếp vào Workbook.

Đặt tên (chuỗi) của Dải ô đã đặt tên, tôi muốn lấy Phạm vi được đặt tên trong Bảng tính.

Nếu tôi sử dụng lệnh gọi gốc: wb.Names.Item("myName"), nó sẽ trả về phạm vi được đặt tên phạm vi trang tính.

Nếu thay vào đó tôi làm: wb.Names.Item("Sheet1!myName"), điều đó rõ ràng trả về phạm vi tên phạm vi trang tính. Tôi đã tìm thấy tôi có thể sử dụng để xác định những tờ cụ thể, nhưng không phải là một bảng tính.

Có cách nào tôi có thể chỉ định tôi muốn sổ làm việc được sắp xếp không?

Giải pháp thay thế của tôi hiện đang lặp qua danh sách tất cả các Tên và so sánh thuộc tính .Name để lấy phạm vi sách được đặt tên Phạm vi đã đặt tên. Điều này làm việc vì thuộc tính .Name gắn thêm một "Sheet1!" vào Phạm vi có tên phạm vi trang tính. Điều này tuy nhiên rất tốn kém để làm, và tôi muốn tránh nó.

Answer 1

Khi chúng tôi (JKP và bản thân mình) viết Name Manager, chúng tôi đã thêm một thông báo lọc và cảnh báo cho Tên toàn cục/địa phương vì hành vi mô hình đối tượng Excel này dẫn đến khó phát hiện lỗi.

Vì vậy, đề xuất của tôi không bao giờ được sử dụng tên Toàn cầu/Địa phương trùng lặp.

Chúng tôi sử dụng mã để phát hiện nếu tên trùng lặp toàn cầu/địa phương với cha mẹ của tên địa phương hoạt động và sau đó chuyển đổi trang tính nếu cần. Mã VBA được tối ưu hóa mà chúng tôi sử dụng để tìm phiên bản địa phương của tên toàn cục là: tốc độ nhanh hợp lý của nó trừ khi bạn có hàng chục nghìn tên -

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