仕事でよく登場するExcelの”あの”表の罫線を引くのが面倒なのでマクロを書いた

会社でこんな表をExcelで作ることってままあると思うんですよね。B列C列のようなカテゴリごとに罫線を引くやつ。これ、割と面倒です。カテゴリごとセルを選択して罫線消す→外枠罫線を入れる、の繰り返しなので。作成後に行を挿入するとその部分をまたやり直しと…。

なので、マクロで作りました。

Sub 表罫線を整える()
  mySheet = ActiveSheet.Name
  開始行 = Selection(1).Row
  終了行 = Selection(Selection.Count).Row
  開始列 = Selection(1).Column
  終了列 = Selection(Selection.Count).Column

  For r = 開始行 To 終了行
    For c = 開始列 To 終了列
      If Sheets(mySheet).Cells(r + 1, c) = "" Then
        If Sheets(mySheet).Cells(r + 1, c).Borders(xlEdgeLeft).LineStyle <> xlNone Then
          Sheets(mySheet).Cells(r, c).Borders(xlEdgeBottom).LineStyle = xlNone
        End If
      End If
    Next c
  Next r
End Sub
 

外枠罫線エリア全体を選択して実行するとサクッと罫線を引き直してくれると。

単純なマクロだけど便利で使用頻度も結構高い。

このマクロをリボンに登録すればいつでも使用できます。こちらの記事参照。

非IT企業に勤める中年サラリーマンのIT日記

Excelで自作マクロをリボンに登録する方法

マクロをリボンに埋め込んでおけばよく使う自作マクロを気軽に使えるし、わざわざ.xlsm形式にしなくてもいいのでおすすめです。前回作った表の罫線を整えるマクロをリボンに登録してみます。 まず、マクロが入ったExcelファイルをExcelアドイン（xlam形式）で保存します。保存ダイアログのファイルの種類でxlamを選ぶと場所が専用フォルダになります。そのままここに名前を指定して保存しましょう。 保存後ファイルを閉じます。閉じる時にxlsm形式の保存を促されますが無視して「保存しない」を選んでOKです。 改めてEx...

 - Excel, VBA