エクセルVBA：任意の行への罫線記載

エクセルVBAにて「BからI列」の任意の行に格子の罫線を記載しようとしています

変数を「ｒ」にて定義し、
Range("B" & r:"I" & r).Borders.LineStyle = xlContinous
と入力しましたが構文エラーとなります

正しい構文を教えて頂けませんでしょうか

No.1 ベストアンサー 回答者： siffon9 回答日時： 2018/08/11 17:21

変数rに行番号が入っているという前提で

Range("B" & r:"I" & r)
　↓
Range("B" & r & ":I" & r)

ですね。

この回答へのお礼

ありがとうございました。「”」の場所がミソなのですね。うまく動きました。

お礼日時：2018/08/11 18:01

No.2 回答者： yy2000 回答日時： 2018/08/11 17:22

Range("B" & r & ":I" & r).Borders.LineStyle = xlContinous

でいいのではないでしょうか。
コロンのところが違うと思います。

この回答へのお礼

ありがとうございました。「：」の場所がミソなのですね。うまく動きました

お礼日時：2018/08/11 18:01

No.3 回答者： tom04 回答日時： 2018/08/11 17:28

こんにちは！

仮にB10～I10セルを格子の罫線にする場合は

Sub Sample1()
　Dim r As Long
　　r = 10
　　Range("B" & r & ":" & "I" & r).Borders.LineStyle = xlContinuous
End Sub

とか

Sub Sample2()
　Dim r As Long
　　r = 10
　　Range(Cells(r, "B"), Cells(r, "I")).Borders.LineStyle = xlContinuous
End Sub

のようになると思います。

※　当方はSample2のやり方の方をよく使います。m(_ _)m

この回答へのお礼

結構複雑な構文になるのですね。勉強します、ありがとうございました。

お礼日時：2018/08/11 18:05