ExcelVBA セルに罫線を引いたり消したり｜データを見やすく整理する方法

ExcelVBA  セルに罫線を引いたり消したりすることで、データを見やすく整理できます。 大量のデータに一括で罫線を設定・削除でき、作業を自動化できます。使い方や注意点など、サンプルコードをもとに具体的に解説します。

Excel VBA 罫線を引く消す｜シーン

Excel VBA 罫線を引く消す｜サンプルコード

格子状の罫線を引く（外枠 + 内部）

Option Explicit

Sub 格子罫線を引く()
    Dim ws As Worksheet
    Dim rng As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("B2:D5") ' B2～D5の範囲に罫線を設定
    
    With rng.Borders
        .LineStyle = xlContinuous ' 実線
        .Weight = xlThin ' 細線
        .Color = RGB(0, 0, 0) ' 黒色
    End With
End Sub

標準モジュール

Option Explicit

Sub 外枠罫線を引く()
    Dim ws As Worksheet
    Dim rng As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("B2:D5") ' B2～D5の範囲に外枠を設定

    ' 外枠の罫線を設定
    With rng.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With rng.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With rng.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    With rng.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
End Sub

標準モジュール

Option Explicit

Sub 罫線を消す()
    Dim ws As Worksheet
    Dim rng As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("B2:D5") ' B2～D5の範囲の罫線を削除

    With rng.Borders
        .LineStyle = xlNone ' 罫線を消す
    End With
End Sub

標準モジュール

Option Explicit

Sub 罫線の色を変更()
    Dim ws As Worksheet
    Dim rng As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("B2:D5") ' B2～D5の範囲に赤色の罫線を設定

    With rng.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .Color = RGB(255, 0, 0) ' 赤色に設定
    End With
End Sub

Excel VBA 罫線を引く消す｜まとめ