たとえば、ExcelVBAでセルA5に下線があるかの判定は以下の感じです。
If Range("A5").Borders(xlEdgeBottom).LineStyle = xlContinuous Then
MsgBox "下線あり"
Else
MsgBox "下線なし"
End If
◆Bordersを以下のような引数に換えれば『下端(下線)』以外にも使えます。
Bordersの引数 |
罫線の位置 |
xlEdgeTop |
セル上端 |
xlEdgeBottom |
セル下端(下線) |
xlEdgeLeft |
セル左端 |
xlEdgeRight |
セル右端 |
xlInsideHorizontal |
内側横線 |
xlInsideVertical |
内側縦線 |
xlDiagonalDown |
右下がり斜線 |
xlDiagonalUp |
右上がり斜線 |
◆LineStyleのxlContinuous比較を以下のように換えれば『実線』以外にも使えます。
LineStyle |
罫線の種類 |
xlContinuous |
実線 |
xlDash |
破線 |
xlDashDot |
一点鎖線 |
xlDashDotDot |
二点鎖線 |
xlDot |
点線 |
xlDouble |
二重線 |
xlSlantDashDot |
斜め斜線 |
xlLineStyleNone |
無し |