罫線を引く｜Excelマクロの記録で覚えるVBA

最終更新日：2013-02-18

第13回.罫線を引く

前回までで、文字、数値を入れ、色も塗りました。

この辺で、罫線の引き方をやりましょう。

100マス計算の罫線を、一度全て消してください。

ではマクロの記録です。

１．マクロの記録

２．A1～K11を選択

３．罫線の格子（外側、内側を細線）

４．記録終了

作成されたマクロは、

Sub Macro6()
'
' Macro6 Macro
'

'
　　Range("A1:K11").Select
　　Selection.Borders(xlDiagonalDown).LineStyle = xlNone
　　Selection.Borders(xlDiagonalUp).LineStyle = xlNone
　　With Selection.Borders(xlEdgeLeft)
　　　　.LineStyle = xlContinuous
　　　　.ColorIndex = 0
　　　　.TintAndShade = 0
　　　　.Weight = xlThin
　　End With
　　With Selection.Borders(xlEdgeTop)
　　　　.LineStyle = xlContinuous
　　　　.ColorIndex = 0
　　　　.TintAndShade = 0
　　　　.Weight = xlThin
　　End With
　　With Selection.Borders(xlEdgeBottom)
　　　　.LineStyle = xlContinuous
　　　　.ColorIndex = 0
　　　　.TintAndShade = 0
　　　　.Weight = xlThin
　　End With
　　With Selection.Borders(xlEdgeRight)
　　　　.LineStyle = xlContinuous
　　　　.ColorIndex = 0
　　　　.TintAndShade = 0
　　　　.Weight = xlThin
　　End With
　　With Selection.Borders(xlInsideVertical)
　　　　.LineStyle = xlContinuous
　　　　.ColorIndex = 0
　　　　.TintAndShade = 0
　　　　.Weight = xlThin
　　End With
　　With Selection.Borders(xlInsideHorizontal)
　　　　.LineStyle = xlContinuous
　　　　.ColorIndex = 0
　　　　.TintAndShade = 0
　　　　.Weight = xlThin
　　End With
　　Range("A1").Select
End Sub

驚くほどの長さですね、少し笑えます。

Borders

これで罫線を指定します。

（）内の引数で、罫線の位置を指定し、

.LineStyle等で線の種類、太さ、色等を指定します。

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
これは、斜め線の指定です。

.LineStyle

は、線の種類です。

実践、点線等になります。

xlNone

は、罫線を引かない指定なので、不要です。

.LineStyle = xlContinuous
線の種類です。

実践、点線等になります。

xlContinuous
は実践になります。

指定できる種類は後述します。

.ColorIndex = 0
は、罫線の色指定です。

セルに色を塗る時と同じ指定です。

今回は、不要です。

.TintAndShade = 0
は、2007以降の機能です。

罫線の色指定で、2003までに無い色使いの場合になります。

今回は、不要です。

.Weight = xlThin
線の太さの指定です。

xlThin
は、細線になります。

指定できる種類は後述します。

そして、

Selection

を

Range("A1:K11")

で置き換えて、整理すると、

以下になります。

Sub Macro6()
　　With Range("A1:K11")
　　　　With .Borders(xlEdgeLeft)
　　　　　　.LineStyle = xlContinuous
　　　　　　.Weight = xlThin
　　　　End With
　　　　With .Borders(xlEdgeTop)
　　　　　　.LineStyle = xlContinuous
　　　　　　.Weight = xlThin
　　　　End With
　　　　With .Borders(xlEdgeBottom)
　　　　　　.LineStyle = xlContinuous
　　　　　　.Weight = xlThin
　　　　End With
　　　　With .Borders(xlEdgeRight)
　　　　　　.LineStyle = xlContinuous
　　　　　　.Weight = xlThin
　　　　End With
　　　　With .Borders(xlInsideVertical)
　　　　　　.LineStyle = xlContinuous
　　　　　　.Weight = xlThin
　　　　End With
　　　　With .Borders(xlInsideHorizontal)
　　　　　　.LineStyle = xlContinuous
　　　　　　.Weight = xlThin
　　　　End With
　　End With
End Sub

Withが二重になっています。

With Range("A1:K11")
　　With .Borders(xlEdgeLeft)
下のWithは、

つまり、

Range("A1:K11").Borders(xlEdgeLeft)
ということになります。

実は、

.Weight

は、省略時が、

xlThin
なので、不要なのです。

そこで、さらに整理すると、

Sub Macro6()
　　With Range("A1:K11")
　　　　.Borders(xlDiagonalDown).LineStyle = xlNone
　　　　.Borders(xlDiagonalUp).LineStyle = xlNone
　　　　.Borders(xlEdgeLeft).LineStyle = xlContinuous
　　　　.Borders(xlEdgeTop).LineStyle = xlContinuous
　　　　.Borders(xlEdgeBottom).LineStyle = xlContinuous
　　　　.Borders(xlEdgeRight).LineStyle = xlContinuous
　　　　.Borders(xlInsideVertical).LineStyle = xlContinuous
　　　　.Borders(xlInsideHorizontal).LineStyle = xlContinuous
　　End With
End Sub

このようになります。

大分すっきりしましたね。

でも、実はもっと簡単に指定できるのです。

Sub Macro9()
　　Range("A1:K11").Borders.LineStyle = xlContinuous
End Sub

これだけで格子の罫線が引けてしまうんです。

最初のマクロの記録が、なんだかなーってなりますよね。

Borders

に、引数を指定しないと、外側・内側の指定になるのです。

しかし、これは、格子で細線だからなんですよ。

いろいろな罫線を引くには、それなりに指定が必要ですので、

当初のマクロと同等の指定が必要になります。

しかし、最もよく使う、細線の格子が、この１行でできるのはありがだいです。