엑사남 11강 Study
| 엑셀 파일 다운로드 |
| 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 |
728x90
'■ Excel > ㅡExcel VBA Study' 카테고리의 다른 글
| 엑셀 vba 영어를 읽어주는 엑셀 (0) | 2020.05.04 |
|---|---|
| 엑셀 vba 조건에 따른 색 바뀌는 이벤트 매크로 (0) | 2020.05.04 |
| 엑셀 vba 자동매크로, 셀 색 바꾸기, 셀 갯수 판단, 셀 색 원래대로 (0) | 2020.05.03 |
| 엑셀 vba 열었을 때, 로그인창, 비번, 시트보이지 않게 (0) | 2020.05.03 |
| 엑셀 vba 열었을 때, 닫을 때, 이벤트 (0) | 2020.05.03 |