【VBA】あるセルを選択したときのアクション
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ‘選択を変えた
If Target.Cells.CountLarge > 1 Then Exit Sub ‘おまじない
If Not Intersect(Target, Range(“CX:CXX”)) Is Nothing And Range(“C” & Target.Row).Value <> Empty Then
‘こうすることで、特定のレンジにカーソルがある場合かつ、そのセルに値がある場合にのみアクションを指定できるハズ