【VBA】罫線を引くコードの一番短い書き方【シンプル】

'選択範囲のすべての線に実線を引く※１
range("B2:E5").Borders.LineStyle = xlContinuous

'選択範囲の外側の実線を少し太くする※２
range("B2:E5").BorderAround Weight:=xlMedium

※１：”B2:E5″の部分は自分の用途に合わせて変更してください。
※２：Weight:=xlMediumは引数です。線の太さを指定しています。

複数個のマクロを作成するときに上記のコードをすべてに書くのがめんどくさいという方のために関数で作っておきました

Sub solid_borders(select_range As range)
    '選択範囲のすべての線に実線を引く※１
    select_range.Borders.LineStyle = xlContinuous
    
    '選択範囲の外側の実線を少し太くする※２
    select_range.BorderAround Weight:=xlMedium
End Sub