반응형
● 선 스타일
Sub LineStyle()
Dim ws As Worksheet
Dim style_rng As Range
'worksheet acativate
Set ws = Worksheets(1)
'범위 지정
Set style_rng = Range("a1", "a10")
'선제거
style_rng.Borders.LineStyle = xlLineStyleNone
'실선
style_rng.Borders.LineStyle = xlContinuous
'파선
style_rng.Borders.LineStyle = xlDash
'점선
style_rng.Borders.LineStyle = xlDot
'이중선
style_rng.Borders.LineStyle = xlDouble
End Sub
반응형
'[VBA]' 카테고리의 다른 글
[VBA] 범위 합계 구하기 (0) | 2021.04.16 |
---|---|
[VBA] 중복 제거 (0) | 2021.04.16 |
[VBA] 날짜 변수 생성,날짜 데이터 필터 (0) | 2021.03.16 |
[VBA] 필터 활성,비활성화 and 필터 데이터 모두 보이기 (0) | 2021.03.16 |
[VBA] vba 실행시간 측정 로그출력 (0) | 2021.03.16 |