Состояние внутри цикла (VBA)

Question

Я написал эту простую подпроцедуру для Excel VBA. Я намеренно использовал двоеточие (:) для разделения операторов. Почему это не работает?

Sub ConditionInsideLoop()

    cb = 0: cd = 1: For ca = 1 To 5: If cd = 1 Then cb = cb + 1: Next

End Sub

Вопрос в основном теоретический. Но это может быть практично. Например, когда мы используем окно «Немедленно», и внутри простого цикла необходимо использовать простое условие.

Answer 1

Это синтаксис. Вы можете переписать, чтобы удалить ошибочный оператор If.

Public Sub ConditionInsideLoop()
    Dim cb As Long, cd As Long, ca As Long
    cb = 0: cd = 1: For ca = 1 To 5: cb = IIf(cd = 1, cb + 1, cb): Next
    Debug.Print cb
End Sub