VBA 将增量值添加到 combobox

Question

| am wondering how to populate items list for a combobox from value to value by increment of value? The way I do it now is by hand via:

LowerFilmWidth_ComboBox.AddItem "300"

In this example I am trying to add values from 300 to 650 by increment of 1

Could someone, please, share a code for doing that?

Answer 1

Please, try the next code:

Sub AddIncrementedNrCombo()
  Dim i As Long, arr(350)
  For i = 300 To 650
        arr(i - 300) = i
  Next i

  LowerFilmWidth_ComboBox.list = arr
End Sub

Edited :

A version allowing incrementing with a different increment:

Sub AddIncrementedNrCombo()
  Dim i As Long, arr(350), k As Long, inc As Long
  
  inc = 10 'it can be calculated
  For i = 300 To 650 Step inc
        arr(k) = i: k = k + 1
  Next i
  
  ReDim Preserve arr(k - 1)
  LowerFilmWidth_ComboBox.list = arr
End Sub

Edit2 :

Sub AddIncrementedNrComboVar()
  Dim i As Long, arr(), k As Long, mN As Long, mX As Long, inc As Long
  
  mN = 300 'min
  mX = 650 'max
  inc = 10
  ReDim arr(mX - nm)
  
  For i = mN To mX Step inc
        arr(k) = i: k = k + 1
  Next i
  
  ReDim Preserve arr(k - 1)
  LowerFilmWidth_ComboBox.list = arr
End Sub

Answer 2

If you want to be fancy, you could use something like:

LowerFilmWidth_ComboBox.List = [Row(300:650)]

But for future reference you should know about the For loop where you could Step through in a specified interval (1 by default)

For x = 300 To 650 'Step 1
    LowerFilmWidth_ComboBox.AddItem x
Next