此代碼有什么問題？ VBA

Question

無論條件是否為真，單元格的值始終為“錯誤”。 我嘗試過使用else，但是也不起作用。

Sub ejer_4()
    Cells(3, 1).Value = "hola"
    For i = 2 To 21:
        If Int(Cells(i, 3).Value) <> Int(Cells(i + 1, 3).Value) - 1 Then
            Cells(3, 1).Value = "Error"
        End If
    Next
End Sub

Answer 1

我認為應該可以解決您的問題：

Sub ejer_4()
    For i = 2 To 21:
        If Int(Cells(i, 3).Value) <> Int(Cells(i + 1, 3).Value) - 1 Then
            Cells(i, 1).Value = "Error"
        Else
            Cells(i, 1).Value = "hola"
        End If
    Next
End Sub

您的問題是您循環了許多單元格，但是在檢查條件之后將其寫入一個單元格。 因此，此單元格將僅包含上一次檢查的結果。 以前的值將被簡單地覆蓋。