【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
‘こうすることで、特定のレンジにカーソルがある場合かつ、そのセルに値がある場合にのみアクションを指定できるハズ

 

Excel, VBA

Posted by PC_training