自分好みの罫線を書くVBAマクロをクイックアクセスツールバーに登録すると捗る

僕は営業という仕事柄、得意先によく製品ごとの実績表などをよく提出する。

その時、Excelで下のような罫線を引いて表にすることが多い。

f:id:yohsuke517:20220221224147p:plain

見た目がよく見やすいのでこの罫線の引き方が好きなんだけども、
1つの表で少なくとも2回、罫線を引く作業をしなければいけない。

①まず表の範囲を全選択して、上下に普通の線を引く。

f:id:yohsuke517:20220221224224p:plain

②次に上から2行目～下から2行目を選択して個のような罫線の設定にする。

f:id:yohsuke517:20220221224252p:plain

これがたまにならいいのだけど、日に何度もだとだんだんうんざりしてくる。
そこで今回、このデザインの罫線を選択した好きな範囲に1発で引くVBAを書いてみた。

VBAのコード

Sub 罫線()

    With Selection

        With .Borders(xlEdgeTop) 'Selectした範囲の最上部のセルの上側
            .LineStyle = xlContinuous'実線
            .Weight = xlThin'細い
        End With
        
        With .Borders(xlEdgeBottom) 'Selectした範囲の最下部のセルの下側
            .LineStyle = xlContinuous'実線
            .Weight = xlThin'細い
        End With
        
        With .Borders(xlInsideHorizontal) 'Selectした範囲の内側のセル
            .LineStyle = xlContinuous'実線
            .Weight = xlHairline'極細
        End With
        
        With .Rows(.Rows.Count).Borders(xlEdgeTop) 'Selectした範囲の最終行のセルの上側
            .LineStyle = xlDouble'二重線
        End With
        
        With .Rows(1).Borders(xlEdgeBottom) 'Selectした範囲の1行目のセルの下側
            .LineStyle = xlContinuous'実線
            .Weight = xlThin'細い
        End With
    
    End With

End Sub

これをアドインにしてExcelに組み込んでみた。
そのマクロをExcelのクイックアクセスツールバーにセットしておく。
それを実行してみた様子は以下の通り。

f:id:yohsuke517:20220221224722g:plain