[VBA] 엑셀에서 셀 글자 크기, 색, 밑줄 등을 VBA 로 변경하는 방법을 알아보자

VBA 를 이용하여 엑셀 셀의 글자 스타일(사이즈, 색, 볼드, 이탤릭, 밑줄 등)을 변경하는 방법을 알아봅시다.

기본 설정 방법

매크로를 통해 확인하면 간단히 확인 할 수 있지만, Font 오브젝트를 이용하면 간단하게 VBA 로 셀의 글자 스타일을 지정할 수 있습니다. 백번 말해봐야 소용 없고 간단한 아래 예제를 보시죠.

Private Sub Cmd1_Click()
    With Sheet1.Range("A1:A10").Font
        .Name = "맑은 고딕"
        .Size = 16
        .FontStyle = "Bold Italic"
        .Underline = True
        .Color = RGB(255, 0, 0)
    End With
End Sub

아래에서 하나씩 알아봅시다.

폰트 바꾸기

Sheet1.Range("A1:A10").Font.Name = "맑은 고딕"

셀의 폰트를 바꾸기 위해서는 Name 속성을 사용하면 됩니다. 보통의 폰트를 바꿀때 상단의 리본 메뉴에 보이는 폰트의 이름 그대로 Name 속성에 넣어주면 됩니다.

글자 크기 바꾸기

Sheet1.Range("A1:A10").Font.Size = 16

셀 내용의 글자 크기를 바꾸려면 Size 속성을 이용하면 됩니다. 단위는 pt 입니다

볼드, 이탤릭 설정하기

내용을 굵게(Bold) 쓰거나 기울임꼴(Italic)로 설정하기 위해서는 두가지 방법이 있습니다. 첫번째는 FontStyle 속성을 사용하는 것이고, 두번째는 Bold, Italic 속성을 사용하는 것입니다.

FontStyle 사용하기

Sheet1.Range("A1:A10").Font.FontStyle = "Bold Italic"

위 예제는 FontStyle 을 사용하여 굵고 기울인 스타일로 내용을 표시하는 방법입니다. FontStyle 은 아래의 값만 받을 수 있다고 합니다.

  • Regular
  • Bold
  • Italic
  • Bold Italic

Bold, Italic 사용하기

Sheet1.Range("A1:A10").Font.Bold = True
Sheet1.Range("A1:A10").Font.Italic = True

FontStyle 과 같은 표현입니다. Bold 와 Italic 에 True 값을 넣어 굵고 기울인 글꼴로 내용을 표시 합니다. 보통의 글꼴(FontStyle 의 Regular)로 표시하고 싶다면 둘 다 False 로 설정하면 되겠네요.

밑줄(Underline)

Sheet1.Range("A1:A10").Font.Underline = True

밑줄을 표시하는 방법입니다. 사용 방법은 Bold 나 Italic 과 같습니다.

글자색 바꾸기

Sheet1.Range("A1:A10").Font.Color = RGB(255, 0, 0)

글자색을 바꾸기 위해서는 Color 속성에 RGB 값을 넣으면 됩니다(위 예제는 빨간색). ColorIndex 속성을 사용할 수도 있지만, ColorIndex 의 각 인덱스가 어떤 값인지도 모르겠고 60개가 안되는 미리 지정된 색상만 표현 가능하니 그냥 Color 속성을 사용하는게 더 좋아보입니다.

참고자료