728x90
| 엑사남 VBA 21강 따라하며 배우기 |
| 엑셀 파일 다운로드 |
| Sub ColorTest() Dim rngC As Range Dim rngT As Range Set rngC = Range("b4:k17") rngC.Interior.ColorIndex = 0 For Each rngT In rngC If rngT <> "" Then rngT.Offset(0, 1).Interior.ColorIndex = rngT End If Next rngT End Sub |
| Sub ColorZero() Dim rngC As Range Dim rngT As Range Set rngC = Range("b4:l17") rngC.Interior.ColorIndex = 0 End Sub |
| Sub ColorTest2() Dim rngC As Range Dim rngT As Range Set rngC = Range("c4:l17") For Each rngT In rngC If rngT.Interior.ColorIndex > 0 Then rngT.Offset(0, 1) = rngT.Interior.ColorIndex End If Next rngT End Sub |
| Sub ColorZero2() Dim rngC As Range Dim rngT As Range Set rngC = Range("b4:m17") rngC = "" End Sub |
728x90
'■ Excel > ㅡExcel VBA Study' 카테고리의 다른 글
| 엑셀 vba 범위, 합집합, 교집합, 콤마(쉼표) (0) | 2020.06.23 |
|---|---|
| 엑셀 vba InputBox로 값 및 범위 입력받기 (0) | 2020.06.18 |
| 엑셀 vba 조건에 맞는 행 전체 강조하기 (2) | 2020.06.03 |
| 엑셀 vba 이름정의 활용한 vba 코드 (0) | 2020.05.28 |
| 엑셀 vba 다른 시트에 조건으로 필터링하기 (0) | 2020.05.21 |