Excelセルの罫線または輪郭線の設定例 - Borders.LineStyle

Dim sheet1 As Worksheet
Set sheet1 = Worksheets("Sheet1")

'B3～H30間のすべてのセルに（上下左右）の罫線に波線を設定
sheet1.Range("B3:H30").Borders.LineStyle = xlDash

'C2セルの上端の罫線に実線を設定
sheet1.Range("C2").Borders(xlEdgeTop).LineStyle = xlContinuous

'罫線の線の種類について
'xlContinuous――――実線
'xlDash .......    波線
'xlDashDot --・--    一点鎖線
'xlDashDotDot     二点鎖線
'xlDot     点線
'xlDouble　＝＝＝＝     二重線
'xlSlantDashDot     斜め一点鎖線
'xlLineStyleNone     線無し