セルの罫線と罫線の種類を設定する。

セルに罫線を設定するにはBordersコレクションの引数に罫線位置を定数(xlEdgeTopなど)で指定し、LineStyleプロパティに罫線種類を設定することで任意の位置、種類を罫線を設定することができます。

罫線の位置には上辺、左辺、右辺、底辺、内側の平行線、内側の垂直線、斜辺（左上から右下、左下から右上）を指定できます。
罫線の種類には実線 (細)、破線、一点鎖線、二点鎖線、点線、二重線、斜め斜線、線なし(クリア)が指定できます。

Bordersコレクションの引数を入力しないで設定すると一括で罫線を設定、またはクリアができます。
ただしセルの上下左右の罫線、水平線、垂直線のみで斜線は一括では設定できません。

　●セルに罫線を設定

'******************************************************************
'　セルに罫線を設定する。
'******************************************************************
Sub Main_LineStyle()
    
    '上辺
    Sheets("Sheet1").Range("B2:C2").Borders(xlEdgeTop).LineStyle = xlContinuous
    
    '底辺
    Sheets("Sheet1").Range("B3:C3").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    '左辺
    Sheets("Sheet1").Range("B2:B3").Borders(xlEdgeLeft).LineStyle = xlContinuous
    
    '右辺
    Sheets("Sheet1").Range("C2:C3").Borders(xlEdgeRight).LineStyle = xlContinuous
    
    '内側の水平線
    Sheets("Sheet1").Range("E2:F3").Borders(xlInsideHorizontal).LineStyle = xlContinuous
    
    '内側の垂直線
    Sheets("Sheet1").Range("E2:F3").Borders(xlInsideVertical).LineStyle = xlContinuous
    
    '斜線(左上から右下)
    Sheets("Sheet1").Range("H2").Borders(xlDiagonalDown).LineStyle = xlContinuous
    
    '斜線(左下から右上)
    Sheets("Sheet1").Range("H3").Borders(xlDiagonalUp).LineStyle = xlContinuous
    
End Sub

　■実行結果

　●セルに罫線の種類を設定

'******************************************************************
'　セルに罫線の種類を設定する。
'******************************************************************
Sub Main_LineType()
    
    '実線 (細)
    Sheets("Sheet1").Range("B2").Borders.LineStyle = xlContinuous
    
    '破線
    Sheets("Sheet1").Range("D2").Borders.LineStyle = xlDash
    
    '一点鎖線
    Sheets("Sheet1").Range("B4").Borders.LineStyle = xlDashDot
    
    '二点鎖線
    Sheets("Sheet1").Range("D4").Borders.LineStyle = xlDashDotDot
    
    '点線
    Sheets("Sheet1").Range("B6").Borders.LineStyle = xlDot
    
    '二重線
    Sheets("Sheet1").Range("D6").Borders.LineStyle = xlDouble
    
    '斜め斜線
    Sheets("Sheet1").Range("B8").Borders.LineStyle = xlSlantDashDot
    
End Sub

　■実行結果