диапазон (Клетки (Jour, 13), Клетки (Jour, 18)) Interior.Color = 7

Question

я не могу сделать эту линию работы:

Range(Cells(Jour, 13), Cells(Jour, 18)).Interior.Color = 7 

Каждый раз, когда это сообщение об ошибке всплывающее

ошибка выполнения '1004': приложения или объект, определенный ошибка

Но эта линия работы:

Range(Cells(Jour, 13), Cells(Jour, 18)).Select 

Я видел множество примеров с Interior.Color = "Whatever" после диапазона.

Почему это не работает?

Спасибо

Answer 1

Вот это должно работать благодаря @Jeeped за указание на ошибку.

Sub color() 
Dim Jour As Long 
Dim wk As Worksheet 

Jour = 1 
Set wk = Sheet1 'Change it with your sheet number. 

With wk 
    .Range(.Cells(Jour, 13), .Cells(Jour, 18)).Interior.color = 7 
End With 

End Sub 

Answer 2

Если вы правильно настроили Jour, тогда это должно сработать.

Sub jour_Jour_Banks() 
    jour = 1 
    Range(Cells(jour, 13), Cells(jour, 18)).Interior.Color = 7 
End Sub