今回は指定したセルの範囲に罫線を引く方法について説明します。
【目次】
構文
記述方法は、以下の通りとなります。
(1)上側に罫線を引く
=======================================================================
Range(”[セル範囲]”).Borders(xlEdgeTop).LineStyle = xlContinuous
=======================================================================
[説明]:
[セル範囲]には罫線を引きたいセル範囲を指定します。[セル範囲]は「”」(ダブルクォーテーション)で囲みます。「Borders(xlEdgeTop)」は上側のとの意味になります。「LineStyle = xlContinuous」は実線を引くとの意味になります。内容を纏めると、「指定した[セル範囲]の上側に実線を引いて下さい。」との意味になります。
[記述例]:
Range(”B2:C5”).Borders(xlEdgeTop).LineStyle = xlContinuous
(2)下側に罫線を引く
=======================================================================
Range(”[セル範囲]”).Borders(xlEdgeBottom).LineStyle = xlContinuous
=======================================================================
[説明]:
[セル範囲]には罫線を引きたいセル範囲を指定します。[セル範囲]は「”」(ダブルクォーテーション)で囲みます。「Borders(xlEdgeBottom)」の部分は下側のとの意味になります。「LineStyle = xlContinuous」は実線を引くとの意味になります。内容を纏めると、「指定した[セル範囲]の下側に実線を引いて下さい。」との意味になります。
[記述例]:
Range(”B2:C5”).Borders(xlEdgeTop).LineStyle = xlContinuous
(3)左側に罫線を引く
=======================================================================
Range(”[セル範囲]”).Borders(xlEdgeLeft).LineStyle = xlContinuous
=======================================================================
[説明]:
[セル範囲]には罫線を引きたいセル範囲を指定します。[セル範囲]は「”」(ダブルクォーテーション)で囲みます。「Borders(xlEdgeLeft)」の部分は左側のとの意味になります。「LineStyle = xlContinuous」は実線を引くとの意味になります。内容を纏めると、「指定した[セル範囲]の左側に実線を引いて下さい。」との意味になります。
[記述例]:
Range(”B2:C5”).Borders(xlEdgeLeft).LineStyle = xlContinuous
(4)右側に罫線を引く
=======================================================================
Range(”[セル範囲]”).Borders(xlEdgeRight).LineStyle = xlContinuous
=======================================================================
[説明]:
[セル範囲]には罫線を引きたいセル範囲を指定します。[セル範囲]は「”」(ダブルクォーテーション)で囲みます。「Borders(xlEdgeRight)」の部分は右側のとの意味になります。「LineStyle = xlContinuous」は実線を引くとの意味になります。内容を纏めると、「指定した[セル範囲]の右側に実線を引いて下さい。」との意味になります。
[記述例]:
Range(”B2:C5”).Borders(xlEdgeRight).LineStyle = xlContinuous
(5)上下左右に罫線を引く
=======================================================================
Range(”[セル範囲]”).Borders.LineStyle = xlContinuous
=======================================================================
[説明]:
[セル範囲]には罫線を引きたいセル範囲を指定します。[セル範囲]は「”」(ダブルクォーテーション)で囲みます。「Borders」の後に上記の(1)~(4)の指定が無い場合は上下左右のとの意味になります。「LineStyle = xlContinuous」は実線を引くとの意味になります。内容を纏めると、「指定した[セル範囲]の上下左右に実線を引いて下さい。」との意味になります。
[記述例]:
Range(”B2:C5”).Borders.LineStyle = xlContinuous
(6)罫線を消す
=======================================================================
Range(”[セル範囲]”).Borders.LineStyle = xlLineStyleNone
=======================================================================
[説明]:
[セル範囲]には罫線を消したいセル範囲を指定します。[セル範囲]は「”」(ダブルクォーテーション)で囲みます。「Borders」の後に上記の(1)~(4)の指定が無い場合は上下左右のとの意味になります。「LineStyle = xlLineStyleNone」は罫線を消すとの意味になります。記述内容は、「指定した[セル範囲]の罫線を消して下さい。」との意味になります。
[記述例]:
Range(”B2:C5”).Borders.LineStyle = xlLineStyleNone
使い方
使い方について、具体的に説明していきます。
上側に罫線を引く
指定したセル範囲の上側に罫線を引く方法について説明します。
[記述例]:
※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。
-------------------------------------------------
Sub サンプル()
Range(”B2:C5”).Borders(xlEdgeTop).LineStyle = xlContinuous
End Sub
-------------------------------------------------
内容は、「B2セル~C5セルの範囲で、上側に罫線を引いて下さい。」との意味になります。
[実行例]:
指定したセル範囲の上側に罫線を引く方法についての説明は以上です。
下側に罫線を引く
指定したセル範囲の下側に罫線を引く方法について説明します。
[記述例]:
※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。
-------------------------------------------------
Sub サンプル()
Range(”B2:C5”).Borders(xlEdgeBottom).LineStyle = xlContinuous
End Sub
-------------------------------------------------
内容は、「B2セル~C5セルの範囲で、下側に罫線を引いて下さい。」との意味になります。
[実行例]:
指定したセル範囲の下側に罫線を引く方法についての説明は以上です。
左側に罫線を引く
指定したセル範囲の左側に罫線を引く方法について説明します。
[記述例]:
※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。
-------------------------------------------------
Sub サンプル()
Range(”B2:C5”).Borders(xlEdgeLeft).LineStyle = xlContinuous
End Sub
-------------------------------------------------
内容は、「B2セル~C5セルの範囲で、左側に罫線を引いて下さい。」との意味になります。
[実行例]:
指定したセル範囲の左側に罫線を引く方法についての説明は以上です。
右側に罫線を引く
指定したセル範囲の右側に罫線を引く方法について説明します。
[記述例]:
※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。
-------------------------------------------------
Sub サンプル()
Range(”B2:C5”).Borders(xlEdgeRight).LineStyle = xlContinuous
End Sub
-------------------------------------------------
内容は、「B2セル~C5セルの範囲で、右側に罫線を引いて下さい。」との意味になります。
[実行例]:
指定したセル範囲の右側に罫線を引く方法についての説明は以上です。
上下左右に罫線を引く
指定したセル範囲の上下左右に罫線を引く方法について説明します。
[記述例]:
※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。
-------------------------------------------------
Sub サンプル()
Range(”B2:C5”).Borders.LineStyle = xlContinuous
End Sub
-------------------------------------------------
内容は、「B2セル~C5セルの範囲で、上下左右に罫線を引いて下さい。」との意味になります。
[実行例]:
指定したセル範囲の上下左右に罫線を引く方法についての説明は以上です。
罫線を消す
指定したセル範囲の罫線を消す方法について説明します。
[記述例]:
※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。
-------------------------------------------------
Sub サンプル()
Range(”B2:C5”).Borders.LineStyle = xlLineStyleNone
End Sub
-------------------------------------------------
内容は、「B2セル~C5セル範囲の罫線を消して下さい。」との意味になります。
[実行例]:
指定したセル範囲の罫線を消す方法についての説明は以上です。
おわりに
罫線の引き方をマスターすれば、自動で表を作成する事ができるようになります。是非有効活用してみて下さい。