Выпадающий список с множественным выбором в выпадающем списке

Question

У меня есть пользовательская форма, в которой я хочу, чтобы пользователь мог выбирать несколько вариантов, но у меня возникла небольшая проблема с поиском лучшего способа сделать это.Если я использую combobox1, я не могу разрешить множественный выбор и флажок.Я также хочу заполнить Combobox2 в соответствии с выбором, сделанным в combobox1.

Я пытаюсь использовать следующий код:

Private Sub UserForm_Initialize()
    Me.cbota1.AddItem "2A"
    Me.cbota1.AddItem "3Q"
    Me.cbota1.AddItem "Sim"
    Me.cbota1.AddItem "2T"
End Sub

Private Sub cbota1_Change()
    Dim index As Integer
    index = cbota1.ListIndex
    cbota2.Clear
    Select Case index
        Case Is = 0
            With cbota2
                .AddItem "Add dime"
                .AddItem "Add annot"
                .AddItem "Others"
                txtTo.Value = "AXA"
            End With

        Case Is = 1
            With cbota2
                .AddItem "Modify"
                .AddItem "Reduce"
                .AddItem "Others"
                txtTo.Value = "CA"
            End With
        Case Is = 2
            With cbota2
                .AddItem "Lin"
                .AddItem "Non"
                .AddItem "Mul"
                .AddItem "Vi"
                txtTo.Value = "ABA"
            End With
        Case Is = 3
            With cbota2
                .AddItem "Ad"
                .AddItem "Red"
                txtTo.Value = "A"
            End With      
    End Select
End Sub

Answer 1

Единственное решение, которое я могу придумать, это, вероятно, излишнее - открыть вторую пользовательскую форму, когда вы нажимаете на Label или TextBox.В новой пользовательской форме вы можете затем перечислить все элементы, которые можно выбрать в флажках, и позволить пользователю выбирать оттуда.

Я кратко подумал сделать это один раз, но решил отказаться от него из-за сложности прохождениявыбор между пользовательскими формами и модулями.