查找給定單元格屬於的命名範圍

Question

我正在編寫一個個人宏，它顯示有關狀態欄上ActiveCell的重要信息，如它所屬的表或樞軸表的名稱（如果有），什麼未格式化值它擁有和這樣的。

現在我還想顯示單元格包含的命名範圍的名稱。我想我可以通過ActiveWorkbook的一些名稱集合進行掃描並使用相交進行測試，但有沒有更簡單的方法？

Answer 1

最簡單的方法是遍歷名稱。

Function getRangeNames(Target As Range) 
    Dim n As Name 
    Dim s As String 
    For Each n In ThisWorkbook.Names 
     On Error Resume Next 
     If Not Intersect(Target, n.RefersToRange) Is Nothing Then 
      s = s & n.Name & ", " 
     End If 
     On Error GoTo 0 
    Next n 

    getRangeNames = Left(s, Len(s) - 2) 
End Function