【Worksheet】【Change】
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim j As Integer
i = Target.Row
j = Target.Column
If Intersect(Target, Range("A1:Y65")) Is Nothing Then
Exit Sub
Else
Cells(i, j).Interior.Color = RGB(255, 0, 0) ' 色付け
End If
End Sub
