Return to VBA Code Examples

VBA 罫線を引く

このチュートリアルでは、VBAでセルの罫線(境界線)を設定する方法を紹介します。

罫線の書式設定

上部の境界線 – 二重線

まず、Sheet1のセルB3に青くて太い二重の上枠を設定する例を見てみましょう。

example border

Sub ExampleSetBorder()

 With Worksheets("Sheet1").Range("B3").Borders(xlEdgeTop)
  .LineStyle = xlDouble
  .Weight = xlThick
  .ColorIndex = 5
 End With

End Sub

コードを簡単にするために、Withステートメントを使用していることに注意してください。

.Borders(xlEdgeTop)で上部のボーダーにアクセスします。

他のセル境界線

対角線を含む他のボーダーにアクセスすることもできます。

Worksheets("Sheet1").Range("B2").Borders(xlEdgeTop).Color = RGB(128, 0, 0)
Worksheets("Sheet1").Range("B2").Borders(xlEdgeRight).Color = RGB(0, 255, 0)
Worksheets("Sheet1").Range("B2").Borders(xlEdgeBottom).Color = RGB(0, 0, 128)
Worksheets("Sheet1").Range("B2").Borders(xlEdgeLeft).Color = RGB(255, 0, 0)
Worksheets("Sheet1").Range("B2").Borders(xlDiagonalDown).Color = RGB(0, 0, 0)
Worksheets("Sheet1").Range("B2").Borders(xlDiagonalUp).Color = RGB(0, 0, 0)

内側の境界線

また、範囲内のすべてのセルの水平(xlInsideHorizontal)および垂直(xlInsideVertical)ボーダーを調整することができます。

With Worksheets("Sheet1").Range("B2:C6").Borders(xlInsideHorizontal)
 .LineStyle = xlDashDotDot 
 .Weight = xlMedium
 .ColorIndex = 3
End With

LineStyle

LineStyleプロパティは、xlContinuous、xlDot、xlDash、xlDashDot、xlDashDotDot、xlDouble、xlSlantDashDot、xlLineStyleNoneに変更することが可能です。

Weight プロパティは、xlHariline、xlThin、xlMedium、xlThick のいずれかになります。以下のコードでは、このような結果になります。

Worksheets("Sheet1").Range("C3").Borders(xlEdgeTop).Weight = xlHairline
Worksheets("Sheet1").Range("C3").Borders(xlEdgeBottom).Weight = xlHairline
Worksheets("Sheet1").Range("D3").Borders(xlEdgeTop).Weight = xlThin
Worksheets("Sheet1").Range("D3").Borders(xlEdgeBottom).Weight = xlThin
Worksheets("Sheet1").Range("E3").Borders(xlEdgeTop).Weight = xlMedium
Worksheets("Sheet1").Range("E3").Borders(xlEdgeBottom).Weight = xlMedium
Worksheets("Sheet1").Range("F3").Borders(xlEdgeTop).Weight = xlThick
Worksheets("Sheet1").Range("F3").Borders(xlEdgeBottom).Weight = xlThick

border weight

ボーダーカラーは、ColorIndexまたはColor(RGB、数値、vbColor定数)で設定できます。色の設定について詳しくはこちらをご覧ください。

1行のコマンドでも、範囲を囲むボーダーを追加することができます。

Range("B5:C7").BorderAround LineStyle:=xlContinuous, Weight:=xlThick, Color:=vbRed
vba-free-addin

VBA Code Examples Add-in

Easily access all of the code examples found on our site.

Simply navigate to the menu, click, and the code will be inserted directly into your module. .xlam add-in.

(No installation required!)

Free Download

Return to VBA Code Examples