VBA セルの塗りつぶし・罫線 Borders
セルの罫線
With Range("B2").Borders
.Color = vbBlue
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Range("B4:C5").Borders
.Color = RGB(0, 255, 0)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
実行結果
罫線を消す場合は LineStyle = xlNone を設定します。
Range("B2:E5").Borders.LineStyle = xlNone
様々な種類の罫線を設定することができます。
With Range("B2:D4").Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
実行結果
| 罫線の太さ (Weight) |
罫線の種類 (LineStyle) |
罫線の位置 | |||
|---|---|---|---|---|---|
| xlHairline | 極細線 | xlContinuous | 実線 | xlEdgeTop | セル範囲の上端 |
| xlThin | 細線 | xlDash | 波線 | xlEdgeBottom | セル範囲の下端 |
| xlMedium | 中太線 | xlDashDot | 一点鎖線 | xlEdgeLeft | セル範囲の左端 |
| xlThick | 太線 | xlDashDotDot | 二点鎖線 | xlEdgeRight | セル範囲の右端 |
| xlDot | 点線 | xlInsideHorizontal | セル範囲の内側の水平線 | ||
| xlDouble | 二重線 | xlInsideVertical | セル範囲の内側の垂直線 | ||
| xlSlantDashDot | 斜め一点鎖線 | xlDiagonalDown | 左上から右下への斜線 | ||
| xlLineStyleNone | 線無し | xlDiagonalUp | 左下から右上への斜線 | ||
