vba-k罫線

Function k罫線(styleInner, StyleOuter)
‘linestyle:0=罫線なし、1=実線, 2=点線, 9=二重線

‘内側罫線
Selection.Borders(xlInsideVertical).LineStyle = styleInner
Selection.Borders(xlInsideHorizontal).LineStyle = styleInner

‘外側罫線
With Selection
    .Borders(xlEdgeTop).LineStyle = StyleOuter
    .Borders(xlEdgeRight).LineStyle = StyleOuter
    .Borders(xlEdgeBottom).LineStyle = StyleOuter
    .Borders(xlEdgeLeft).LineStyle = StyleOuter
End With
End Function

Sub cell_k罫線_実線()
‘shortcut:ctrl/shift/k
Call k罫線(1, 1)
End Sub
Sub cell_k罫線_全削除()
‘shortcut:ctrl/shift/n
Call k罫線(0, 0)
End Sub
Sub cell_k罫線_周辺()
‘shortcut:ctrl/shift/l
‘★要本家参照し更新
With Selection
    If .Borders(xlEdgeTop).LineStyle = 1 And .Borders(xlEdgeRight).LineStyle = 1 And .Borders(xlEdgeBottom).LineStyle = 1 And .Borders(xlEdgeLeft).LineStyle = 1 Then
        Call k罫線(0, 0)
    Else
        Call k罫線(0, 1)
    End If
End With
Selection.Borders(xlInsideVertical).LineStyle = none
End Sub

Sub cell_k罫線_内側削除()
‘ctrl shift u
    Selection.Borders(xlInsideVertical).LineStyle = 0
    Selection.Borders(xlInsideHorizontal).LineStyle = 0
End Sub

Sub cell_k罫線_縦罫線()
‘ctrl + shift + v
With Selection.Borders(xlEdgeLeft)
    Select Case .LineStyle
        Case xlNone
            .LineStyle = xlContinuous
        Case Else
            .LineStyle = xlNone
            
    End Select
End With
End Sub

Sub cell_k罫線_横罫線()
‘ctrl + shift + H
With Selection.Borders(xlEdgeTop)
    Select Case .LineStyle
        Case xlNone
            .LineStyle = xlContinuous
        Case Else
            .LineStyle = xlNone
            
    End Select
End With
End Sub