VBA 셀 선택 이벤트(선택한 열 색 추가, 이전 열 색 삭제)

VBA 셀 선택 이벤트(선택한 열 색 추가, 이전 열 색 삭제)

-- Sheet1

 

Public pre_string As Integer

Public Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo test

Dim rs_string As Integer
rs_string = VBA.Right(ActiveCell.Address, (Len(ActiveCell.Address) - 3)) 'ActiveCell.Address


If Selection.Count = 1 And Sheet1.Range("a" & rs_string & ":z" & rs_string).Interior.Color <> RGB(120, 240, 200) Then
If Not Intersect(Target, Range("a2:m" & 1000)) Is Nothing Then


If pre_string = 0 Then
pre_string = 1
End If
If rs_string < 1000 And pre_string > 0 Then '
' MsgBox pre_string
' MsgBox rs_string

Sheet1.Range("a" & pre_string & ":m" & pre_string).Interior.Color = xlNone

Sheet1.Range("a" & rs_string & ":m" & rs_string).Interior.Color = RGB(120, 240, 200)
' MsgBox pre_string

pre_string = rs_string
End If

End If
End If

test:

Exit Sub

End Sub