斜め罫線の判定 ExcelVBA

質問

お世話になります。

セルのスタイルで、斜めの罫線が入っているかをVBAで判定できないでしょうか？
セルのValueは空白でも、斜め罫線が入っているものをはじきたいのです。

よろしくお願い致します。

回答No.2

TTak · ベストアンサー

セルA1の例です。

Sub TEST()
If Range("A1").Borders(xlDiagonalUp).LineStyle = 1 Or _
　　Range("A1").Borders(xlDiagonalDown).LineStyle = 1 Then
MsgBox "斜め線あり"
End If

お礼

早速の回答、ありがとうございます。

したいことそのままの文で使えそうです。
ありがとうございました。
またありましたら、お願いします。

回答No.1

taknt

以下のような感じでやります。

With Selection.Borders(xlDiagonalDown)
If .LineStyle = xlContinuous Then MsgBox ("naname")
End With

With Selection.Borders(xlDiagonalUp)
If .LineStyle = xlContinuous Then MsgBox ("naname2")
End With

お礼

早速の回答、ありがとうございます。
Borderスタイルのどれが斜め線か、わからなかったのです。

ありがとうございました。