Добрый день, Господа!
Собственно сам сабж: изначально хотел выводить выделенные элементы ListBox'a в массив, совсем ничего не получалось, поэтому решил выводить на лист.
Вроде как всё сначала получалось, но потом начала валиться ошибка.
Ниже привожу код, скрин ошибки, и excel-файл.
Собственно сам сабж: изначально хотел выводить выделенные элементы ListBox'a в массив, совсем ничего не получалось, поэтому решил выводить на лист.
Вроде как всё сначала получалось, но потом начала валиться ошибка.
Ниже привожу код, скрин ошибки, и excel-файл.
| Код |
|---|
Private Sub CommandButton1_Click()
Dim i, y As Integer
'Dim arr()
y = 1
Sheets("Лист1").Range("E1:E156").Clear
For i = 1 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
MsgBox (ListBox1.List(i))
Sheets("Лист1").Cells(y, 5) = ListBox1.List(i)
y = y + 1
End If
Next
End Sub
Private Sub UserForm_Initialize()
BLastRow = Cells(1, 2).End(xlDown).Row 'находим индекс последней заполненной строки
ListBox1.List = Sheets("Лист1").Range("B2:B" & BLastRow).Value 'добавляем все значения в список
End Sub
|
Изменено: - 20.04.2019 18:39:30
