엑셀 vba 조건에 맞는 행 전체 강조하기

 

엑사남 20강 숙제

엑셀 파일 다운로드

동적범위 활용한 VBA(2).xlsm

0.06MB

이름정의(동적범위 활용) =OFFSET('성적(2)'!$E$3,0,0,COUNTA('성적(2)'!$E:$E)-1,1)

Sub NY_Find() Dim rngAll As Range Dim rngNY As Range Set rngAll = Range("동적범위_2")     For Each rngNY In rngAll         If rngNY = "여" Then             With rngNY.Offset(0, -3).Resize(1, 10)                 .Font.ColorIndex = 5                 .Font.Bold = True                 .Font.Italic = True             End With         Else         End If     Next End Sub

Sub NY_Start() Dim rngAll As Range Dim rngNY As Range Set rngAll = Range("동적범위_2")     For Each rngNY In rngAll         With rngNY.Offset(0, -3).Resize(1, 10)             .Font.ColorIndex = 1             .Font.Bold = False             .Font.Italic = False         End With      Next End Sub