如何在 Excel 中执行此循环？ [关闭]

Question

我想知道您是否可以帮我在 Excel 中执行此 for 循环？

我可以用 Java 或 C 来做，但是用 Excel 就很难了！！看过一些入门教程，但是太复杂了！！

S(i) and T(i) are to explain that I need to go from S3 to S32, and T3 to T32

{
INT C4  = Intro!B5
INT var = 0

FOR i = 3 to 32
    IF  S(i) = INTRO!A12    THEN
        IF  T(i) = 0    THEN
            var = INTRO!B2
        ELSE    var = INTRO!B2 - T(i)
        ENDIF
    ELSE    var = 0
    ENDIF

    C4 = C4 - var
    i++
ENDFOR
}

这是我尝试过的，但它不起作用！

Sub title()

Dim i As Integer
Dim var As Integer
var.Value = 0

For i = 3 To 32
    If Cells(4,3).Value = "C" Then
        If Cells(i, 19) = 0 Then
            var = INTRO.Cells(2,2)
        Else: var = INTRO.Cells(2,2) - Cells(i,20)
        End If
    Else: var = 0
    Enf If
Cells(4,3) = Cells(4,3) - var
Next i

End Sub

Answer 1

我基于您尝试的转换，有一些错误，但我想我已经清理了它们：

Sub title()
Dim i As Long, var As Long
var = 0
For i = 3 To 32
    If Cells(4, 3).Value = "C" Then
        If Cells(i, 19) = 0 Then
            var = Sheets("INTRO").Cells(2, 2).Value
        Else
            var = Sheets("INTRO").Cells(2, 2).Value - Cells(i, 20).Value
        End If
    Else
        var = 0
    End If
    Cells(4, 3) = Cells(4, 3) - var
Next
End Sub

注意在 VBA 中使用 Long 而不是 Integer 并直接赋值，var=0 不是 var.value = 0 因为它是一个变量而不是一个对象。

还有一个错字enf if 而不是end if