VBA 使用 for...next 计算 1*2*3...*n

Question

我是VBA的初学者。我的问题是标题，我真的不知道如何更正代码。下面是我尝试的，但我认为这都是错误的......提前致谢。

Sub Try_Click()

Dim i As Integer
Dim n As Integer

n = ThisWorkbook.Sheets("Sheet 1").Cells(3, 2).Value

For i = 1 To n
i = i * (i + 1)

Next i

ThisWorkbook.Sheets("Sheet 1").Cells(5, 2) = i


End Sub

Answer 1

不改我 在循环:

Sub Try_Click()

    Dim i As Long
    Dim n As Long
    Dim prod As Long

    n = ThisWorkbook.Sheets("Sheet 1").Cells(3, 2).Value
    prod = 1
    For i = 1 To n
        prod = prod * i
    Next i

    ThisWorkbook.Sheets("Sheet 1").Cells(5, 2) = prod
End Sub