【ExcelVBA セル操作】色々なスタイルの罫線を引くにはどうすればいいの？教えて！

構文

構文は以下の通りです。

Range("セル範囲").Borders.LineStyle = 罫線スタイル

解説

RangeオブジェクトのBordersプロパティを使用してセルに罫線を引くことができます。Range("セル範囲")は、セル範囲を指定するオブジェクトです。"セル範囲"は、罫線を引きたいセルの範囲を示す文字列です。例えば、"A1:C5"はセルA1からC5までの範囲を意味します。セル範囲を指定することで、その範囲に罫線を設定することが可能になります。Bordersは、Rangeオブジェクトのプロパティであり、セルの罫線を操作するためのコレクションです。このプロパティを使用することで、セルの周囲にある罫線を設定することができます。LineStyleは、罫線のスタイルを指定するプロパティです。これによって、罫線の種類を選択できます。罫線スタイルは以下の通りです。

罫線スタイル	内容
xlContinuous	連続線
xlDash	破線
xlDot	一点鎖線
xlDashDot	二点鎖線

使い方

具体的な使い方を紹介します。

Sub DrawBorders()
    Dim targetRange As Range
    Set targetRange = Range("A1:C5")
    ' 連続線の罫線を引く
    targetRange.Borders.LineStyle = xlContinuous
End Sub

上記は、セル範囲"A1:C5"に連続線の罫線を引く例です。

プログラミング例

以下に、プログラミング例を幾つか紹介します。

例1: セル範囲に破線の罫線を引く

Sub DrawDashedBorders()
    Dim targetRange As Range
    Set targetRange = Range("A1:C5")
    ' 破線の罫線を引く
    targetRange.Borders.LineStyle = xlDash
End Sub

例2: セル範囲に一点鎖線の罫線を引く

Sub DrawDottedBorders()
    Dim targetRange As Range
    Set targetRange = Range("A1:C5")
    ' 一点鎖線の罫線を引く
    targetRange.Borders.LineStyle = xlDot
End Sub

例3: セル範囲に二点鎖線の罫線を引く

Sub DrawDashDotBorders()
    Dim targetRange As Range
    Set targetRange = Range("A1:C5")
    ' 二点鎖線の罫線を引く
    targetRange.Borders.LineStyle = xlDashDot
End Sub

これらの例では、それぞれのプログラムでセル範囲"A1:C5"に対して異なる罫線スタイルが設定されます。必要に応じてセル範囲や罫線スタイルを変更することができます。

まとめ

罫線の設定はデータ整理や視覚的な整理に役立つため、Excelの操作を効率化する上で非常に重要です。是非活用してください。