度々エクセルマクロで質問です

質問

前回は皆様有り難うございました。
度々で申し訳ございません。
前回、エクセルマクロで、仮に
columns("C:C").interior.colorindex = xlnone

cnt = 1

temp = range("a1").value
cells(cnt,3).resize(temp).interior.colorindex = 3
cnt = cnt + temp
temp = range("a2").value
cells(cnt,3).resize・・・・・

というマクロを教えて頂きました。
この状態ではＡ列の数字の分だけ、Ｃ列のセルを色分け
できる訳ですが、この色分けと同じ範囲のセルをＤ・Ｅ
列にて罫線を引きたいのですが（範囲内すべてのセルの下線及びＥ列のセルの右側に縦線）このマクロにどのような
マクロを追加すべきなのでしょうか？
変な質問ですみません。　初心者なので教えて下さい。

回答No.3

imogasi · ベストアンサー

＃２です。補足のご要望をいれて
Sub test02()
cnt = 2
temp = 4
Range(Cells(cnt, 4), Cells(cnt, 5)).Resize(temp).Select
Selection.BorderAround LineStyle:=xlContinuous
Selection.BorderAround Weight:=xlThin
Selection.Borders(xlInsideHorizontal).Weight = xlThin
End Sub

補足

ありがとうございます。
早速やってみましたが、やはり縦せんがはいってしまいます。　なぜだかわかりません。　むずかしいですねマクロって

回答No.2

imogasi

＞色分けと同じ範囲のセル
下記を参考に。
Sub test02()
cnt = 2
temp = 4
Range(Cells(cnt, 4), Cells(cnt, 5)).Resize(temp).Select
Selection.Borders.Weight = xlThin
Selection.Borders(xlInsideHorizontal).Weight = xlThin
End Sub
線の太さは、好みの太さに変える。
cnt = 2
temp = 4
は例です。その下の行を
cells(cnt,3).resize(temp).interior.colorindex = 3
の次に入れれば良いと思います。
上下左右をBorders１つで
範囲の中の水平線をBorders(xlInsideHorizontal)１つで
済ましたことがミソです。
マクロの記録だと随分多数行になります。

補足

ありがとうございます。　さっそくやってみましたが、
Ｄ列と　Ｅ列の間の縦線は無くしたいのですが。
横線と　範囲の周囲　bordersaround等を有効に使えると
よいのですが教えて下さい。

回答No.1

na_kirajp

直接の答えではありませんが、
どのマクロを使えばよいか？ですが、
エクセルのメニューでツール→マクロ→新しいマクロの記録を選び、やりたい事（今回は罫線を引く）を行い、画面上に出ているマクロの停止を行い記録する。
そのまくろのソースを見れば、やりたい事が出ています。
多少範囲等は見直す必要がありますが、

自分もこれやるとき、どんなマクロ？の場合結構使っています。