范围（细胞（Jour，13），细胞（Jour，18））。Interior.Color = 7

Question

我无法使这条线工作：

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

每次弹出此错误消息

  

运行时错误＆＃39; 1004＆＃39;：应用程序定义或对象定义错误

但是这行工作：

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