listfillrangeは私がコンボボックスの数に異なると、それぞれが持っているコードをコンボボックスに値を割り当てる方法を知っているが、私がやりたいことリストが実際に0-20</p> <p>からであると言っている

Question

エクセル範囲。さて、私は、これらの配列に合わせて配列を作成して割り当てることができますが、多重配列を使って最小値と最大値を与えてコンボリストを作成する方法はありますか？

ので
combobox_1 = 1から67
combobox_2 = 5〜20
combobox_3 = 23

tidiest何
combobox_87 = 84 108に33
...
...へそれをコード化する方法？

よろしく

アーロン

Answer 1

私は@Timウィリアムズに同意します。

Sub Fillcb() 

    Sheet1.ComboBox1.List = ConsecutiveArray(5, 20) 

End Sub 

Function ConsecutiveArray(lMin As Long, lMax As Long) As Variant 

    Dim aReturn() As Long 
    Dim i As Long 
    Dim lCnt As Long 

    ReDim aReturn(0 To lMax - lMin) 

    For i = lMin To lMax 
     aReturn(lCnt) = i 
     lCnt = lCnt + 1 
    Next i 

    ConsecutiveArray = aReturn 

End Function