選択範囲の罫線(太線)とセルの色を設定するマクロ～データ集計業務に即したマクロVBA

罫線を引きたいけど、xlEdgeTopなどなどのコードは忘れてしまいがちなので、覚えやすい名前に変更。
また、同時に色も付けられる設定にしています。

選択範囲の罫線とセルの色の設定

Public Sub BOR_THIN(FROM_Y, FROM_X, TO_Y, TO_X, Optional BS = 0, Optional CLR = 0)

・(FROM_Y, FROM_X, TO_Y, TO_X）で範囲の指定をしてください。
　RANGE(CELLS(1,1),CELLS(2,2))→(1,1,2,2)です。

・Optional BS = 0 ,で罫線の種類を選択できます。
　"UE","SHITA","MIGI","HIDARI","ALL","JOUGE"何もなしだと外側を囲います。

・Optional CLR = 0　,で色を選択してください。
”RED”, ”YELLOW”, "BLUE”,”GREEN”,”HADA”,”MOMO”,から選べます。何もなしだと塗りつぶしなしです。