マクロ記録でVBA
罫線を引く

第13回.罫線を引く

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

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

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

ではマクロの記録です。

１．マクロの記録

２．A1～K11を選択

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

４．記録終了

作成されたマクロは、

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

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")

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

以下になります。

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

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

つまり、

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

実は、

.Weight

は、省略時が、

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

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

このようになります。

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

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

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

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

Borders

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

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

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

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

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

罫線の種類

xlContinuous ： 実線
xlDash ： 破線
xlDashDot ： 一点鎖線
xlDashDotDot ： 二点鎖線
xlDot ： 点線
xlDouble ： 二重線
xlSlantDashDot ： 斜め斜線
xlLineStyleNone ： 無し・・・xlNoneでもよい。

線の太さ

xlHairline ： 極細
xlThin ： 細
xlMedium ： 中
xlThick ： 太

罫線の種類と、太さを組み合わせて指定します。

全ての組み合わせが有効な訳ではありません。

セルの書式設定の罫線で指定できる組み合わせになります。