vba - 使用事件单元格查找范围名称

Question

我是 VBA 编程的初学者。

我有一个单元格是命名范围的一部分。使用该事件单元格，我希望能够找到该单元格所属的范围，并将其作为 Range 对象传递给 VBA 函数或子例程。

任何人都可以为我提供有关如何进行的指导，或者这不可能吗？

提前致谢!

Answer 1

这是一个简单的例子。

代码检查所选单元格是否是命名范围的一部分。如果是这样，则将命名范围传递给函数:

Sub Main()
    Dim nm As Integer

    For nm = 1 To ActiveWorkbook.Names.Count
       If Not Intersect(Selection, Range(ActiveWorkbook.Names(nm).Name)) Is Nothing Then
            Debug.Print MyFunc(Range(ActiveWorkbook.Names(nm).Name)) // Prints TRUE or FALSE
       End If
    Next nm
End Sub

Function MyFunc(Named_Range As Range) As Boolean
    MyFunc = Named_Range.Cells.Count > 2  ~~>Courtesy of `Thomas Inzina`
End Function