Создание зависимого списка в VBA

Question

Я хочу визуализировать зависимый список из поля списка VBA.

У меня есть таблица Excel в виде букв ABCDE Numbers 1 2 3 4 5

И у меня есть пользовательская форма VBA с двумясписки.В первом я хочу выбрать буквы или цифры погоды Во втором списке мне нужно сделать список просмотра зависимым на основе первого выбора

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

Answer 1

Предположим, списки называются LstChoice и LstOptions.Предположим, что таблица находится в диапазоне («a1: B5»). В событии After_update lstChoice поместите это

 Private Sub LstChoice_AfterUpdate()

Dim x As Long
Me.LstOptions.Clear
Select Case LstChoice.ListIndex

      Case 0
          'Letters

          For x = 0 To 4
              Me.LstOptions.AddItem Cells(1, 1).Offset(x, 0)
          Next x
      Case 1
              'numbers
               For x = 0 To 4
                       Me.LstOptions.AddItem Cells(1, 2).Offset(x, 0)
                 Next x
End Select

End Sub