엑셀 VBA(매크로) - 자동으로 선 그리기

VBA를 사용하여 셀에 선을 그려 보도록 하겠습니다.

 

 

개발도구 메뉴에서 Visual Basic 메뉴로 들어갑니다.

 

VBA 창에서 '삽입' 메뉴에서 '모듈(M)'을 눌러서 모듈을 추가합니다.

 

우선 바깥쪽 테두리 선을 그려보도록 하겠습니다.

 

코딩 창에서 아래와 같이 코드를 타이핑 합니다.

---

Sub sbLine()

Range("B2:B3").BorderAround LineStyle:=xlContinuous, Weight:=xlThick, ColorIndex:=1

End Sub

---

VBA로 테두리 그리기

이제는 모든 면에 선을 그리도록 해 보겠습니다.

---

Sub sbLine() 

 

With Range("B4:E20").Borders
    .LineStyle = 1
    .ColorIndex = 1
    .Weight = xlThick
    
End With

 

End Sub

---

VBA로 모든면에 선그리기

컬러는 아래 색상표를 참고하시기 바랍니다.

VBA Color Index

LineStyle은

'xlContinuous(실선)', 'xlDash(파선)', 'xlDashDot(파선과 점선이 교대로 나타남)', 'xlDot(점선)', 'xlDouble(이중선), xlLineStyleNone(선 없음)', 'xlSlantDshDot(기울어진 파선)'

 

 Weight 는

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

 

선을 없애기 

Range("B4:E20").Borders.LineStyle = xlLineStyleNone