サンプルソースは次のとおり。
'罫線の詳細な位置を設定する
Sub Example()
With Range("A1:C3")
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeLeft).LineStyle = xlContinuous
End With
End Sub

コメント