728x90
| 엑사남님의 vba 강의 따라하기 31강 |
| 엑셀 파일 다운로드 |
| 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 |
728x90
'■ Excel > ㅡExcel VBA Study' 카테고리의 다른 글
| 링크 엑셀 게임 (0) | 2020.11.05 |
|---|---|
| 엑셀 vba msgbox, vbYesNo, Dim (0) | 2020.07.02 |
| 엑셀 vba 유저폼 리스트 박스에서 다른 리스트 박스로 복사 (0) | 2020.06.30 |
| 엑셀 vba 유저폼 리스트박스 (0) | 2020.06.29 |
| 엑셀 vba 파일저장 경로 및 공용 변수 선언 (0) | 2020.06.29 |