Vba セルの4辺について罫線が有るかどうか調べたいのですが

いつもお世話様です

セルの4辺について罫線の有無を調べたいのですが
下記のようにテストプログラムを作ってみましたがIF文でエラーになってしまいます

Sub test()

Cells(2, 5).BorderAround LineStyle:=xlContinuous, Color:=vbRed

If Cells(2, 5).BorderAround.LineStyle <> xlNone Then
MsgBox "有り"
End If

End Sub

やっぱり、Edgeをひとつづつ調べないといけないのでしょうか？
簡単に一行で調べる方法は無いのでしょうか？

以上、よろしくお願い申し上げます

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2025/04/04 12:36

＞If Cells(2, 5).BorderAround.LineStyle <> xlNone Then

取得の場合
If Cells(2, 5).Borders.LineStyle <> xlLineStyleNone Then
とかになりますかね
＞簡単に一行で調べる方法は無いのでしょうか？
残念ながらないかな？・・・知らないだけかも

繰り返し処理で何となくスッキリするとか・・・
Dim i As Integer
For i = 5 To 12
If Cells(2, 5).Borders(i).LineStyle <> xlLineStyleNone Then
MsgBox "有り"
Exit For
End If
Next

この回答へのお礼

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

すみません、変な質問しちゃって
ご回答の件、検討してみますね

本当にありがとうございます
これからもよろしくお願いいたします

お礼日時：2025/04/04 13:41