行に色を付ける

質問

本を片手にやっているのですが
分かっている人にしたらあほみたいなことなんでしょうがよろしくお願いします。
A列には日付B列には曜日（WEEKDAY関数で日曜が1）を入力してあります。土日の行ににピンクを塗りつぶしたいのですが
Sub iro()
Dim i As Integer, gyou As Long

gyou = Range("b65536").End(xlUp).Row

For i = 2 To gyou
If Range("b65536").End(xlUp).Value = 1 Or 7 Then

Rows(i).Interior.ColorIndex = 7

Else
Exit For
End If
Next
End Sub
なんとなくここまでできたのですが、これだと
全部の行に色がついてしまいます。
何がいけないのでしょうか？
よろしくお願いします。

回答No.1

mshr1962

If Range("b65536").End(xlUp).Value = 1 Or 7 Then
Orはこのような使い方はしません。
またExist Forでいいのですか？ここで止まることになりますが．．．

If Range("b65536").End(xlUp).Value = 1 Or Range("b65536").End(xlUp).Value =7 Then
Rows(i).Interior.ColorIndex = 7
End If

とするか

Select Case Range("b65536").End(xlUp).Value
Case 1,7
Rows(i).Interior.ColorIndex = 7
End select

お礼

Sub iro()
Dim i As Integer, gyou As Long

gyou = Range("b65536").End(xlUp).Row

For i = 2 To gyou
If Range("b" & i).Value = 1 Or Range("b" & i).Value = 7 Then Rows(i).Interior.ColorIndex = 7

Next
End Sub
できました。