VBA中的InputBox驱动的简单求和

Question

我显然是一个新手，我正在尝试使用InputBox中要求的值创建一个简单的求和。 我想要做的是使用一个简单的问题对话请求值和，例如＆＃34;输入下一个值＆＃34;如果输入的值为零，则结束该对话并对数字求和。

Answer 1

我假设您正在尝试使用动态数量的输入框，因此用户可以决定他们想要总和的数量。

Dim TotalNum As Variant
Dim Hits As Long
Dim SumNums As Variant
Dim EnteredNum As Double
TotalNum = InputBox("How Many Numbers Do You Want to Sum?")
If TotalNum = "" Then
    Exit Sub
End If
    For i = 1 To TotalNum
        EnteredNum = InputBox("Enter Number Here")
        SumNums = SumNums + EnteredNum
        Hits = Hits + 1
    Next i
MsgBox SumNums / Hits

我认为这正是您所寻找的，但您的问题并非100％明确。