セルの範囲指定に変数を使用してcount Ifの中で使用する方法

Question

For Next構文の中でCountIfのセルの範囲指定を変数rを使って表示したいのですが、うまくいきません
以下の
Range("C5:I5")
の部分を
Range(cells(r,3),cells(r,9))
に変更したら動かなくなってしまいました
どの部分がいけないのか教えていただけますでしょうか

Sub 勤務の曜日入力()
Application.ScreenUpdating = False
Dim i As Long
Dim r As Long
With Sheets("シフト")
For r = 5 To .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To .Cells(3, Columns.Count).End(xlToLeft).Column
If WorksheetFunction.CountIf(Sheets("データ").Range("C5:I5"), .Cells(4, i)) = 1 Then
.Cells(r, i) = "●"
Else
.Cells(r, i) = ""
End If

        Next i
    Next r
    
    
   

End With

End Sub

Answer 1

Excel VBAでは、くどくインスタンス指定しないと反応しません。

Sheets("データ").Range(cells(r,3),cells(r,9))

を

Sheets("データ").Range(Sheets("データ").cells(r,3),Sheets("データ").cells(r,9))

にしてみましょう。

Comments

[mailrie]

教えていただいたもので動きました！
ずっと悩んでいたのでとても助かりました
１つ１つ指定してあげないといけないのですね
全然気か付きませんでした…

ありがとうございました