怎么判断表格里是否有斜划线

[hjd2357]

怎么判断表格里是否是斜划线
例如:
rangs("A2") 区域内是否有斜划线

[Arqui]

If Cells(i, 1).Borders(xlDiagonalDown).LineStyle = xlContinuous Then
MsgBox "Alarm:" & "RowNumber: " & i
End If

[Arqui]

If Cells(2, 1).Borders(xlDiagonalDown).LineStyle = xlContinuous Then
MsgBox "Alarm"
End If

[northwolves]

Sub macro1()
MsgBox "[a2]" & IIf([a2].Borders(5).LineStyle = 1, "有", "无") & "斜划线"
End Sub