엑셀 vba 이름선택하면 색바꾸기 이벤트

엑사남 11강 Study

 

엑셀 파일 다운로드

이름선택하면 색바꾸기 이벤트.xlsm

0.02MB

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rowN As Long rowN = Cells(Rows.Count, "a").End(xlUp).Row     '범위 입력의 행 번호를 받음 Range("a2:o" & rowN).Interior.ColorIndex = 0     '데이터 입력범위의 색을 초기화 함 If Intersect(Target, Range("b2:b" & rowN)) Is Nothing _                                         Then Exit Sub If Target.Count > 1 Then Exit Sub          If Target.Interior.ColorIndex = 6 Then         Target.Offset(0, -1).Resize(1, 15). _                                     Interior.ColorIndex = 0     Else             Target.Offset(0, -1).Resize(1, 15). _                                     Interior.ColorIndex = 6     End If End Sub