Please Enable JavaScript!
Gon[ Enable JavaScript ]

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

엑셀(Excel)/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 화면 레이아웃 색상 테마, 다크모드 변경하기
반응형
Posted by 녹두장군

댓글을 달아 주세요