VBA(엑셀 매크로) 글자색, 배경색 바꾸기 (interior, Font)

VBA로 셀에 있는 글자색이나 배경색을 바꿔야 하는 경우가 있다.

셀에 있는 글자색, 배경색을 바꾸는 방법을 알아보도록 하겠다.

 

셀 배경색 설정

1. Cells(x, y).Interior.ColorIndex = 컬러 인덱스

2. Cells(x, y).Interior.Color = RGB(red, green, blue)

배경색은 Cells(x, y)로 부터 접근 가능하다. 

1번의 경우는 컬러인덱스를 사용하는 방법이고

2번의 경우는 RGB를 사용하는 방법이다.

컬러인덱스는 예제와 함께 보도록 하겠다.

 

셀 글자색 설정 

1.Cells(x, y).Font.ColorIndex = 컬러 인덱스

2. Cells(x, y).Font.Color = RGB(red, green, blue)

글자색도 마찬가지로 Cells(x, y)로 부터 접근 가능하다.

1번의 경우는 컬러인덱스를 사용하는 방법이고

2번의 경우는 RGB를 사용하는 방법이다.

 

예제

Sub SetColor()
    Cells(1, 3).Interior.Color = RGB(0, 0, 255)
    Cells(1, 4).Font.Color = RGB(0, 0, 255)
    Cells(1, 4).Value = "Blue"
    
    For i = 1 To 56
        Cells(i, 1).Interior.ColorIndex = i
        Cells(i, 2).Font.ColorIndex = i
        Cells(i, 2).Value = i
    Next i
End Sub

위의 예제는 아래와 같은 결과가 나온다.

1. Cells(1, 3).Interior.Color = RGB(0, 0, 255)

2. Cells(1, 4).Font.Color = RGB(0, 0, 255)

1의 경우는 C1의 배경색을 RGB값을 파랑색 주어 바꾸는 코드고

1의 경우는 D1의 글자색을 RGB값을 파랑색 주어 바꾸는 코드다.

A1부터 A56은 컬러인덱스를 넣어 배경색을 바꾸었고 

B1부터 B56은 컬러인덱스로 글자색을 바꾸었다.