Несколько списков - PullRequest
Новая
       8

Несколько списков

0 голосов
/ 30 марта 2020

Я пытаюсь создать форму заявки. У меня есть несколько списков для выбора указанных c элементов для создания оценки. У меня возникли проблемы, не закрывая первые данные списка последовательными.

Четыре списка

код, который у меня сейчас есть, 

Sub ListBox2_Change()
Dim lb As ListBox, mylist As Collection
Set lb = ActiveSheet.ListBoxes(Application.Caller)
'Store the selecteditems of the listbox in a Collection Object "mylist"
Set mylist = New Collection
For I = 1 To lb.ListCount
    If lb.Selected(I) = True Then
    mylist.Add lb.List(I)
    count = count + 1
    End If
Next I
Range("E7:E44").Clear
'Extract the selected item into Excel
For I = 1 To mylist.count
Range("E" & I + 7) = mylist(I)
Next I


End Sub
...