ColorConstants

ColorConstants의 내장 상수는 8개입니다.

Sub ChangeFontColor()

    With Range("A1")
        .Value = "텍스트 색상 변경"
        .Font.Color = vbRed
    End With
    
End Sub

Sub ChangeBackgroundColor()

    With Range("A1")
        .Value = "배경 색상 변경"
        .Interior.Color = vbYellow
    End With
    
End Sub

Sub ChangeFontAndBackgroundColor()

    With Range("A1")
        .Value = "글꼴과 배경 색상 변경"
        .Font.Color = vbWhite
        .Interior.Color = vbBlue
    End With
    
End Sub

Sub ChangeCellBackgroundColor()

    With Range("A1")
        .Interior.Color = vbYellow ' 셀 A1의 배경색을 노란색으로 변경
        .Offset(1).Interior.Color = vbBlue ' 셀 A2의 배경색을 파란색으로 변경
        .Offset(2).Interior.Color = vbRed ' 셀 A3의 배경색을 빨간색으로 변경
        .Offset(3).Interior.Color = vbGreen ' 셀 A4의 배경색을 초록색으로 변경
    End With
    
End Sub

Color constants