Sub 罫線を引く②()
With Range("B2:C3")
.Borders(xlEdgeTop).LineStyle = xlContinuous '上
.Borders(xlEdgeBottom).LineStyle = xlContinuous '下
.Borders(xlEdgeRight).LineStyle = xlContinuous '右
.Borders(xlEdgeLeft).LineStyle = xlContinuous '左
.Borders(xlInsideVertical).LineStyle = xlContinuous '中の縦
.Borders(xlInsideHorizontal).LineStyle = xlContinuous '中の横
End With
End Sub
Sub 罫線を引く_外枠だけ()
With Range("B2:C3")
.Borders(xlEdgeTop).LineStyle = xlContinuous '上
.Borders(xlEdgeBottom).LineStyle = xlContinuous '下
.Borders(xlEdgeRight).LineStyle = xlContinuous '右
.Borders(xlEdgeLeft).LineStyle = xlContinuous '左
End With
End Sub