[VBA기초] 테두리선 그리기 (Borders 속성 이용)

엑셀에서 수식의 결과를 구하고 나면 깔끔한 선그리기로 모양을 예쁘게 하고 싶을 경우가 있습니다.

borders.xlsm

Sub 테두리선그리기()
    Dim rngAll As Range
   
    Set rngAll = Range([B2], [E10]) '// 선그릴 구간범위 지정
   
    Range([A1], Cells(Rows.Count, "K")).Borders.LineStyle = xlLineStyleNone
    '// A1 에서 K열의 마지막행까지의 선을 그리지 말아라, 즉 선을 모두 지워라
   
    With rngAll.Borders    '// 구간범위의 선(Borders) 그리기
        .LineStyle = 1        '// 실선(xlContinuous)으로 그려라
        .ColorIndex = 14    '// 색상은 http://link2me.tistory.com/260 참조
        .Weight = xlThin    '// xlThin : 가는 실선, xlThick : 굵은 실선
    End With
   
    rngAll.BorderAround LineStyle:=xlContinuous, Weight:=xlThin, ColorIndex:=22
    '// 외곽선 그리기
End Sub

LineStyle 은

xlContinuous (실선), xlDash (파선), xlDashDot (파선과 점선이 교대로 나타나는 형태), xlDashDotDot (파선과 두개의 점선이 교대로 나타나는 형태), xlDot (점선), xlDouble (이중선), xlLineStyleNone (선 없음), xlSlantDshDot (기울어진 파선)

Weight 는

xlHairline (가장 가는 실선), xlThin (가는 실선), xlMedium (보통굵기의 선), xlThick (굵은 실선)

* 가장 가는 실선(xlHairline) 으로 지정하면 거의 점선처럼 보인다.

* LineStyle 을 지정하지 않고 테스트해보면 된다.

ColorIndex : 테두리 선의 색상을 색 번호 또는 내장 상수를 이용해서 지정

xlColorIndexAutomatic (자동 색상), xlColorIndexNone (색상을 적용하지 않음)

ColorIndex 색상의 숫자에 따른 색깔이 어떻게 표시되는지 확인하려면 http://link2me.tistory.com/260

을 참조하세요