エクセルマニア

VBA セルの塗りつぶし・罫線 Borders

TOP > VBA・マクロ >  セルの罫線

セルの罫線


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 左下から右上への斜線


このエントリーをはてなブックマークに追加