1Dim Indexes(1To6)AsString23PrivateSub UserForm1_Initialize()4Dim i AsInteger: i =05Dim l AsInteger: l = UBound(Indexes)67'' この場合は、テストのため、indexと同じ値を代入8For i =1To l
9 Indexes(i)= i
10Next i
1112 Debug.Print Indexes
1314'' コンボボックスに値を追加15With ComboBox1
16 i =017 l = UBound(Indexes)1819For i =1To l
20.AddItem (Indexes(i))21Next i
22EndWith23EndSub242526Sub init()27Dim i AsInteger: i =128Dim l AsInteger: l = UBound(Indexes)2930'' この場合は、テストのため、indexと同じ値を代入31For i =1To l
32 Indexes(i)= i
33Next i
3435With ComboBox1
36'' コンボボックスのリセット37.Clear
3839 i =140 l = UBound(Indexes)414243'' コンボボックスに値を追加44For i =1To l
45.AddItem (Indexes(i))46Next i
47EndWith48EndSub4950PrivateSub CommandButton1_Click()51 init
52EndSub535455PrivateSub ComboBox1_Change()56Dim SelectedIndex AsInteger: SelectedIndex = ComboBox1.ListIndex +1+15758With ComboBox2
59.Clear
6061Dim i AsInteger62Dim l AsInteger: l = UBound(Indexes)6364For i = SelectedIndex To l
65.AddItem Indexes(i)66Next i
67EndWith68EndSub69