728x90
열 자동 맞춤
Sub 자동맞춤()
Columns("A:AH").AutoFit '// A열에서 AH열까지 열 자동 맞춤
Columns("A:B").HorizontalAlignment = xlCenter '// A열,B열 가운데 정렬
Rows(1).HorizontalAlignment = xlCenter '// 1행만 가운데 정렬
End Sub
위 코드만으로 열 맞춤을 자동으로 간단하게 해결됩니다.
방법은 엑셀이 띄워진 상태에서 Alt + F11 키를 눌러서 새로운 창이 뜨면 [삽입] - [모듈] 을 누릅니다.
나오는 창에다가 위의 코드를 입력합니다.
그런 다음에 F5키를 누릅니다.
그러면 엑셀의 현재 활성화된 Sheet에 있는 열 자동 맞춤이 됩니다.
'업무 능력 향상 > 엑셀 VBA 기초' 카테고리의 다른 글
| [VBA기초] 요일 구하기 (0) | 2014.05.08 |
|---|---|
| [VBA기초] 엑셀메모 한꺼번에 지우기 (0) | 2014.04.30 |
| [VBA] 글꼴 변경 (0) | 2014.03.09 |
| VBA 데이터 옮기기 (0) | 2014.03.04 |
| VBA 빈행 삽입하기 (6) | 2014.03.02 |
Link2Me