Change 이벤트

어느 셀이 변했을 때 이를 받아 처리하는 구문

Change: 값이 변경 되었을 때 / SelectionChange: 클릭했을 때

Private Sub Worksheet_Change(ByVal Target As Range)

Dim strS As String

Dim rngR As Range

Dim lngr As Long

If Target.Count > 1 Then Exit Sub '범위로 지정하면 오류! 해결

strS = Target

Set rngR = Range("a4:i28")

'데이터가 아닌 객체(셀, 범위, 시트, 도형 등)를 변수에 지정할때는 Set 변수명 = 객체

If Intersect(Target, Range("b1")) Is Nothing Then Exit Sub

lngr = Range("B10000").End(xlUp).Row

'B10000셀을 끝이라고 생각하고 올라오면서(xlup)

'첫번째 데이터가 있는 행(row)을 찾아 lngR에 넣어라

rngR.Interior.ColorIndex = 0 '전체 색상 초기화

For i = 4 To lngr

If Range("b" & i) = strS Then

Range("a" & i).Resize(1, 9).Interior.ColorIndex = 6

End If

Next i

End Sub

[과제] 성별과 과목 점수가 설정된 값 이상인 행의 색을 변경하라.