[엑셀 VBA] 엑사남 12강 #Change 이벤트

[엑셀 VBA] 엑사남 12강 #Change 이벤트

늦은 퇴근시간을 앞당기기 위해

공부합니다^^

몇번을 도전하다 실패한 엑셀VBA를

이번에는 초급을 넘어서보려고 합니다.

 

#학습내용(1)

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim strs As String
    Dim rngR As Range
    Dim i As Long
    
    strs = Target
    Set rngR = Range("F7:L26")
        
    rngR.Interior.ColorIndex = 0
       
    If Intersect(Target, Range("G2")) Is Nothing Then Exit Sub
   
    For i = 7 To 26
        If Range("G" & i) = strs Then
        Range("F" & i).Resize(1, 7).Interior.ColorIndex = 6
    End If
    Next i
    
End Sub

 

 

 

출처 : https://youtu.be/1sw29eXJW9g