엑셀 VBA 셀 배경색 적용하는 다양한 방법

VBA 소스에서 셀에 색상을 적용하는 방식에는 여러가지가 있습니다. 첫 번째 방법은 VBA 에서 제공하는 내장상수를 이용하는 것입니다. 다음은 RGB() 함수, QBColor() 함수, Colorindex 속성을 이용하는 등 여러 경로를 이용해서 셀의 배경색을 변경할 수 있습니다.

 

 

 

◎ 버튼 이벤트 추가하기

 

 

▼ 먼저 작성한 VBA 함수가 작동할 수 있도록 엑셀 시트에 시작 버튼을 추가하겠습니다. 그리고 버튼과 함수를 연결합니다. 상단 개발 도구 탭 > 삽입 > 양식 컨트롤 항목에 버튼 모양의 아이콘을 클릭해서 시트에 추가합니다.

 

▼ 다음은 버튼과 함수를 연결하기 오른쪽 마우스를 클릭하고 매크로 지정 메뉴를 선택합니다.

 

▼ 매크로 지정 대화상자에서 "매크로 이름" 을 작성하고 오른쪽 끝으로 가서 새로 만들기 버튼을 클릭합니다. 사용자가 지정한 매크로 이름은 실행할 함수명이 됩니다.

 

※ 아래는 참고하면 좋을 만한 글들의 링크를 모아둔 것입니다. ※ ▶ 엑셀 VBA 셀 색상 변경하는 두 가지 방법 ▶ 엑셀 VBA 동일한 셀의 배경색을 구분하여 값을 합산하는 방법 ▶ 엑셀 VBA 시트 더블클릭 이벤트로 셀에 배경색 변경하는 방법 ▶ 엑셀 Excel 셀 배경색 일괄 변경하기 ▶ 엑셀 Excel 화면 레이아웃 색상 테마, 다크모드 변경하기

 

 

◎ 색상 적용 함수 만들기

 

 

▼ 생성한 함수내에 색상 적용이 가능한 소스를 작성하겠습니다. 첫 번째 사용할 속성은 Interior.Color 입니다. Color 속성에 VBA 에서 지정한 상수값을 넣으면 그 색깔이 적용되는 방식입니다. 이외에도 다양한 상수값이 존재합니다.

Sub Color_Click()
    
    Range("A1").Select
    Selection.Interior.Color = vbBlue
    
    Range("A2").Select
    Selection.Interior.Color = vbGreen
    
    Range("A3").Select
    Selection.Interior.Color = vbYellow
    
End Sub

 

▼ Interior.Color 속성에 적용할 수 있는 또 다른 색깔 상수값은 아래와 같습니다.

 

▼ 이렇게 적용 가능한 상수값은 제한적입니다. 좀더 광범위하게 색을 사용하고 싶다면 RGB 함수를 사용해 보세요. 함수의 인수로 3가지 값을 넘겨야 합니다. Red, Green, Blue 의 농도값을 1~255 사이의 숫자값을 입력하면 색깔이 정해집니다.

Sub Color_Click()
    
    Range("A1").Select
    Selection.Interior.Color = RGB(0, 0, 255)
    
    Range("A2").Select
    Selection.Interior.Color = RGB(255, 0, 255)
    
    Range("A3").Select
    Selection.Interior.Color = RGB(0, 255, 255)
    
End Sub

 

▼ 다음은 QBColor 함수입니다. 이것도 Interior.Color 속성에 값을 입력해서 색상을 바꾸는 방식인데, 함수의 인수로 들어가는 수는 0~15 사이로 16가지의 색을 가집니다.

Sub Color_Click()
    
    Range("A1").Select
    Selection.Interior.Color = QBColor(0)

    Range("A2").Select
    Selection.Interior.Color = QBColor(1)
    
    Range("A3").Select
    Selection.Interior.Color = QBColor(2)
    
End Sub

 

▼ QBColor 함수에 들어가는 숫자값에 따라 정해지는 컬러는 다음과 같습니다.

 

▼ 다음은 Selection.Interior 의 속성값인 Color 가 아닌 Colorindex 속성을 사용하는 방법입니다. Colorindex 에서 사용가능한 숫자는 1 ~ 56 까지입니다.

Sub Color_Click()
    
    Range("A1").Select
    Selection.Interior.ColorIndex = 1

    Range("A2").Select
    Selection.Interior.ColorIndex = 2
    
    Range("A3").Select
    Selection.Interior.ColorIndex = 3
    
End Sub

 

▼ ColorIndex 속성에 사용할 1 ~ 56 까지의 숫자에 해당하는 색상표는 아래와 같습니다.

 

※ 아래는 참고하면 좋을 만한 글들의 링크를 모아둔 것입니다. ※ ▶ 엑셀 VBA 셀 색상 변경하는 두 가지 방법 ▶ 엑셀 VBA 동일한 셀의 배경색을 구분하여 값을 합산하는 방법 ▶ 엑셀 VBA 시트 더블클릭 이벤트로 셀에 배경색 변경하는 방법 ▶ 엑셀 Excel 셀 배경색 일괄 변경하기 ▶ 엑셀 Excel 화면 레이아웃 색상 테마, 다크모드 변경하기