VBA - VBA로 셀 테두리 꾸미기 (Excel)

안녕하세요~ 오늘은 Excel에서 VBA로 셀 테두리를 꾸며볼 텐데요.

아래 예제를 함께 보시죠~~

예제 1.  단일 셀을 선택 후 테두리에 스타일 적용하기

Sub border()
 Worksheets(1).Range("B2").Borders.LineStyle = xlDouble
End Sub

LineStyle property를 이용하여 다양한 테두리의 스타일을 적용시킬 수 있습니다!!

아래 표에 Name 혹은 Value 값을 LineStyle에 할당하면 원하는 스타일을 VBA로 꾸밀 수 있겠죠? :)

 

예제 2.  다수의 셀을 선택 후 외/내부 각각 다른 테두리 스타일을 적용하기

Sub border()
 Worksheets(1).Range("B2:C3").Borders.LineStyle = xlDouble
End Sub

위의 코드와 그림과 같이 여러 셀을 범위로 잡고 단순히 LineStyle에 이중선 스타일을 할당해주면 외/내부 테두리 모두 이중선 스타일이 적용되는 것을 확인할 수 있습니다.

그렇다면 외/내부 테두리 스타일을 다르게 적용하려면 어떻게 해야할까요?

BorderAround object를 사용하면 외부 테두리만 스타일을 적용시킬 수 있습니다.

이 특성을 이용해

1. 첫 번째 Borders object로 선택 범위 전체의 테두리 스타일을 적용시킨 뒤

2. 두 번째 BorderAround object로 선택 범위의 외부 테두리 스타일을 덮어 씌우면 됩니다. 

Sub border()
 Worksheets(1).Range("B2:C3").Borders.LineStyle = xlDouble
 Worksheets(1).Range("B2:C3").BorderAround ColorIndex:=3, Weight:=xlThick
End Sub

(뭔가 표가 이쁘진 않네요;;)

 

ColorIndex는 아래 color palette를 참고하세요~~

참고로 Word에서는 외부 obj, 내부 obj가 따로 있어

Excel처럼 덮어 씌운 필요 없이 필요한 obj를 이용하여 스타일을 적용시키면 됩니다.

(알고 보니 Excel에도 있는 건 아니겠죠?? ㅎㅎ)

 

오늘은 Excel에서 border(테두리) 스타일을 VBA로 적용시켜 보았습니다.

실무 문서 작업할 때 표가 많이 쓰이는 만큼 테두리 스타일도 많이 적용시켜야 할 텐데요. VBA로 자동화시켜 업무의 효율성을 극대화시킬 수 있으면 좋겠네요~~

다음 포스팅으로는 Word에서 boder(테두리) 스타일을 VBA로 적용시켜 봐야겠네요.

그럼 다음에 뵈어요~~

좋은 하루 보내세요~