엑셀 VBA 폰트(Font) 색상과 스타일, 사이즈, 글꼴 변경하는 방법

엑셀 리본 메뉴에서 사용하고 있는 글꼴 관련 옵션은 VBA 에서 모두 적용이 가능합니다. [홈] 탭의 [글꼴] 그룹에 있는 서식관련 옵션들을 VBA 코드로 하나씩 적용해 보려고 합니다. 아래에서 언급한 소스는 글꼴 종류, 글꼴 사이즈, 글꼴 스타일, 글꼴 색상에 대한 코드입니다.

 

 

▼ 엑셀의 리본 메뉴에서 제공하고 있는 글꼴 서식에 관련된 기능을 VBA 코드로 시트에 있는 데이터를 꾸며 보도록 하겠습니다.

 

▼ 먼저 글꼴 변경을 위한 코드 입니다. Range.Font.name 속성을 이용하며, 속성값으로 글꼴명을 입력해야 합니다. 적용하고 싶은 글꼴명은 알고 있어야겠죠.

Sub 폰트변경()
 
    Dim rng As Range
   
    Set rng = ActiveSheet.Range("B2").CurrentRegion
    rng.Font.name = "나눔 명조"
   
End Sub

 

 

▼ 다음은 글꼴 사이즈 입니다. Range.Font.Size 속성을 이용하며, 단위는 pt 입니다.

Sub 폰트사이즈변경()
 
    Dim rng As Range
   
    Set rng = ActiveSheet.Range("B2").CurrentRegion
    rng.Font.Size = 14
 
End Sub

 

 

※ 아래는 참고하면 좋을 만한 글들의 링크를 모아둔 것입니다. ※ ▶ 엑셀 VBA 셀 색상 변경하는 두 가지 방법 ▶ 엑셀 VBA 주민번호, 이메일 문자열 잘라 내는 방법 ▶ 엑셀 VBA 반복문 For Next, For Each Next 사용하기 ▶ 엑셀 VBA 영역을 입력받는 RefEdit 컨트롤 사용하는 방법 ▶ 엑셀 VBA 동일한 글자색 셀 개수 구하기

 

 

 

 

 

 

 

 

▼ 다음은 글꼴 스타일에 대한 코드입니다. 글꼴 그룹에 있는 스타일은 3가지가 있습니다. Bold 는 글을 굵게 처리하며, Italic 은 기울림꼴 텍스트를 만듭니다. Underline 은 텍스트에 밑줄을 긋는 것입니다. 

 

▼ 3가지 폰트 스타일의 속성은 Bold, Italic, Underline 이며, 적용 여부는 Boolean 으로 판단합니다. 속성에 True 를 입력하면 해당 서식이 적용되는 것이죠.

Sub 폰트스타일적용()
 
    ActiveSheet.Range("B2:E2").Font.Bold = True
    ActiveSheet.Range("B3:E3").Font.Italic = True
    ActiveSheet.Range("B4:E4").Font.Underline = True
 
End Sub

 

 

▼ 폰트 색상을 지정하는 속성은 2가지가 있습니다. Font.Color 과 Font.ThemeColor 입니다. 먼저 Font.Color 부터 알아 보겠습니다. Font.Color 속성으로 입력되는 값은 두 가지 형태가 있습니다. 그림에 나와 있는 것처럼 Constant 상수 값을 넣는 것입니다. 만약 상수값에 없는 색상을 입히고 싶다면 RGB 함수를 사용해야 합니다. 

 

▼ 소스에서도 Constant 상수값으로 vbGreen 을 입력한 것과 RGB 함수를 이용한 두 가지 예제가 있습니다. 그리고 마지막에 있는 ThemeColor 은 색상과 색조를 함께 표현한 것입니다. 10가지가 있으며 종류는 아래와 같습니다.

xlThemeColorDark1 (whites)
xlThemeColorLight1 (blacks)
xlThemeColorDark2
xlThemeColorLight2
xlThemeColorAccent1
xlThemeColorAccent2
xlThemeColorAccent3
xlThemeColorAccent4
xlThemeColorAccent5
xlThemeColorAccent6
 
Sub 폰트색상적용()
 
    ActiveSheet.Range("B2:E2").Font.Color = vbGreen
    ActiveSheet.Range("B3:E3").Font.Color = RGB(255, 0, 0)
    ActiveSheet.Range("B4:E4").Font.ThemeColor = 5 xlThemeColorAccent5
 
End Sub

 

※ 아래는 참고하면 좋을 만한 글들의 링크를 모아둔 것입니다. ※ ▶ 엑셀 VBA 셀 색상 변경하는 두 가지 방법 ▶ 엑셀 VBA 주민번호, 이메일 문자열 잘라 내는 방법 ▶ 엑셀 VBA 반복문 For Next, For Each Next 사용하기 ▶ 엑셀 VBA 영역을 입력받는 RefEdit 컨트롤 사용하는 방법 ▶ 엑셀 VBA 동일한 글자색 셀 개수 구하기