教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について説明していきます。

【ExcelVBA セル操作】色々なスタイルの罫線を引くにはどうすればいいの?教えて!

       f:id:m_kbou:20200225104055p:plain

今回は色々なスタイルの罫線を引く方法について説明します。

 

【目次】

 

構文

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

(1)破線を引く

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

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

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

[説明]:

[セル範囲]には罫線を引きたいセル範囲を指定します。[セル範囲]は「”」(ダブルクォーテーション)で囲みます。Borders」は上下左右のとの意味になります。「LineStyle = xlDash」は破線を引くとの意味になります。内容を纏めると、「指定した[セル範囲]の上下左右に破線を引いて下さい。」との意味になります。

[記述例]:

Range("B2:C5").Borders.LineStyle = xlDash

 

(2)点線を引く

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

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

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

[説明]:

[セル範囲]には罫線を引きたいセル範囲を指定します。[セル範囲]は「”」(ダブルクォーテーション)で囲みます。Borders」は上下左右のとの意味になります。「LineStyle = xlDot」は点線を引くとの意味になります。内容を纏めると、「指定した[セル範囲]の上下左右に点線を引いて下さい。」との意味になります。

[記述例]:

Range("B2:C5").Borders.LineStyle = xlDot

 

(3)二重線を引く

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

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

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

[説明]:

[セル範囲]には罫線を引きたいセル範囲を指定します。[セル範囲]は「”」(ダブルクォーテーション)で囲みます。Borders」は上下左右のとの意味になります。「LineStyle = xlDouble」は二重線を引くとの意味になります。内容を纏めると、「指定した[セル範囲]の上下左右に二重線を引いて下さい。」との意味になります。

[記述例]:

Range("B2:C5").Borders.LineStyle = xlDouble

 

使い方

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

破線を引く

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

[記述例]:

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

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

Sub サンプル()

    Range("B2:C5").Borders.LineStyle = xlDash

End Sub

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

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

[実行例]:

f:id:m_kbou:20200225104214p:plain

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

 

点線を引く

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

[記述例]:

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

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

Sub サンプル()

    Range("B2:C5").Borders.LineStyle = xlDot

End Sub

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

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

[実行例]:

f:id:m_kbou:20200225104227p:plain

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

 

二重線を引く

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

[記述例]:

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

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

Sub サンプル()

    Range("B2:C5").Borders.LineStyle = xlDouble

End Sub

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

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

[実行例]:

f:id:m_kbou:20200225104239p:plain

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

 

おわりに

状況に合わせて線のスタイルを使い分ければ、より見やすい表が作成できます。是非有効に活用してみて下さい。また、類似の内容として罫線の太さを変更する方法もあります。こちらも参考にして下さい。