セルがダイナミックな名前の範囲に属しているかどうかを確認する方法

Question

ダイナミックな名前の範囲がいくつかあります。アクティブセルのセルがそのいずれかに属している場合、VBAをチェックします。

例えば、私はnamerange

nameTest1=OFFSET(A1;0;0;COUNT(A1:A12)) 

を作成していると私は、アクティブセルがこの範囲内にあるかどうかを確認したいです。

私はそれを行うさまざまな方法を見つけましたが、ダイナミックな名前の範囲では見つかりませんでした。

これを行う方法はありますか？

よろしく

テストを行うにはThanasis

Answer 1

、nameTest1は名前付き範囲です。

If Not Application.Intersect(ActiveCell, Range("nameTest1")) Is Nothing Then 
    MsgBox "activecell is in range nameTest1" 
Else 
    MsgBox "activecell is not in range nameTest1" 
End If 

Answer 2

は、アクティブセルが属する名前付き範囲、しようとするかを決定するために、この

For Each nr In ActiveWorkbook.Names 
    If Not Application.Intersect(ActiveCell, Range(nr.Name)) Is Nothing Then 
    MsgBox "activecell intersect with " & nr.Name 
End If 
Next 

Answer 3

私は少しH2SO4からソリューション微調整：あなたの助けを

For Each nr In ActiveWorkbook.Names 
    On Error Resume Next 
    If Not Application.Intersect(ActiveCell, Range(nr.Name)) Is Nothing Then 
     If Err.Number = 0 Then 
      MsgBox "activecell intersect with " & nr.Name 
     End If 
    End If 
    Err.Clear 
Next 

感謝を！