Fill Combo Box by multiple of 10s

[Av8tordude]

I have the code I like to use to fill combo box by 10's from -100 to 100. (i.e. -100...-30, -20, -10...0...10, 20, 30,...100)

Also I like to format numbers as percentage. Thank you

Can anyone assist. Thank you kindly.

For i = -100 To 100    
     cbPct1.AddItem i
Next i

 

[MickG]

Try:-

For i = -100 To 100 Step 10

 

[Av8tordude]

I learn something new! Thank you MickG. Appreciate the help.

Cheers!

 

[MickG]

You're welcome

 

[Av8tordude]

Is there a way I can format numbers as percentage in the combo box to show as percentage?

 

[mikerickson]

For i = -100 To 100 Step 10
    ComboBox1.AddItem Format(i, "0 %")
Next i

Note that "number formatted as percentage" means that 1 is represented by 100% etc.

 

[Av8tordude]

Thank you for you help, however the results show (i.e. 1000%) instead of 10%. I've tried adjusting but can't figure it out.

I've change it to i/100 and it seems to give me the proper results.

Thank you Mike

 

[mikerickson]

A For loop can be incremented by a non-integer. Note that i is dimmed as Double.

Dim i as Double

For i = - 1 to 1 Step .1
    ComboBox1.AddItem Format(i, "0 %")
Next i

 

[Kyle123]

I'd prefer:

Combobox1.List = [(row(1:21)-11)*10&"%"]

AddItem is best avoided in a loop