小池啓仁 ヒロヒト応援ブログ By はてな

小池啓仁(コイケヒロヒト)の動画など。

小池啓仁 ヒロヒト応援ブログ By はてな

ExcelVBAで罫線の判定

たとえば、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 無し