【ExcelVBA】罫線設定まとめ

①罫線を引く箇所を選択

VBA

'上罫線
Cells.Borders(xlEdgeTop)

'下罫線
Cells.Borders(xlEdgeBottom)

'左罫線
Cells.Borders(xlEdgeLeft)

'右罫線
Cells.Borders(xlEdgeRight)

'格子
Cells.Borders

'外枠
Cells.BorderAround

'内側横罫線
Cells.Borders(xlInsideHorizontal)

'内側縦罫線
Cells.Borders(xlInsideVertical)

②オプションを設定

【LineStyle】

値	種類
xlContinuous	実線
xlDash	破線
xlDashDot	一点鎖線
xlDashDotDot	二点鎖線
xlDot	点線
xlDouble	二重線
xlSlantDashDot	斜め斜線
xlLineStyleNone	無し

【Weight】

値	太さ
xlHairline	極細
xlThin	細
xlMedium	中
xlThick	太

【Color】

記述方法	例(赤色)
RGB	RGB(255,0,0)
ColorConstants	vbRed
XlRgbColor	rgbRed

【オプション規定値】
LineStyle：xlContinuous
Weight：xlThin
Color:vbBlack
※いずれか１つのオプション指定が必要

記述例

VBA

'------------bodersの記述------------
'格子 + 実線 + 細 + 黒色
Cells.Borders.LineStyle = xlContinuous
'格子 + 二点鎖線 + 中 + 赤色
With Cells.Borders
    .LineStyle = xlDashDotDot
    .Weight = xlMedium
    .Color:=vbRed
End With

'------------BoderAroundの記述------------※記述方法が異なる
'外枠 + 実線 + 細 + 黒色
Cells.BorderAround LineStyle = xlContinuous
'外枠 + 二点鎖線 + 中 + 赤色
Cells.BorderAround LineStyle:=xlDashDotDot, Weight:=xlMedium, Color:=vbRed