엑셀 VBA 테두리 자동 설정 방법 - 굵은 선 밑줄 넣기

 

엑셀에서 예산, 주소록 등 테이터 작업을 할 때 그룹별로 구분선(굵은 선)을 추가하면 데이터를 깔끔하게 정리할 수 있습니다. 그런데 수작업으로 테두리 선(굵은 선 밑 줄)을 넣다 보면 시간이 많이 걸리는데요. 이번 시간에는 VBA 코드를 사용해서 그룹별로 값이 바뀔 때마다 굵은 선 테두리를 설정하는 엑셀  VBA 테두리 자동 설정 및 굵은 선 밑줄 넣기 방법을 알아보겠습니다.

 

엑셀을 자주 사용하는 직장인 분들이나 데이터 변경이 잦은 분들이 사용하시면 유용한 팁이 될 거 같습니다. 천천히 따라 해 보시기 바랍니다.

 

엑셀 VBA 테두리 자동 설정 하기

실습 목표

- 데이터를 특정 기준(소속)에 따라 그룹화를 진행합니다.

- 소속이 값이 바뀔 때마다 해당 해의 아래쪽에 굵은 테두리 선을 추가합니다

- 테두리 전체는 얇은 선을 기본으로 설정합니다.

 

엑셀 자동 테두리 VBA 코드 실행

1. 시트를 선택한 다음 마우스 오른쪽 버튼을 클릭합니다. 그리고 [코드보기] 메뉴를 클릭합니다.

 

2. vba 코드 편집기 화면이 나타납니다. 

 

 

3. 첨부 파일에 있는 테이터를 복하여에 vba 코드에 복사해 넣습니다.

엑셀 vba 테두리 자동 설정 코드.txt

0.00MB

 

4. 상단에 [▶] 실행 버튼을 클릭합니다. 

 

5. 엑셀 파일에 자동으로 테두리가 굵은 선으로 적용된 것을 확인할 수 있습니다.

 

버튼 만들어 테두리 적용하기

버튼을 만들어 데이터가 수정되면 버튼을 클릭하여 자동으로 테두리가 설정되도록 만들어 보겠습니다.

버튼을 넣기 위해서는 개발자 도구 옵션을 설정해야 합니다. 아래 내용을 참고하시면 됩니다.

https://appadal.tistory.com/534

 

1. 개발 도구에서 삽입 리본 아이콘을 클릭합니다. 양식 컨트롤에서 버튼을 클릭하여 원하는 위치에 버튼을 그려줍니다.

 

2. 매크로 지정 창에서 우리가 만든 메크로 이름을 지정해 줍니다. 그리고 확인 버튼을 클릭합니다.

 

3. 버튼을 클릭하면 '소속'에 따라 자동으로 굵은 테두리 선이 그려지게 됩니다.

 

엑셀 VBA 코드 활용

엑셀 vba 코드 활용 방법을 알아보겠습니다.

 

테두리 굵기 설정

    사용자 정의: 굵기 설정
    borderWeight = xlMedium

 

xlHairline, xlThin, xlMedium, xlThick 중 선택  테두리 굵기를 변경할 수 있습니다. 

 

시트와 데이터 범위 설정

시트와 데이터 범위 설정 Set ws = ThisWorkbook.Sheets("Sheet1") ' 시트 이름 수정
groupColumn = 2 ' "소속" 열에 해당하는 열 번호 (B열)
rangeStartRow = 2 ' 데이터 시작 행 (헤더 다음 행)
rangeEndRow = 31 ' 데이터 끝 행
rangeStartCol = 1 ' 데이터 시작 열 (A열)
rangeEndCol = 6 ' 데이터 끝 열 (F열)

 

- 시트의 이름이 Sheet1로 되어 있습니다. 시트 이름이 다르다면 사용하고 있는 시트 이름으로 변경합니다. 

- 구분 기준이 B열이라면 groupColumn = 2 만약 C열 이라면 '3'으로 변경하시면 됩니다.

- rangeStartRow = 2는 데이터를 시작하는 행입니다. 제목 아랫줄을 생각하시면 됩니다.

- rangeEndRow 데이터가 있는 행까지 테두리를 적용해 주는 값으로 데이터가 있는 행까지 설정해 주시면 됩니다.

 

 

마무리

지금까지 엑셀 VBA 테두리 자동 설정 방법에 대해서 알아보았습니다. VBA를 활용하면 엑셀에서 반복되는 작업을 쉽게 처리할 수 있습니다.

 

저는 요즘 ChatGPT를 이용해서 엑셀 작업을 할 때마다 반복되는 작업은 어떻게 하면 자동으로 할 수 없는지 생각하고 적용해 보고 있습니다. 여러분들도 다양한 자동화 작업에 응용해 보시기 바랍니다.