VBAでセルの書式設定(罫線) – イガシス研究所

Excel VBAでセルに罫線を設定するには、Bordersオブジェクトを使用します。Bordersオブジェクトには、罫線のスタイル、色、線の太さなどを設定できるさまざまなプロパティがあります。

罫線の設定

セルの特定の辺（上、下、左、右）や、内部の罫線を設定することもできます。Bordersオブジェクトの各辺を示す定数を使用します。

項目	説明	例
xlEdgeLeft	左罫線	.Borders(xlEdgeLeft)
xlEdgeTop	上罫線	.Borders(xlEdgeTop)
xlEdgeBottom	下罫線	.Borders(xlEdgeBottom)
xlEdgeRight	右罫線	.Borders(xlEdgeRight)
xlInsideVertical	縦罫線（セル範囲内）	.Borders(xlInsideVertical)
xlInsideHorizontal	横罫線（セル範囲内）	.Borders(xlInsideHorizontal)
–	囲い	.Borders
.Color	色	.Borders.Color = RGB(0, 0, 0)

基本的な罫線の設定

以下は、セルA1に罫線を設定する基本的な例です。

Sub SetBorders()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    With ws.Range("A1").Borders
        .LineStyle = xlContinuous ' 罫線のスタイル
        .Color = RGB(0, 0, 0) ' 罫線の色（黒）
        .Weight = xlThin ' 罫線の太さ（細い）
    End With
End Sub

以下の例では、セルA1の上罫線と下罫線に異なるスタイルを設定します。

Sub SetSpecificBorders()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    With ws.Range("A1").Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Color = RGB(255, 0, 0) ' 赤色
    End With
    
    With ws.Range("A1").Borders(xlEdgeBottom)
        .LineStyle = xlDash
        .Color = RGB(0, 0, 255) ' 青色
    End With
End Sub

セル範囲の罫線設定

複数のセル範囲に対して罫線を設定することも可能です。以下の例では、範囲A1のすべての外枠に罫線を設定します。

Sub SetRangeBorders()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    With ws.Range("A1:B2").Borders
        .LineStyle = xlContinuous
        .Color = RGB(0, 0, 0)
        .Weight = xlThin
    End With
End Sub

罫線スタイルの種類

項目	説明	例
xlContinuous	実線	.Borders.LineStyle = xlContinuous
xlDash	破線	.Borders.LineStyle = xlDash
xlDashDot	一点鎖線	.Borders.LineStyle = xlDashDot
xlDashDotDot	二点鎖線	.Borders.LineStyle = xlDashDotDot
xlDot	点線	.Borders.LineStyle = xlDot
xlDouble	二重線	.Borders.LineStyle = xlDouble
xlSlantDashDot	斜破線	.Borders.LineStyle = xlSlantDashDot
xlLineStyleNone	罫線なし	.Borders.LineStyle =xlLineStyleNone

複数の罫線を一度に設定

以下の例では、範囲A1のすべての辺と内部に罫線を設定します。

Sub SetAllBorders()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    With ws.Range("A1:B2").Borders
        .LineStyle = xlContinuous
        .Color = RGB(0, 0, 0)
        .Weight = xlThin
    End With
    
    With ws.Range("A1:B2").Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Color = RGB(0, 0, 0)
        .Weight = xlThin
    End With
    
    With ws.Range("A1:B2").Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Color = RGB(0, 0, 0)
        .Weight = xlThin
    End With
End Sub

このコードを実行すると、範囲A1のすべての外枠と内部に細い実線の罫線が設定されます。

罫線の太さの種類

Excel VBAでセルの罫線の太さを設定するには、Weightプロパティを使用します。Weightプロパティには以下の定数が使用できます。

項目	説明	例
xlHairline	非常に細い線	.Borders.Weight = xlHairline
xlThin	細い線	.Borders.Weight = xlThin
xlMedium	中くらいの太さの線	.Borders.Weight = xlMedium
xlThick	太い線	.Borders.Weight = xlThick

基本的な罫線の太さの設定

以下の例では、セルA1の上下の罫線に異なる太さの線を設定します。

Sub SetBorderWeight()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 上罫線を細い線に設定
    With ws.Range("A1").Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    
    ' 下罫線を太い線に設定
    With ws.Range("A1").Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThick
    End With
End Sub

このコードを実行すると、セルA1の上罫線が細い線、下罫線が太い線に設定されます。

セル範囲の罫線の太さを設定

以下の例では、範囲A1の外枠の罫線を太く、内部の罫線を細く設定します。

Sub SetRangeBorderWeight()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 外枠の罫線を太く設定
    With ws.Range("A1:B2").Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThick
    End With
    With ws.Range("A1:B2").Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThick
    End With
    With ws.Range("A1:B2").Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThick
    End With
    With ws.Range("A1:B2").Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThick
    End With
    
    ' 内部の罫線を細く設定
    With ws.Range("A1:B2").Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With ws.Range("A1:B2").Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
End Sub

非常に細い線や中くらいの線の設定

以下の例では、セルA1に非常に細い線と中くらいの線を設定します。

Sub SetDifferentBorderWeights()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 左罫線を非常に細い線に設定
    With ws.Range("A1").Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlHairline
    End With
    
    ' 右罫線を中くらいの太さの線に設定
    With ws.Range("A1").Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
End Sub

このコードを実行すると、セルA1の左罫線が非常に細い線、右罫線が中くらいの太さの線に設定されます。

これらのプロパティを組み合わせて使用することで、セルの罫線のスタイルや太さを柔軟に設定できます。これで、Excel VBAを使用してセルの罫線の太さを設定する方法について理解いただけたと思います。

For Nextループを使用した罫線

For Nextループを使用して複数のセル範囲に対して罫線を設定することができます。以下に、For Nextループを使ってセルの範囲に罫線を設定する具体的な方法を示します。

連続した行に罫線を設定する

以下の例では、シートの1行目から10行目までの各行に対して罫線を設定します。

Sub SetBordersWithForLoop()
    Dim ws As Worksheet
    Dim i As Integer
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 1行目から10行目までの罫線を設定
    For i = 1 To 10
        With ws.Rows(i).Borders
            .LineStyle = xlContinuous
            .Color = RGB(0, 0, 0) ' 黒色
            .Weight = xlThin
        End With
    Next i
End Sub

セルの最終行を取得して罫線を設定する例

セルの最終行を取得し、罫線を設定するには、RangeオブジェクトのEndプロパティを使用してデータの最終行を取得し、その範囲に対して罫線を設定します。

Sub SetBordersToLastRow()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 最終行を取得
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 最終行の範囲に罫線を設定
    With ws.Range("A1:D" & lastRow).Borders
        .LineStyle = xlContinuous
        .Color = RGB(0, 0, 0)
        .Weight = xlThin
    End With
    
    ' 外枠の罫線を太く設定
    With ws.Range("A1:D" & lastRow).Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThick
    End With
    With ws.Range("A1:D" & lastRow).Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThick
    End With
    With ws.Range("A1:D" & lastRow).Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThick
    End With
    With ws.Range("A1:D" & lastRow).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThick
    End With
    
    ' 内部の罫線を細く設定
    With ws.Range("A1:D" & lastRow).Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With ws.Range("A1:D" & lastRow).Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
End Sub

このコードを実行すると、シート「Sheet1」の列Aにデータがある最終行を取得し、その範囲（A1からDの最終行）に対して罫線を設定します。