엑셀 vba 조건에 맞는 행 색칠하기

엑사남님의 vba 강의 따라하기 31강

엑셀 파일 다운로드

매크로-조건부색칠.xlsm

0.02MB

Sub If_Color() Dim n_Row As Integer     n_Row = Range("A3") Dim Data_Rng, Test_Rng As Range     Set Data_Rng = Range("B11:B" & n_Row + 10) Range("B11").CurrentRegion.Offset(1, 0). _                     Interior.ColorIndex = 0 If Range("J16") = "이상" Then     For Each Test_Rng In Data_Rng         If Test_Rng.Offset(0, 1) = Range("J10") _             And Test_Rng.Offset(0, 3) = Range("J12") _             And Test_Rng.Offset(0, 4) >= Range("K14") Then          Test_Rng.Resize(1, 5).Interior.Color _                                         = Range("J16").Interior.Color         Else         End If     Next Else     For Each Test_Rng In Data_Rng         If Test_Rng.Offset(0, 1) = Range("J10") _             And Test_Rng.Offset(0, 3) = Range("J12") _             And Test_Rng.Offset(0, 4) <= Range("K14") Then         Test_Rng.Resize(1, 5).Interior.Color _                                     = Range("J16").Interior.Color         Else         End If     Next End If End Sub