글꼴 정리
글꼴을 깔끔하게 정리하고 싶을 때 사용하면 됩니다.
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
'업무 능력 향상 > 엑셀 VBA 기초' 카테고리의 다른 글
| [VBA기초] 틀리기 쉬운 사소한 실수 (0) | 2014.10.02 |
|---|---|
| [VBA기초] 좌우공백 제거 카운트 (0) | 2014.09.07 |
| [VBA기초] 셀 병합하기 및 셀 병합 해제 (0) | 2014.07.26 |
| [VBA기초] 빈셀일 경우 윗셀의 내용으로 채우기 (0) | 2014.07.26 |
| [VBA기초] 셀 병합 해제하고 같은 값으로 채우기 (0) | 2014.07.26 |
Link2Me