使用活动单元格查找范围名称

我是VBA编程的初学者。

我有一个单元格是命名范围的一部分。 使用该活动单元格，我希望能够find该单元格的一部分，并将其作为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