VBAで複数のセルに一度に罫線を引く方法？

質問

よろしくお願いします！
現在は一つのセルに罫線を引いたら、その次のセルに引いて、またその次のセルに…
のような繰り返しでかなり冗長なコードになってしまっています。
複数のセルに一気に罫線を引けるシンプルなコードはありますでしょうか？

どうぞ、アドバイスをよろしくお願いいたします。

回答No.1

nda23 · ベストアンサー

Rangeオブジェクトに罫線を引けば
よいのです。Cells(行, 列)もRange
オブジェクトです。
With Range("A1:G100")
　　　　With .Borders(xlEdgeLeft)
　　　　　　　　以下略

お礼

ありがとうございました！
求めていた結果が得られました。

回答No.3

o_chi_chi

繰り返しをシンプルにするために

Do...Loop、For...Next等ステートメント

があるんですけど。

回答No.2

imogasi

>複数のセルに一気に罫線を引けるシンプルなコードはありますでしょうか
意味をはっきり表現して質問すること。複数のセルの意味があいまい。
ーー
長方形のセル範囲の全セルに同じ罫線をひく（マス目的に）のなら
Sub test04()
Range("B2:F15").Select
For i = 7 To 12
Selection.Borders(i).Weight = xlThin '他に色・線種などを書き加えることが出来る
Next
End Sub
が一番コード字数が少ないだろう。
この７から１２は
Sub test02()
MsgBox xlEdgeLeft
MsgBox xlEdgeTop
MsgBox xlEdgeBottom
MsgBox xlEdgeRight
MsgBox xlInsideVertical
MsgBox xlInsideHorizontal
End Sub
を実行すれば判るところから来る。
参考に。
ーー
しかしやっていることは罫線を引くマクロの記録のコードと同じ。
無理しないほうがよかろう。
ーー
他に、手作業で別範囲に罫線を引いて、ＶＢＡで必要なセル範囲に貼り付けるとか（テンプレート的考え）。

お礼

ありがとうございます！
勉強になりました。