728x90
글꼴 변경
열기준으로 크기와 글꼴을 변경하고 싶을 때 지정하는 간단한 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
'업무 능력 향상 > 엑셀 VBA 기초' 카테고리의 다른 글
| [VBA기초] 엑셀메모 한꺼번에 지우기 (0) | 2014.04.30 |
|---|---|
| [VBA기초] 열 자동 맞춤 (0) | 2014.03.26 |
| VBA 데이터 옮기기 (0) | 2014.03.04 |
| VBA 빈행 삽입하기 (6) | 2014.03.02 |
| VBA 빈셀은 지우고 한글은 우측셀로 이동시키기 (0) | 2014.02.28 |
Link2Me