アクティブセルを使用して範囲名を検索

Question

私はVBAでのプログラミングについては初心者です。

名前付き範囲の一部であるセルが1つあります。そのアクティブなセルを使用して、そのセルがどの範囲に含まれているかを調べ、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