엑셀 VBA 자주쓰는 테이블 서식(테두리,음영) 자동화

엑셀로 표 형식의 테이블을 작성하다 보면 셀서식을 변경하는 경우가 항상 발생하는데요

테두리도 설정하고, 첫번째 행과 열은 음영처리하고, 글자는 굵게, 결과는 빨간색 글자색으로 바꾸는 등 많은 절차를 개인 취향에 따라 반복하게 됩니다.

엑셀 VBA를 활용하면 개인적으로 자주 사용하는 테이블 셀서식을 한 번에 적용할 수 있으니 아래 코드를 참고해서 개인 맞춤으로 만들어 보세요

---

<본문 이동 링크>

1. 코드 소개 

2. 코드 실행 결과

 

<참고할만한 글>

[엑셀 VBA] 매크로 속도 향상 방법_심화편(코드 작성법)

[엑셀 VBA] 글자/배경 색상 변경하는 방법 5가지

---

1. 코드 소개 

- 첫번째 with문은 선택범위 테두리를 설정하는 것으로 필요에 따라 두께는 변경하시면 됩니다.

- 두번째 with문은 선택범위 글자 및 음영부 설정하는 것으로 아래 코드를 참조하시어 개인 취향에 맞게 수정하시면 됩니다.

반응형

Sub 테이블셀서식()
    
    '테이블 테두리 설정
    With Selection.Borders
    
        '모든테두리 기본 설정
        .LineStyle = xlContinuous
        .Weight = xlThin
        
        '윤관석 테두리 굵게 설정
        .Item(xlEdgeLeft).Weight = xlThick
        .Item(xlEdgeTop).Weight = xlThick
        .Item(xlEdgeBottom).Weight = xlThick
        .Item(xlEdgeRight).Weight = xlThick
        
    End With
    
    With Selection
        
        '선택된 테이블 첫번째 행 글자 굵게
        .Rows(1).Font.Bold = True
        
        '선택된 테이블 첫번째 행/열 음영처리(파랑 강조1)
        .Rows(1).Interior.Color = 15189684
        .Columns(1).Interior.Color = 15189684
        
        '선택된 테이블 마지막 행 글자색 빨간색으로 변경
        .Rows(Selection.Rows.Count).Font.Color = vbRed
        
        '선택된 테이블 글자 중앙 정렬
        .HorizontalAlignment = xlCenter
        
    End With
    
End Sub

 

2. 코드 실행 결과

- 범위 선택 후 매크로를 실행하면 위 코드에서 설정한 부분이 한 번에 적용됩니다.

- 단축키로 지정하거나, 리본 메뉴 탭에 추가하면 유용하게 사용하실 수 있습니다.

 (단축키 지정 및 리본메뉴 탭 추가는 아래 글의 끝부분을 참고해주세요)

 

엑셀 VBA 엑셀도형 자동삽입 및 추가 설정 방법

728x90