罫線の削除

質問

以下のコードで罫線を引く設定を
教えてもらいました
この罫線を削除する場合の
コードを教授ください

dim i as integer
for i = 0 to 7
with range("A:A").specialcells(xlcelltypeconstants).offset(1, i).borders(xledgebottom)
.linestyle = 1
.weight = xlthin
.colorindex = 5
end with
next i

回答No.1

agricap · ベストアンサー

これでいかがですか？

dim i as integer
for i = 0 to 7
with range("A:A").specialcells(xlcelltypeconstants).offset(1, i).borders(xledgebottom)
.linestyle = xlNone
end with
next i

便利なので、以下憶えておくといいですよ。
ツール⇒マクロ⇒新しいマクロの記録
で操作を記録すると、それに対応するＶＢＡコードが自動生成
されます。それをみると、「こんな操作に対するＶＢＡコード」
はどう書くの、というのがわからないときの、参考になります。

お礼

ありがとうございました
外の方法でおこないました

補足

ANo.1　さん
ありがとうございます
罫線がきえません
すいません