指定セル範囲に罫線作成する処理をパーツ化する【Borders.LineStyle】【ExcelVBA】

指定セル範囲に罫線を作成したい場合があります。
基本は汎用性のあるシンプルな格子状の表でいいと思っていますが、
罫線の指定があった場合には下記コードで時短します。

セルの指定範囲に罫線を作成するサンプルコード

'■指定範囲に罫線を引く処理
Public Function Call_BordersCreate(rng As Range)
    rng.Borders.LineStyle = xlContinuous　　　　　　　'格子状にして、
    rng.Borders.Weight = xlMedium　　　　　　　 　　　'格子状を太くする
    rng.Borders(xlInsideVertical).Weight = xlThin　　 '内側の垂直線は細くする
    rng.Borders(xlInsideHorizontal).Weight = xlThin   '内側の水平線は細くする
End Function

実際の使い方

Public Sub Sample
     Call Call_BordersCreate(Range("A1:A10"))
End Sub

注意点

• 特にありません。

関連記事

• セル範囲に罫線を引くor罫線をクリアするショートカットキーを作成する【ExcelVBA】
• 選択しているセルの範囲に罫線を引くショートカットキーを作成する【ExcelVBA】
• 【VBA基本】セル罫線の定数一覧（エクセルマクロ）
• セルの書式設定のみクリアする【ClearFormatsメソッド】
• 形式を選択して貼り付ける【PasteSpecialメソッド】