|
こんにちは。
S2からS700までセルの左側に細い実線を引きたいと思います。
マクロの記録を使ったら次のようになったのですが、マクロを実行するとS2のセルにしか実線が出ません。
どこが悪いか、どなたかご教示ください。
Range("S2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 1
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 1
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
|
|