Q10. 셀의 문자색을 바꾸는 방법?

이번에는 셀의 문자색에 대해 생각해 갑니다.
아래 이미지를 참조하십시오.



마지막 Q9 결과의 이미지입니다.
이번에는 이쪽의 이미지를 가공해 갑시다.

어떻게 가공해 가는가 하면, 셀의 문자색은 바뀝니다.
80점 이상을 청색으로, 30점 미만을 적점으로 바꾸는 매크로를 만들어 봅시다.

■ 포인트

포인트는 물론 셀의 문자색을 어떻게 바꿀까 하는 곳.
셀의 문자색은 Range 객체의 Font 속성의 ColorIndex 속성을 사용하는 것이 바뀔 수 있습니다.
수 있습니다.
그러나 ColorIndex 속성의 번호에 해당하는 색상을 미리 확인해야 합니다.

덧붙여서 이번에 사용하는 청색은 5로 적색은 3이 됩니다.

■답변

Sub Q10_Answer()
    Dim r As Range
    For Each r In Range("C3:E15")
        If r.Value > 79 Then
            r.Font.ColorIndex = 5
        End If
        If r.Value < 30 Then
            r.Font.ColorIndex = 3
        End If
    Next r
End Sub

■해설

이번에는 ForEach 문을 사용하여 데이터가 채워진 셀
직접 지정하고 있습니다.
해당 셀 범위 내의 값을 하나씩 보고,
If 문으로 조건 분기하고 있습니다.

r.Font.ColorIndex = 5

위와 같이 설명하면 셀의 문자색을 변경할 수 있습니다.
이 경우 파란색이됩니다.

마지막으로 실행 결과는 여기입니다.