[VBA] 글꼴 변경

글꼴 변경

열기준으로 크기와 글꼴을 변경하고 싶을 때 지정하는 간단한 VBA 코드입니다.

Sub 글꼴정리()
    Dim rngTarget As Range
    Dim rngC As Range
   
    Application.ScreenUpdating = False      '//화면 업데이트 (일시)정지
    ActiveCell.Select        '// ActiveCell 이 있는 셀 아래를 글꼴 변경
    Set rngTarget = Range(Cells(ActiveCell.Row, "A"), Cells(Rows.Count, "A").End(3))
   
    For Each rngC In rngTarget
        With rngC
           .Font.Name = "Tahoma"
           .Font.Size = 11
        End With
        With rngC.Offset(0, 1)
           .Font.Name = "맑은 고딕"
           .Font.Size = 10.5
        End With
        With rngC.Offset(0, 2)
           .Font.Name = "맑은 고딕"
           .Font.Size = 10.5
        End With
    Next rngC
    Set rngTarget = Nothing '// 변수 초기화  
    MsgBox "작업 완료"
End Sub