ExcelVBA（マクロ）でセルに罫線を引く・消す方法/Borders.LineStyleプロパティの使い方

マクロで罫線を引く方法のご紹介です。

マクロで罫線を引く方法
セルの中で位置を指定して罫線を引く
線の種類を変更する
- 罫線を消す方法
- 使用可能な線の種類
線の太さについて

マクロで罫線を引く方法

罫線（実線）を引く
対象.borders.linestyle = xlContinuous

マクロを開き、Range(“A1:C3”).Borders.LineStyle = xlContinuous（A1～C3の書式設定（罫線）に、実線の罫線を設定する）と記述します。

これを何もないセルA1～C3に対して実行すると……。

「格子」の罫線が描かれました。

セルの中で位置を指定して罫線を引く

Bordersプロパティの後に()を入れて位置を記入することで、罫線を引く箇所を指定することができます（引数を指定しない場合、上記のように「上下左右」を対象とします）。
引数はそれぞれ定数で指定することができ、たとえばRange(“B2”).Borders(xlEdgeTop).LineStyle = xlContinuousと記入すれば、

指定したセルに対して上側だけ罫線が引かれます。

同様にBorders(xlEdgeBottom)で下線、

Borders(xlEdgeLeft)で左線、

Borders(xlEdgeRight)で右線を引くことができます。

ちなみに、B2～D4を指定して上罫線を引くと、

B2～D2だけ上線が引かれます。これは仕様です。

マクロ抜きで複数範囲を選択し、

上線を引いてみるとわかりやすいんですが、

複数範囲を選択して上線を引くと、一番上側（外側）の枠にだけ罫線が適用されます。これは下も右も左も同じです。

今度は選択範囲を広げて、Range(“B2:D8”).Borders(xlInsideHorizontal).LineStyle = xlContinuousを指定すると、

内側の、選択されたセルとセルの間にだけ横線が引かれます（単独セル、横一列のセルに使った場合は何も起きない）。

同様にBorders(xlInsideVertical)を指定すると、選択範囲のセルの間に縦線が引かれます（単独セル、縦一列のセルに使った場合は何も起きない）。このふたつは外枠には線が引かれません。

Range(“B2:D8”).Borders(xlDiagonalDown).LineStyle = xlContinuousと指定すれば、

このように右下に流れる斜線が引けます。

Borders(xlDiagonalUp)を指定すると、左下に流れる斜線となります。

Bordersプロパティで使える位置定数まとめ（xlBordersIndex定数）
上側：xlEdgeTop
下側：xlEdgeBottom
左側：xlEdgeLeft
右側：xlEdgeRight
セル境界水平：xlInsideHorizontal
セル境界垂直：xlInsideVertical
右下がりの斜線：xlDiagonalDown
右上がりの斜線：xlDiagonalUp

線の種類を変更する

罫線を消す方法

罫線を消したい場合は、値にxllinestylenoneを指定します。

罫線（実線）を消す
対象.borders.linestyle = xlLineStyleNone

今度は、Range(“A1:C3”).Borders.LineStyle = xlLineStyleNone（A1～A3の周囲の罫線を消す）と記述します。

実線で囲まれたセルA1～C3に対してこのマクロを実行すると……。。

セルの周囲の実線が消えました。線を消すということは、実際には線の種類を変更しており、xlContinuousやxlLineStyleNone以外の定数を指定することで線の種類を変更できます。

なお、罫線をクリアする場合、斜線は別に指定する必要があります。

ExcelVBA（マクロ）でワークシートの罫線をすべてクリアする方法/Borders.LineStyleプロパティの使い方

シート状の罫線を全てクリアする方法のご紹介です。手動でやるのと同様、斜線はちょっと扱いが別になっています。

使用可能な線の種類

指定できる定数は、次の通りとなります。

LineStyleプロパティで使える定数まとめ（xlLineStyle定数）
実線：xlContinuous
破線：xlDash
点線：xlDot
一点鎖線：xlDashDot
二点鎖線：xlDashDotDot
斜め破線：xlSlantDashDot
二重線：xlDouble
線なし：xlLineStyleNone（Falseでも可）