Excel VBA：Selectionでセル範囲を選択しBordersで罫線を引きます

SelectionプロパティとBordersオブジェクトで、選択範囲に上下左右の罫線を引くVBAを掲載しています。

Homeに戻る > Excel セルのTipsへ

Excel VBAで選択範囲のセルは、Selectionプロパティで取得できます。

罫線を引くには、Bordersオブジェクトを使用します。

上線は、Borders(xlTop)
下線は、Borders(xlBottom)
左線は、Borders(xlLeft)
右線は、Borders(xlRight)

で引きます。

関連する「Excelで日程表を作ってみよう　Step 7　罫線を引く」も掲載していますので、参考にしてください。

選択範囲に罫線を引くVBA

Excelシート画面

■実行前のシート

■罫線を引いた直後のシート

■罫線を引いた結果

内側の線は、xlThin（細線：規定値）で引いています。

外枠の線は、xlMedium（太線）で引いています。

Excel VBA実行コード

Option Explicit

Private Sub CommandButton1_Click()

    '細線で内部に罫線
    Selection.Borders(xlTop).Weight = xlThin
    Selection.Borders(xlBottom).Weight = xlThin
    Selection.Borders(xlLeft).Weight = xlThin
    Selection.Borders(xlRight).Weight = xlThin

    '太線で外枠を引く
    Selection.BorderAround Weight:=xlMedium

End Sub

Homeに戻る > Excel セルのTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します