[Range개체] Font속성

Range 개체의 Font속성을 이용하면 글꼴 설정을 변경하거나 가져올 수 있습니다.

아래 링크는 Font속성의 도움말입니다.

Range.Font property (Excel)

Returns a Font object that represents the font of the specified object.

번역해보니 다음과 같습니다.

지정된 객체의 글꼴을 나타내는 Font 개체를 반환합니다.

이게 무슨 말일까요?

간단하게 말하면 Font속성을 통해 Font개체에서 제공하는 여러가지 속성을 사용할 수 있다는 뜻입니다.

아래 그림에서 보듯이 Font개체의 속성이 모두 나타나는걸 볼 수 있습니다.

아래 그림과 같이 직접 실행창을 통해 현재 상태를 확인할 수 있습니다.

Font속성을 이용한 매크로 예제입니다.

Sub ConditionalFontFormatting()
    Dim rng As Range
    Set rng = Range("A1:A10")    ' 설정할 범위를 지정합니다.

    Dim cell As Range
    
    For Each cell In rng

        ' 문자열의 길이가 10보다 작은 경우 굵은 글꼴로 설정합니다.
        If Len(cell.Value) < 10 Then
            cell.Font.Bold = True
        Else
        End If
        
    Next cell

End Sub

매크로 실행 전

매크로 실행 후

여러 가지 속성을 설정한 매크로 예제입니다.

Sub SetMultipleFontProperties()
    Dim rng As Range
    Dim cell As Range
    Dim i As Long

    Set rng = Range("A1:A10")
    i = 1

    For Each cell In rng
        With cell
            ' 글꼴 이름 변경
            .Font.Name = "Arial"

            ' 글꼴 크기 조절
            .Font.Size = 10 + i

            ' 글꼴 색상 변경
            .Font.Color = RGB(0, i * 25, 0)

            ' 굵은 글씨 설정
            .Font.Bold = (i Mod 2 = 0)

            ' 기울임꼴 설정
            .Font.Italic = (i Mod 3 = 0)

            ' 취소선 설정
            .Font.Strikethrough = (i Mod 4 = 0)

            ' 밑줄 설정
            If i Mod 5 = 0 Then
                .Font.Underline = xlUnderlineStyleSingle
            Else
                .Font.Underline = xlUnderlineStyleNone
            End If

            ' 셀에 텍스트 입력
            .Value = "Text " & i
        End With
        i = i + 1
    Next cell
End Sub

매크로 실행 후 화면입니다.