티스토리 뷰
Sub Line_Grid_Draw(rng As String)
Range(rng).Borders(xlDiagonalDown).LineStyle = xlNone
Range(rng).Borders(xlDiagonalUp).LineStyle = xlNone
With Range(rng).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Range(rng).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Range(rng).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Range(rng).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Range(rng).Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Range(rng).Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range(rng).Borders(xlDiagonalDown).LineStyle = xlNone
Range(rng).Borders(xlDiagonalUp).LineStyle = xlNone
With Range(rng).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Range(rng).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Range(rng).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Range(rng).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Range(rng).Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Range(rng).Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub
.
'엑셀' 카테고리의 다른 글
| 엑셀 vba 입력자동화_비우기( (0) | 2018.11.25 |
|---|---|
| 엑셀 vba Line_Grid_Draw_None (0) | 2018.11.25 |
| 엑셀 vba func_Print_Seting 프린터 설정 (0) | 2018.11.24 |
| 엑셀 vba 출력_업체시트 (0) | 2018.11.24 |
| 엑셀 trFunc_정렬 (0) | 2018.11.24 |