[VBA기초] 글꼴 정리

글꼴 정리

글꼴을 깔끔하게 정리하고 싶을 때 사용하면 됩니다.

AcitveCell 이란 현재 커서가 있는 셀을 말합니다. 현재 커서가 있는 셀을 기준으로 해서 정리를 합니다.

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