VBA循环以填充组合框中的数字

时间:2017-07-18 00:33:55

标签: vba for-loop

不确定为什么这段看似简单的代码会让我崩溃:

Dim i as Long

For i = 0.25 to 10 step 0.25
    me.combobox1.addItem (i)
Next i

看起来非常直接,我希望我的组合框有一个看起来如此的列表:

0.25 0.50 0.75 1.00 。 。 。 10.00

2 个答案:

答案 0 :(得分:4)

没有循环的较短版本:

ComboBox1.List = [text(row(1:40)/4,"0.00")]

答案 1 :(得分:-1)

也许尝试从“Next i”中删除i,即仅使用Next而不是Next 1