엑셀 리본 메뉴에서 사용하고 있는 글꼴 관련 옵션은 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 동일한 글자색 셀 개수 구하기 |
'엑셀(Excel) > VBA' 카테고리의 다른 글
엑셀 VBA 반복문 For Next, For Each Next 사용하기 (0) | 2023.01.11 |
---|---|
엑셀 VBA 기존 AVERAGE 평균 함수 수정해서 나만의 함수 만드는 방법 (0) | 2023.01.10 |
엑셀 VBA 아티클 전체 목록 (12) | 2022.12.23 |
엑셀 VBA 문서에 포함된 하이퍼링크 한번에 삭제하기 (1) | 2022.11.30 |
엑셀 VBA Application.Evaluate 사용해서 수식 계산하기 (0) | 2022.07.07 |
엑셀 VBA 개체, 속성, 함수, 이벤트 사용법과 사례 검색해서 참고하기 (0) | 2022.04.26 |
엑셀 VBA 콤보박스 ComboBox 의존 관계 데이터 선택 기능 만드는 방법 (1) | 2019.02.28 |
엑셀 VBA Application.GoTo 함수로 시트에 커서 강제 이동시키는 방법 (0) | 2019.01.05 |