excel - 查找给定单元格所属的命名范围

Question

我正在编写一个个人宏，它在状态栏上显示有关 ActiveCell 的重要信息，例如它所属的表或数据透视表的名称(如果有的话)，它拥有什么未格式化的值等等。

现在我还想显示包含单元格的命名范围的名称。我想我可以扫描一些名称集合以查找 ActiveWorkbook 并使用 intersect 进行测试，但有没有更简单的方法？

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