１．指定したセルの周囲に表示 （BorderAround）
|
VBAを使って罫線（けいせん）を表示する方法を紹介します。
Cells(2, 2).BorderAround LineStyle:=xlContinuous
これで右のようにセル(2,2)の周囲に細実線の罫線が表示されます。 |
|
 |
細実線以外の線も表示してみましょう。
罫線のスタイル（種類）には次のようなものがあります。 |
| 細実線 |
xlContinuous |
 |
| 破線 |
xlDash |
 |
| 一点鎖線 |
xlDashDot |
 |
| 二点鎖線 |
xlDashDotDot |
 |
| 点線 |
xlDot |
 |
| 二重線 |
xlDouble |
 |
| 斜め一点鎖線 |
xlSlantDashDot |
 |
| 罫線なし |
xlLineStyleNone |
|
罫線のスタイルは「LineStyle」で指定できます。
例えば破線を表示したい時は次のようになります。
Cells(2, 2).BorderAround LineStyle:=xlDash |
|
 |
一点鎖線を表示したい時はLineStyleを「xlDashDot」にします。
Cells(2, 2).BorderAround LineStyle:=xlDashDot |
|
 |
罫線の太さを指定する時は「Weight」を使います。
下の表のように「極細」「細」「中」「太」が選べます。 |
| 極細 |
xlHairline |
 |
| 細 |
xlThin |
 |
| 中 |
xlMedium |
 |
| 太 |
xlThick |
 |
罫線のスタイルと太さを指定することで様々な罫線を表示することができます。
表示できる線種と設定は次の表のとおりです。 |
|
線種 |
LineStyle |
Weight |
| No.01 |
|
xlContinuous |
xlHairline |
| No.02 |
|
xlContinuous |
xlMedium |
| No.03 |
|
xlContinuous |
xlThick |
| No.04 |
|
xlContinuous |
--- |
| No.05 |
|
xlDash |
--- |
| No.06 |
 |
xlDash |
xlMedium |
| No.07 |
|
xlDashDot |
--- |
| No.08 |
 |
xlDashDot |
xlMedium |
| No.09 |
|
xlDashDotDot |
--- |
| No.10 |
 |
xlDashDotDot |
xlMedium |
| No.11 |
|
xlDot |
--- |
| No.12 |
|
xlDouble |
--- |
| No.13 |
|
xlSlantDashDot |
--- |
| No.14 |
罫線なし |
xlLineStyleNone |
--- |
|
|
例として幾つか表示してみましょう。
No.01を表示
Cells(2, 2).BorderAround LineStyle:=xlContinuous, Weight:=xlHairline |
|
 |
No.03を表示
Cells(2, 2).BorderAround LineStyle:=xlContinuous, Weight:=xlThick |
|
 |
No.08を表示
Cells(2, 2).BorderAround LineStyle:=xlDashDot, Weight:=xlMedium |
|
 |
「ColorIndex」で罫線に色を付けてみましょう。
色番号は「セルに色を塗る」を参考にしてみて下さい。
セル(2,2)の周囲にピンク色の罫線を表示してみます。
Cells(2, 2).BorderAround ColorIndex:=7 |
|
 |
今度はスタイルと太さも同時に指定してみます。
太さ「中」で赤色の破線を表示
Cells(2, 2).BorderAround LineStyle:=xlDash, Weight:=xlMedium, ColorIndex:=3 |
|
「Borders( )」で罫線を表示する位置を指定します。
下の表のように指定したセル範囲内の様々な場所に罫線を引くことができます。 |
| 上端の横線 |
xlEdgeTop |
 |
| 内側の横線 |
xlInsideHorizontal |
 |
| 下端の横線 |
xlEdgeBottom |
 |
左端の縦線 |
xlEdgeLeft |
 |
内側の縦線 |
xlInsideVertical |
 |
右端の縦線 |
xlEdgeRight |
 |
| 右上りの斜線 |
xlDiagonalUp |
 |
| 右下りの斜線 |
xlDiagonalDown |
 |
|
|
それでは幾つか表示してみましょう。
セル(2,2)に右上り斜線の細実線を表示
Cells(2, 2).Borders(xlDiagonalUp).LineStyle = xlContinuous |
|
 |
セル範囲(2,2)〜(2,4)の下端に赤の太線を表示
With Range(Cells(2, 2), Cells(2, 4)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With |
|
 |
セル範囲(2,2)〜(4,4)の全ての縦横に青の二重線を表示
'セル範囲(2,2)〜(4,4)の外周に青の二重線を表示
Range(Cells(2, 2), Cells(4, 4)).BorderAround LineStyle:=xlDouble, ColorIndex:=5 |
|
'セル範囲(2,2)〜(4,4)の内側の横線に青の二重線を表示
With Range(Cells(2, 2), Cells(4, 4)).Borders(xlInsideHorizontal)
.LineStyle = xlDouble
.ColorIndex = 5
End With
'セル範囲(2,2)〜(4,4)の内側の縦線に青の二重線を表示
With Range(Cells(2, 2), Cells(4, 4)).Borders(xlInsideVertical)
.LineStyle = xlDouble
.ColorIndex = 5
End With |
|
 |
|
|
|
