VBA 帮我看看 这程序怎么搞的 怎么算出来都是100

Question

这是程序，我把 InputBox("请输入间隔的行数:", "间隔求和", 5, 6000, 1000) 中的5怎么改结果都是100 怎么回事
Sub jghsqh()
Dim xx As Integer
Dim yy As Long
yy = 0
xx = InputBox("请输入间隔的行数:", "间隔求和", 5, 6000, 1000)
For i = 1 To 10 Step xx + 1
yy = yy + Cells(i, 1)
Next
MsgBox yy
End Sub

Answer 1

代码放错误位置了吧？要放到你上面截图的这个表里面。或者放模块里面，然后激活这张表再运行。

Answer 2

代码没错啊
我这边怎么运行结果都是8，没错
或者发源文件过来看看

Answer 3

看你这样子不可能显示100吧，你只循环一次，就算全部相加也才55.这个5只是一个默认值，不是返回值。出现输入的时候你是直接点确定的么？我用你的就是正常的

Answer 4

没有你说的问题呀，就你的代码而言，是正确的，就看你怎么用了。