罫線を引くVBA Macro

VBAでセルに罫線を引く方法として、次のようなものがあります。

• LineStyleプロパティを使用する方法
• BorderAroundメソッドを使用する方法

セルの周りに罫線を引くVBA①

Sub DrawBorders()
    ' A1セルの周りに罫線を引く
    Range("A1").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("A1").Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("A1").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("A1").Borders(xlEdgeTop).LineStyle = xlContinuous
End Sub

A1セルの周りに罫線が引かれます。下左右上をそれぞれ指定しています。

セルの周りに罫線を引くVBA②

Sub DrawBorders()
    ' A1セルの周りに罫線を引く
    Range("A1").Borders.LineStyle = xlContinuous
End Sub

BordersプロパティのLineStyleプロパティを使用して、まとめてA1セルの周りの罫線を引くように指定しています。

セルの周りに罫線を引くVBA③

Sub DrawBorders()
    ' A1セルの周りに罫線を引く
    Range("A1").BorderAround color:=RGB(0, 0, 0), Weight:=xlThin
End Sub

BorderAroundメソッドを使用して、A1セルの周りの罫線を引くように指定しています。