求大神解答下代码问题！

ENCHANTx

在附件里 我想在C列里填充0和1， 如果A列某行为绿色 则C列当行填1 如果为白色， 则C列填0
但是显示错误 不知道问题出在哪里 求解答

abc123281

Sub Binary()
Dim i As Integer
r = [a65536].End(xlUp).Row
For i = 2 To r
If Sheets("sheet1").Cells(i, 1).Interior.ColorIndex = 2 Then
    Sheets("Sheet1").Cells(i, 3).Value = 0
ElseIf Sheets("sheet1").Cells(i, 1).Interior.ColorIndex = 35 Then
    Sheets("Sheet1").Cells(i, 3).Value = 1
End If
Next
End Sub

ENCHANTx

abc123281 发表于 2019-10-14 10:50
Sub Binary()
Dim i As Integer
r = [a65536].End(xlUp).Row

感谢！
请问我用原来的i= i + 1 为什么不对呢？
我之前看到教学视频里有类似功能是这样写的 但是总是搞不清楚这个东西应该放在哪一行才能正确运行

大灰狼1976

ENCHANTx 发表于 2019-10-14 11:05
感谢！
请问我用原来的i= i + 1 为什么不对呢？
我之前看到教学视频里有类似功能是这样写的 但是总是搞 ...

因为你没有循环语句，或者goto语句也行。

ENCHANTx

大灰狼1976 发表于 2019-10-14 12:02
因为你没有循环语句，或者goto语句也行。

原来是这样 谢谢！
我总是不知道Do 和Loop While 应该写在哪行……总是写成死循环……

abc123281

使用 Do While语句也可以呀

Sub Binary()
Dim i As Integer
i = 2
Do While Sheets("Sheet1").Cells(i, 1) <> ""
  If Sheets("Sheet1").Cells(i, 1).Interior.ColorIndex = 2 Then
    Sheets("Sheet1").Cells(i, 3).Value = 0
  ElseIf Sheets("Sheet1").Cells(i, 1).Interior.ColorIndex = 35 Then
    Sheets("Sheet1").Cells(i, 3).Value = 1
  End If
  i = i + 1
Loop
End Sub

大灰狼1976

ENCHANTx 发表于 2019-10-14 12:53
原来是这样 谢谢！
我总是不知道Do 和Loop While 应该写在哪行……总是写成死循环……

如果能确定循环次数，使用for...next比较安全，不确定次数的情况下可使用do...loop，但是要加上结束循环的判断条件，不然就死了。