VBA コンボボックス 選択可能値を指定する

Question

#実現したいこと
ＶＢＡのフォーム画面に設置しているコンボボックスＡにて指定したのインデックス番号の値が選択された場合、コンボボックスＢの選択可能値を指定する

例：コンボボックスＡで３番のインデックス番号の値が選択された場合、コンボボックスＢの０～６番のうち、４～６番の値だけを選択できるように表示し、残りの０～３番を非表示にして選択できないようにする。

Comments

[s_george]

コンボボックスAおよびコンボボックスBの値はシートから参照していますでしょうか？
その辺の状況をお聞かせ(追記)ください。

[Yoshikun_0945]

コンボボックスの値はシートから参照せずに、任意の値を設定しています。

[Yoshikun_0945]

例：コンボボックスB.addItem = "○○"

Answer 1

このようなことでよろしいのでしょうか。

Dim Indexes(1 To 6) As String

Private Sub UserForm1_Initialize()
    Dim i As Integer: i = 0
    Dim l As Integer: l = UBound(Indexes)
    
    '' この場合は、テストのため、indexと同じ値を代入
    For i = 1 To l
        Indexes(i) = i
    Next i

    Debug.Print Indexes

    '' コンボボックスに値を追加
    With ComboBox1
        i = 0
        l = UBound(Indexes)

        For i = 1 To l
            .AddItem (Indexes(i))
        Next i
    End With
End Sub


Sub init()
    Dim i As Integer: i = 1
    Dim l As Integer: l = UBound(Indexes)
    
    '' この場合は、テストのため、indexと同じ値を代入
    For i = 1 To l
        Indexes(i) = i
    Next i

    With ComboBox1
        '' コンボボックスのリセット
        .Clear
    
        i = 1
        l = UBound(Indexes)


        '' コンボボックスに値を追加
        For i = 1 To l
            .AddItem (Indexes(i))
        Next i
    End With
End Sub

Private Sub CommandButton1_Click()
    init
End Sub


Private Sub ComboBox1_Change()
    Dim SelectedIndex As Integer: SelectedIndex = ComboBox1.ListIndex + 1 + 1
    
    With ComboBox2
        .Clear
        
        Dim i As Integer
        Dim l As Integer: l = UBound(Indexes)
        
        For i = SelectedIndex To l
            .AddItem Indexes(i)
        Next i
    End With
End Sub

'' この場合は、テストのため、indexと同じ値を代入
のところを書き換えてうまいことしてください。