Excel VBA下一个没有

一种新语言的语法可能很难理解。 我是一个1天的VBA excel奇迹我下面出错了。

尝试在由用户select的单元格中select颜色行

Sub color() Dim R As Range Dim I As Integer Dim P As Object I = 1 R = Selection For Each P In R If I Mod 2 = 0 Then P.Interior.ColorIndex = 36 Else P.Interior.ColorIndex = 40 I = I + 1 Next P End Sub 

我得到的错误是Next没有

Answer 1

Siddarth，他的问题是“我得到的错误是未来的”。 我通过添加“End IF”来纠正错误。 反正这里是正确的代码：—

 Sub color() Dim R As Range Dim I As Integer Dim P As Object I = 1 'R = ActiveWindow.Selection For Each P In ActiveWindow.Selection If I Mod 2 = 0 Then P.Interior.ColorIndex = 36 Else P.Interior.ColorIndex = 40 End If I = I + 1 Next P End Sub 

第6行和第7行也可以更改如下：

  Set R = ActiveWindow.Selection For Each P In R