斜め罫線の判定 ExcelVBA

お世話になります。

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

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

No.2 ベストアンサー 回答者： TTak 回答日時： 2002/12/05 17:35

セルA1の例です。

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

この回答へのお礼

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

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

お礼日時：2002/12/05 17:40

No.1 回答者： taknt 回答日時： 2002/12/05 17:33

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

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スタイルのどれが斜め線か、わからなかったのです。

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

お礼日時：2002/12/05 17:39