セル内に斜線が入っているか判定して処理する。

セル内に右下がり斜線が入っているか判定する処理。

セルの書式設定で斜めに斜線が入っている場合処理をする方法はないものか？と考えて、ググったらありました。
ここでは、セルA6に右斜め斜線（実線）が入っている場合に、赤でセルを塗りつぶす処理です。

Sub セルの斜線()

    If Range("A6").Borders(xlDiagonalDown).LineStyle = xlContinuous Then
       MsgBox "右斜め実線あり"
       Range("A6").Interior.Color = vbRed
    Else
       MsgBox "右斜め実線なし"
    End If


End Sub

処理結果

赤色で塗りつぶされました。

こんな具合で、セルに罫線が引いてあるかで処理判定に使えます。

セル内に右上がり斜線が入っているか判定する処理。

Sub セルの斜線2()

    If Range("A6").Borders(xlDiagonalUp).LineStyle = xlContinuous Then
       MsgBox "右斜め実線あり"
       Range("A6").Interior.Color = vbRed
    Else
       MsgBox "右斜め実線なし"
    End If

End Sub

Borders(xlDiagonalDown)　→　Borders(xlDiagonalUp)に変更するだけです。

ではでは、この辺で(^^)/~~~