罫線を引く、消す、有無を比較

罫線について使うプログラムと定数をまとめた。

'選択範囲に格子の線を引く
Selection.Borders.LineStyle = xlContinuous ’実線
Selection.Borders.LineStyle = True '同じ結果

' 選択範囲に中太、青色、格子線
' 線の指定をせずとも罫線が出る不思議。
With Selection.Borders
    .Weight = xlMedium '中
    .Color = vbBlue '青色
End With

'下辺に実線
Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous

'選択範囲の外周に線を引く
Selection.BorderAround LineStyle:=xlContinuous ', Weight:=xlThick, Color:=vbRed

'選択範囲の罫線を消す。以下全部同じ結果。
Selection.Borders.LineStyle = xlLineStyleNone
Selection.Borders.LineStyle = xlNone
Selection.Borders.LineStyle = False

罫線の有無が混在する複数セルに対して実施するとNullが返るため、比較は慎重に行う。

' A1について下線の有無を比較
If Range("A1").Borders(xlEdgeBottom).LineStyle = xlLineStyleNone Then
    Debug.Print "罫線無い"
Else
    Debug.Print "罫線ある！"
End If

'選択範囲の罫線が格子であるか比較
With Selection.Borders
    If IsNull(.LineStyle) Then
        Debug.Print "罫線が混在"
    Else
        If .LineStyle = xlLineStyleNone Then
            Debug.Print "罫線無い"
        Else
            Debug.Print "罫線ある！"
        End If
    End If
End With

線の種類

定数	内容	値
xlContinuous	実線（細）	1
xlDash	破線	-4115
xlDashDot	一点鎖線	4
xlDashDotDot	二点鎖線	5
xlDot	点線	-4118
xlDouble	二重線	-4119
xlSlantDashDot	斜め斜線	13
xlLineStyleNone	無し	-4142

線の太さ

定数	内容	値
xlHairline	極細線	1
xlThin	細線	2
xlMedium	中太線	-4138
xlThick	太線	4

線の場所。未指定で格子。

定数	内容	値
xlDiagonalDown	右下がり斜め線	5
xlDiagonalUp	右上がり斜め線	6
xlEdgeLeft	左辺	7
xlEdgeTop	上辺	8
xlEdgeBottom	下辺	9
xlEdgeRight	右辺	10
xlInsideVertical	内側の垂直線	11
xlInsideHorizontal	内側の水平線	12

以上。

つらつら Excel VBA

私の備忘録です。

罫線を引く、消す、有無を比較