Excel中的简单vba程序

Question

Sub TEST()
    If cells(i, "R").Value <> "UK" Then
        cells(i, "R").Interior.ColorIndex = 3
    End If
End Sub

如果我运行此程序，它会抛出应用程序定义的错误\

我是Excel新手（初学者）

如何纠正此错误!!!

提前致谢

Answer 1

我认为问题是“R”，我知道单元格方法需要2个参数，一个是行，另一个是列（按顺序），但这是通过数字而不是字母来完成的，所以如果你把它改成单元格（1 ，18）然后上面的代码工作正常。

此链接也可能有助于了解更多内容，其中介绍了如何首先选择范围，因为我相信上面的代码将采用当前选定的页面，但您可能希望在单击按钮时运行从其他页面或电子表格打开后立即。

http://msdn.microsoft.com/en-us/library/office/ff196273.aspx

Answer 2

问题是变量 i 尚未赋值。 VBA假设它为零。由于 i 用于确定单元格的行，因此Excel会抛出异常，因为没有第0行！

Answer 3

首先你必须定义i变量

例如：Dim i as variant