Sub 縦線()
'
' 縦線 Macro
' 赤の縦線を引く
'
' Keyboard Shortcut: Ctrl+t
'

    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Color = -16776961
        .TintAndShade = 0
        .Weight = xlThick
    End With

End Sub
Sub 横線()
'
' 横線 Macro
' 赤の横線を引く
'
' Keyboard Shortcut: Ctrl+y
'

    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Color = -16776961
        .TintAndShade = 0
        .Weight = xlThick
    End With

End Sub