サンプルソースは次のとおり。
'罫線の詳細な位置を設定する
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
 
 

コメント