Выбор элемента из списка, чтобы показать больше элементов в другом списке?

Прежде всего, ваши данные должны где-то храниться. Например, у вас может быть один рабочий лист для каждого шоу, сезоны в столбце A и эпизоды для каждого сезона в одной строке (начиная со столбца B). Если вы не хотите, чтобы эти данные были видны, просто скройте листы.

Итак, если я правильно понял, сначала вы хотите выбрать шоу, затем сезоны этого шоу появляются во втором списке, а затем, когда вы выбираете сезон, эпизоды этого сезона появляются в третьем списке.

Во-первых, вам нужно добавить все, что вы показываете, в 1-й список. Здесь я предполагаю, что у вас есть 10 шоу, что их соответствующие рабочие листы - это рабочие листы (1) для рабочих листов (10), и что имя рабочего листа - это название шоу (но вы можете сделать, как хотите, для пример хранения названия шоу в определенной ячейке).

    Dim showName as String
    For i = 1 To 10
       showName = Worksheets(i).Name
       lstShows.AddItem showName
    Next i

Затем, чтобы изменить список сезонов при выборе определенного шоу, вы можете сделать это:

Private Sub lstShows_Change()

Call Me.lstSeasons.Clear

showName = Me.lstShows.Value
Dim sh as Worksheet
Set sh = ThisWorkbook.Sheets(showName)
rowCount = sh.Cells(sh.Rows.Count,"A").End(xlUp).Row

Dim i As Integer

    For i = 1 To rowCount
       Me.lstSeasons.AddItem sh.Cells(i,1).Value
    Next i

End Sub

И чтобы список эпизодов менялся при выборе определенного сезона, вы можете сделать это:

Private Sub lstSeasons_Change()

Call Me.lstEpisodes.Clear

showName = Me.lstShows.Value
Dim sh as Worksheet
Set sh = ThisWorkbook.Sheets(showName)
rowCount = sh.Cells(sh.Rows.Count,"A").End(xlUp).Row

Dim colCount As Integer
Dim i As Integer
Dim j As Integer

    For i = 1 To rowCount
       If Me.lstSeasons.Value = sh.Cells(i,1).Value Then
          colCount = sh.Cells(i, sh.Columns.Count).End(xlToLeft).Column
          For j = 2 To colCount
             Me.lstEpisodes.AddItem sh.Cells(i,j).Value
          Next j              
    Next i

End Sub

Надеюсь, это поможет!

Первое, что, я считаю, вам нужно сделать, это разместить многомерный массив для хранения вашей информации. Дополнительные сведения о зубчатых массивах: https://msdn.microsoft.com/en-us/library/hkhhsz9t(v=vs.90).aspx

поэтому вы можете использовать его, например, так:

Dim shows(50)(50) As string

Это даст вам 50 «шоу» по 50 серий в каждом. теперь вы можете изменить их с помощью программы по мере необходимости.

Теперь перейдем к следующей части, которая вставляет их. Вы можете изменить их, назначив значение с помощью

 shows(1)(12) = "ep12nameofshow1"

Где вы можете назначить строку как переменную, если хотите вручную изменить имя во время выполнения

Теперь вы хотите добавить элементы в свой список! Итак, давайте рассмотрим это с помощью небольшого цикла for

For Each episode As String In shows(1) 'show number here
    lstEpisodes.Items.Add(episode)
Next

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

Обновить Этот код должен работать:

1- Добавьте это вверху страницы (ниже объявления класса)

Dim showEpisodes(99)(99)() As String

думайте об этом как showEpisodes(Show#,Season#,Ep#)

2- Добавьте значения в свой массив. Как вы это сделаете, зависит от вас (используйте файл, базу данных или просто заранее определенные значения. Вы даже можете поместить их во время выполнения. Но это уже другой вопрос!)

3- Добавьте эту часть в код вашего сезона.

For Each element As String In showEpisodes(lstShows.SelectedIndex)(lstSeasons.SelectedIndex)
    lstEpisodes.Items.Add(element)
Next