|
ターゲットは、○○を含んでいるか。
もしくは、
ターゲットの中に○○が含まれているか。
みたいな。
実験君
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Application.Intersect(Target, Range("e10"))
If Rg Is Nothing Then
Else
MsgBox Rg.Address
End If
End Sub
ヘルプには共有セルと書いてあるけどね。
使用例
次の使用例は、シート 1 にある 2 つの名前付きセル範囲 rg1 と rg2 の共有セル範囲を選択します。共有セル範囲がない場合は、メッセージを表示します。
Worksheets("Sheet1").Activate
Set isect = Application.Intersect(Range("rg1"), Range("rg2"))
If isect Is Nothing Then
MsgBox "共通部分がありません。"
Else
isect.Select
End If
|
|