Excel VBA テクニック集
セルの書式（罫線）

セルの書式（罫線）の取得・設定方法です

使い方は、ファイル一覧を使った応用の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。

罫線の種類は点線・破線・太線・・・ですが、それは、Borders.LineStyleの値とBorders.Weightの値の組み合わせによって決まります。

No	罫線の種類	LineStyle	Weight
0		xlLineStyleNone	0
1		xlContinuous	xlHairline
2		xlDot	xlThin
3		xlDashDotDot	xlThin
4		xlDashDot	xlThin
5		xlDash	xlThin
6		xlContinuous	xlThin
7		xlDashDotDot	xlMedium
8		xlSlantDashDot	xlMedium
9		xlDashDot	xlMedium
10		xlDash	xlMedium
11		xlContinuous	xlMedium
12		xlContinuous	xlThick
13		xlDouble	xlThick

上記以外の組み合わせ、たとえばxlDashDotDot,xlHairlineのようにした場合など、すべて試してみましたが、線の種類は上記だけでした。

罫線の場所は

上下左右		ActiveSheet.Range("B2").Borders
上		ActiveSheet.Range("B2").Borders(xlTop)
下		ActiveSheet.Range("B2").Borders(xlBottom)
右		ActiveSheet.Range("B2").Borders(xlRight)
左		ActiveSheet.Range("B2").Borders(xlLeft)
右上斜線		ActiveSheet.Range("B2").Borders(xlDiagonalUp)
右下斜線		ActiveSheet.Range("B2").Borders(xlDiagonalDown)
縦		ActiveSheet.Range("B2:D4").Borders(xlInsideVertical)
横		ActiveSheet.Range("B2:D4").Borders(xlInsideHorizontal)

により取得・設定が可能です。

Excelの「マクロの記録」で罫線を設定すると、「xlTop」「xlBottom」・・・等の複雑なコードが生成されます。

しかし、一種類のみの罫線を扱う場合、たとえば下図の場合、

設定は、

    Excel_App.ActiveSheet.Range("B2:D4").Borders.LineStyle = xlContinuous
    Excel_App.ActiveSheet.Range("B2:D4").Borders.Weight = xlThin

でＯＫです。参照すれば、xlContinuousとxlThinになります。

しかし、少しでも違う罫線がある場合、例えば下図の場合、

を参照すると、ともにNullになります。

Excel VBA テクニック集セルの書式（罫線）

Excel VBA テクニック集
セルの書式（罫線）