表を作成するときに、いちいち罫線をつけて、背景色をつけるのが面倒になってきたので、範囲を選択すると表を作成するマクロを作りました。
設計書などを書く場合など、みんなで同じ書式に合わせる必要があるようなときにも役立つと思います!
イメージは ↓ こんな感じです!
選択した範囲を表にするマクロ
1. VBAのソースコードを書く
マクロのソースコードは以下になります。
copy
Sub SelectRangeAndMakeList()
Dim rngList As Range
' ダイアログを表示し、選択した範囲を変数に入れる
Set rngList = Application.InputBox( _
Prompt:="ドラッグした範囲が表になります", _
Title:="表を作成する", _
Type:=8)
With rngList
' 表に罫線を付ける
.Borders.LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlDash
.Rows(1).Borders(xlEdgeBottom).LineStyle = xlContinuous
' 表の1行目の背景色を変更する
.Rows(1).Interior.Color = RGB(169, 208, 142)
End With
End Sub
罫線を設定する方法ついては、以下の記事を参考にしてください。

色を設定する方法については、以下の記事を参考にしてください。

2. マクロを実行する
キーボードの【F5】を押す、または画面上部の【▶】を押して、マクロを実行します。
【表を作成する】ダイアログが表示されます。
範囲を選択して、OKボタンをクリックします。
選択した範囲に表が作成されます。
これで完了です!
このマクロは、以下の書籍を参考にして作成しました。
内容が非常に実践的で、丁寧に書かれている書籍です。そして、何より約1,500円と安いのでおススメです!