VBA로 원하는 색상 사용하는 방법 알아보기 I

VBA로 프로그래밍하면서 글자나 셀의 색상을 바꾸고 싶을 경우가 있습니다. 이럴 때 사용할 수 있는 속성은 어떤 것들이 있는지 알아보겠습니다.

 

1. Color 속성

 Color 속성은 VBA 프로그래밍할 때 색상을 사용하는 가장 일반적인 방법입니다.

사용방법은 다음과 같습니다.

 

     개체.Color = 색상 상수 또는 RGB 상수

 

  개체 : 색상을 바꾸고자 하는 글자나 셀 등의 대상을 말합니다.

 

  색상 상수 : 색상을 나타내는 상수로 보통 많이 사용하는 색상을 직접 입력하여 사용합니다.

 

  RGB 상수 : Red, Green, Blue 세 가지 색상의 강도를 0 ~ 255 사이의 값으로 나타내어 그 혼합했을 때의 색상을 나타내게 되며, 이 상수를 통해 여러 가지 색상을 나타낼 수 있습니다.

 

엑셀에서 VBA 프로그램 작성하기

엑셀에서 VBA 프로그램 작성하기

 

 

 

 

 

Color 속성에는 vbBlack, vbWhite, vbRed, vbBlue, vbGreen, vbYellow, vbMargenta, vbCyan이 있습니다.

이들 색상 상수를 나타내도록 VBA 코딩을 하여 엑셀 시트에 표현되도록 아래와 같이 코딩합니다.

 

   Sub color속성()

       Cells(1, 1) = "색상 상수"
       Cells(2, 1) = "vbBlue"
       Cells(2, 2) = "파란색"
       Cells(2, 2).Font.Color = vbBlue
       Cells(2, 3).Interior.Color = vbBlue
    
       Cells(3, 1) = "vbBlack"
       Cells(3, 2) = "검은색"
       Cells(3, 2).Font.Color = vbBlack
       Cells(3, 3).Interior.Color = vbBlack
    
       Cells(4, 1) = "vbRed"
       Cells(4, 2) = "빨간색"
       Cells(4, 2).Font.Color = vbRed
       Cells(4, 3).Interior.Color = vbRed
    
       Cells(5, 1) = "vbGreen"
       Cells(5, 2) = "초록색"
       Cells(5, 2).Font.Color = vbGreen
       Cells(5, 3).Interior.Color = vbGreen
    
       Cells(6, 1) = "vbMagenta"
       Cells(6, 2) = "Magenta"
       Cells(6, 2).Font.Color = vbMagenta
       Cells(6, 3).Interior.Color = vbMagenta
    
       Cells(7, 1) = "vbCyan"
       Cells(7, 2) = "Cyan"
       Cells(7, 2).Font.Color = vbCyan
       Cells(7, 3).Interior.Color = vbCyan
    
       Cells(8, 1) = "vbYellow"
       Cells(8, 2) = "노란색"
       Cells(8, 2).Font.Color = vbYellow
       Cells(8, 3).Interior.Color = vbYellow
    
   End Sub

 

위의 코딩을 실행하면 [그림 1]과 같은 결과를 얻을 수 있습니다.

 

[그림 1] 색상상수 코딩 실행 결과

 

 

 

이번에는 RGB 상수를 사용하여 색상을 표현해 보겠습니다. RGB 상수의 경우에는 경우의 수가 많기 때문에 색상표를 이용하여 값을 확인하여 사용하는 것을 권장드립니다.

색상표는 엑셀 메뉴에서 홈-글꼴-채우기 색을 클릭합니다. ([그림 2] 빨간색 사각형으로 체크된 부분에서 아래쪽 화살표 클릭)

 

[그림 2] 홈 메뉴

 

[그림 3] 채우기 색 메뉴

[그림 3]과 같은 메뉴가 뜨는데 맨 아래에 있는 다른 색(빨간색 사각형으로 표시)을 클릭합니다.

 

[그림 4] 다른 색 메뉴

그러면 [그림 4]와 같은 메뉴창이 출력됩니다. 사용자 지정 탭을 클릭하시고 여러 가지 색상들이 보이는 곳에서 원하는 색상을 마우스로 클릭합니다. ([그림 5]의 1번 부분을 마우스로 클릭)

 

[그림 5] RGB 색상값 확인 방법

그러면 2번으로 표시된 수직 막대의 색상이 선택한 색상으로 변경되며 거기서 원하는 색상을 클릭하면 아래 RGB 색상 값이 표시가 됩니다.

제가 선택한 색상의 RGB 색상값은 (195, 101, 184)입니다. 이를 엑셀 시트에 표시하는 코딩을 하여 실행해 보겠습니다. 아래와 같이 코딩합니다.

 

   Sub RGB상수()
       Cells(10, 1) = "RGB 상수"
       Cells(11, 1) = "RGB(195,101,184)"
       Cells(11, 2).Interior.Color = RGB(195, 101, 184)
   End Sub

 

[그림 6] RGB 상수 코딩 실행 결과

위의 코드를 실행하면 [그림 6]과 같은 결과를 얻을 수 있습니다.