まさ工房

ExcelVBAとAcessDBを利用した業務支援ツールを作成する工房です

【Excelマクロ・VBA】罫線を引くにはどうすればいいの?教えて!

       f:id:m_kbou:20190530192157p:plain

今回は指定したセルの範囲に罫線を引く方法について説明します。

 

【目次】

 

構文

記述方法は、以下の通りとなります。

(1)上側に罫線を引く

=======================================================================

Range([セル範囲]).Borders(xlEdgeTop).LineStyle = xlContinuous

=======================================================================

[説明]:

[セル範囲]には、罫線を引きたいセル範囲を指定します。「Borders(xlEdgeTop)」の部分は、上側に罫線を引くとの意味になります。記述内容は、「指定した[セル範囲]の上側に罫線を引いて下さい。」との意味になります。

  

(2)下側に罫線を引く

=======================================================================

Range([セル範囲]).Borders(xlEdgeBottom).LineStyle = xlContinuous

=======================================================================

[説明]:

[セル範囲]には、罫線を引きたいセル範囲を指定します。「Borders(xlEdgeBottom)」の部分は、下側に罫線を引くとの意味になります。記述内容は、「指定した[セル範囲]の下側に罫線を引いて下さい。」との意味になります。

 

(3)左側に罫線を引く

=======================================================================

Range([セル範囲]).Borders(xlEdgeLeft).LineStyle = xlContinuous

=======================================================================

[説明]:

[セル範囲]には、罫線を引きたいセル範囲を指定します。「Borders(xlEdgeLeft)」の部分は、左側に罫線を引くとの意味になります。記述内容は、「指定した[セル範囲]の左側に罫線を引いて下さい。」との意味になります。

  

(4)右側に罫線を引く

=======================================================================

Range([セル範囲]).Borders(xlEdgeRight).LineStyle = xlContinuous

=======================================================================

[説明]:

[セル範囲]には、罫線を引きたいセル範囲を指定します。「Borders(xlEdgeRight)」の部分は、右側に罫線を引くとの意味になります。記述内容は、「指定した[セル範囲]の右側に罫線を引いて下さい。」との意味になります。

 

(5)上下左右に罫線を引く

=======================================================================

Range([セル範囲]).Borders.LineStyle = xlContinuous

=======================================================================

[説明]:

[セル範囲]には、罫線を引きたいセル範囲を指定します。「Borders」の後に上記の(1)~(4)の指定が無い場合は、上下左右に罫線を引くとの意味になります。記述内容は、「指定した[セル範囲]の上下左右に罫線を引いて下さい。」との意味になります。

 

(6)罫線を消す

=======================================================================

Range([セル範囲]).Borders.LineStyle = xlLineStyleNone

=======================================================================

[説明]:

[セル範囲]には、罫線を消したいセル範囲を指定します。「xlLineStyleNone」は罫線を消して下さいとの意味になります。記述内容は、「指定した[セル範囲]の罫線を消して下さい。」との意味になります。

 

使い方

使い方について、具体的に説明していきます。

上側に罫線を引く

指定したセル範囲の上側に罫線を引く方法について説明します。

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()
    Range(”B2:C5”).Borders(xlEdgeTop).LineStyle = xlContinuous
End Sub

-------------------------------------------------

内容は、「B2セル~C5セルの範囲で、上側に罫線を引いて下さい。」との意味になります。

[実行例]:

f:id:m_kbou:20190530192041p:plain

指定したセル範囲の上側に罫線を引く方法についての説明は以上です。

 

下側に罫線を引く

指定したセル範囲の下側に罫線を引く方法について説明します。

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()
    Range(”B2:C5”).Borders(xlEdgeBottom).LineStyle = xlContinuous
End Sub

-------------------------------------------------

内容は、「B2セル~C5セルの範囲で、下側に罫線を引いて下さい。」との意味になります。

[実行例]:

f:id:m_kbou:20190530192056p:plain

指定したセル範囲の下側に罫線を引く方法についての説明は以上です。

 

左側に罫線を引く

指定したセル範囲の左側に罫線を引く方法について説明します。

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()
    Range(”B2:C5”).Borders(xlEdgeLeft).LineStyle = xlContinuous
End Sub

-------------------------------------------------

内容は、「B2セル~C5セルの範囲で、左側に罫線を引いて下さい。」との意味になります。

[実行例]:

f:id:m_kbou:20190530192111p:plain

指定したセル範囲の左側に罫線を引く方法についての説明は以上です。

 

右側に罫線を引く

指定したセル範囲の右側に罫線を引く方法について説明します。

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()
    Range(”B2:C5”).Borders(xlEdgeRight).LineStyle = xlContinuous
End Sub

-------------------------------------------------

内容は、「B2セル~C5セルの範囲で、右側に罫線を引いて下さい。」との意味になります。

[実行例]:

f:id:m_kbou:20190530192125p:plain

指定したセル範囲の右側に罫線を引く方法についての説明は以上です。

 

上下左右に罫線を引く

指定したセル範囲の上下左右に罫線を引く方法について説明します。

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()
    Range(”B2:C5”).Borders.LineStyle = xlContinuous
End Sub

-------------------------------------------------

内容は、「B2セル~C5セルの範囲で、上下左右に罫線を引いて下さい。」との意味になります。

[実行例]:

f:id:m_kbou:20190530192139p:plain

指定したセル範囲の上下左右に罫線を引く方法についての説明は以上です。

 

罫線を消す

指定したセル範囲の罫線を消す方法について説明します。

[記述例]:

※以下の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方については、VBEの開き方を参考にして下さい。

-------------------------------------------------

Sub サンプル()
    Range(”B2:C5”).Borders.LineStyle = xlLineStyleNone
End Sub

-------------------------------------------------

内容は、「B2セル~C5セル範囲の罫線を消して下さい。」との意味になります。

[実行例]:

f:id:m_kbou:20190530193904p:plain

指定したセル範囲の罫線を消す方法についての説明は以上です。

 

おわりに

罫線の引き方をマスターすれば、自動で表を作成する事ができるようになります。是非有効活用してみて下さい。