セルの下部に罫線を入れる

Question

VBA初心者なのですが、大量にあるデータを３行ずつ区別して見れるように、罫線を１列目から１７列目にあるセルの下部に引きたいです。（５行目から罫線を引き始め、８行目、１１行目...と続けて、２列目のセルが空白になるまで引き続けたいです。）

また、罫線を引く作業を３シート分それぞれ繰り返し行うように、以下の様にコードを書きましたが、エラーメッセージは表示されず、処理自体は完了されるのですが、罫線が引かれずに困っています。

初歩的な質問で恐縮ですがどの様に対処すれば良いのかアドバイスいただきたいです。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub 時間ごとに罫線を入れる()

Application.ScreenUpdating = False

Dim i, Rownum As Long
Dim num, k As Integer
Dim ws(3) As Worksheet

Set ws(0) = Worksheets("1-2")
Set ws(1) = Worksheets("2-2")
Set ws(2) = Worksheets("3-2")

For num = 0 To 2

    ws(num).Activate
    
    Rownum = Cells(Rows.Count, 2).End(xlUp)
    
        For i = 5 To Rownum
        
            Range(Cells(i, 1), Cells(i, 17)).Borders(xlEdgeBottom).LineStyle = xlContinuous
            
            i = i + 3
        
        Next i
    
Next num

Application.ScreenUpdating = True

End Sub

Answer 1

Forループ内で i に加算してはいけません。

3行毎に処理したいなら、Step を使います。

For i = 5 To Rownum Step 3

    '3行毎に実行したい処理

Next

Comments

[cream_pan]

迅速なご対応ありがとうございます！！

iを加算する処理 (i = i + 3)の代わりに、
For i = 5 To Rownum Step 3　を書き足して試してみたのですが、依然と同じように罫線が引かれずにエラーなしで処理が終了します。

お手数ですが、他に思い当たる所があればご教授お願い致します。

[hatena19]

Rownum = Cells(Rows.Count, 2).End(xlUp)
上記のコードで型が一致しませんのエラーが出ると思いますが、でませんか。
とりあえず下記に修正したらどうなりますか。

Rownum = Cells(Rows.Count, 2).End(xlUp).Row

[cream_pan]

早速のご回答ありがとうございます！
ご指摘のように、End(xlUp)の後に.Rowが抜けていたことが問題でした！
無事罫線が引けました！！
本当にありがとうございました！

[hatena19]

解決済みですが、気になったので、間違いの指摘。

Dim i, Rownum As Long
Dim num, k As Integer

上記だと i と num はVariant型になります(エラーにはなりませんが)。数値型にしたいのだと思いますので、面倒でも下記のように一つずつ型指定する必要があります。

Dim i As Long, Rownum As Long
Dim num As Integer, k As Integer

[cream_pan]

返信おそくなってしまい申し訳ありません＞＜　ご指摘ありがとうございます！！