選択が名前付き範囲と交差する場合は、その名前付き範囲を選択します。

Question

私が最初に計画していたのは、どれ程の範囲がわかるまで、すべての範囲でこれを繰り返すことでした。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

If Intersect(ActiveCell, Range("M_1")) Is Nothing Then 
Else 
    Range("M_1").Select 
End If 

End Sub 

Answer 1

まず、activecelltarget以来targetには、呼び出し元の範囲として、静的であることを変更したいと思います。また、ちょうどので、あなたは、あなたがtargetは、名前付き範囲の少なくとも一つを交差するかどうかを確認するために名前付き範囲のリストに対してtargetをテストしたい場合はELSE

を使用する必要はありませんあなたのIFにあなたをNOT条件を追加にループを追加

doIntersect = false 
rngCounter = 0 
For each strTestRange in Array("M_1", "M_2", "M_3") 
    If Not Intersect(Target, Range(strTestRange) Is Nothing Then 
     doIntersect = true 
     rngCounter = rngCounter + 1 
    End if 
Next strTestRange 

If doIntersect Then 
     msgbox(rngCounter & " named ranges intersect your selection") 
Else 
     msgbox("None of the named ranges intersected your selection") 
End if 

Answer 2

：

If Not Intersect(Target, Union(Range("M_1"), Range("M_2"), Range("M_3")) Is Nothing Then 

あなたはより多くの制御が必要な場合は、ループを行うことができます。アプリケーションのunionメソッドを使用することができます名前付き範囲を反復処理：名前付き範囲を超える

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Dim nm As Name 
Dim nmStr As String 
For Each nm In ThisWorkbook.Names 
    nmStr = nm.Name 
    If Not Intersect(Target, Range(nmStr)) Is Nothing Then 
     Application.EnableEvents = False 
     Range(nmStr).Select 
     Application.EnableEvents = True 
    End If 
Next nm 

End Sub