メモ Excel VBA 基礎 罫線(Border)
Range.Borders でセルの罫線を扱う。
Range("セル範囲").Borders.プロパティ = 設定値
もしくは、
Range("セル範囲").Borders(Index).プロパティ = 設定値
Indexの中身
| xlDiagonalDown | 範囲内の各セルの左上隅から右下への罫線 |
| xlDiagonalUp | 範囲内の各セルの左下隅から右上への罫線 |
| xlEdgeBottom | 範囲内の下側の罫線 |
| xlEdgeLeft | 範囲内の左端の罫線 |
| xlEdgeRight | 範囲内の右端の罫線 |
| xlEdgeTop | 範囲内の上側の罫線 |
| xlInsideHorizontal | 範囲外の罫線を除く、範囲内のすべてのセルの水平罫線 |
| xlInsideVertical | 範囲外の罫線を除く、範囲内のすべてのセルの垂直罫線 |
Range("セル範囲").borders.プロパティとした場合は、xlEdgeBottom, xlEdgeLeft, xlEdgeRight, xlEdgeTop, xlInsideHorizontal, xlInsideVerticalこれらすべてに同一の設定をしたことになる。
Borders のプロパティ
| LineStyle | 罫線の種類 | xlNone または xlLineStyleNone | なし |
| xlContinuous | 実線 | ||
| xlDash | 破線 | ||
| xlDashDot | 一点鎖線 | ||
| xlDashDotDot | ニ点鎖線 | ||
| xlDot | 点線 | ||
| xlDouble | 2 本線 | ||
| xlLineStyleNone | 線なし | ||
| xlSlantDashDot | 斜破線 | ||
| Color | 罫線の色 | RGB値を表す長整数 | |
| ColorIndex | 罫線の色 | 1～56 | 2003までの56色カラーパレットのインデックス 何色か分かりづらいのでColorを使ったほうが良い |
| Weight | 罫線の太さ | xlHairline | 非常に細い線 (最も細い罫線) |
| xlMedium | 普通 | ||
| xlThick | 太線 (最も太い罫線) | ||
| xlThin | 細線 |
罫線をもう一つの方法
Range.BorderAroundメソッド
外枠に対して一度に罫線を引く。
ーーーーーーーーーーーーーーーーーーー
Sub work()
Range("B2:D4").BorderAround LineStyle:=xlContinuous, Weight:=xlMedium, Color:=vbBlack
End Sub
ーーーーーーーーーーーーーーーーーーー
ーーーーーーーーーーーーーーーーーーー
Sub work2()
Range("B6:D8").Borders.LineStyle = xlContinuous
Range("B6:D8").BorderAround Weight:=xlThick
End Sub
ーーーーーーーーーーーーーーーーーーー
一か所ずつ罫線を引くより、一度にまとめて記述した方が処理速度が速いらしい。
