For iCount = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iCount) = True Then
iRow = iRow + 1
'Cells(iRow, 1).Value = ListBox1.List(iCount)
'Range("A" & iRow).Value = ListBox1.List(iCount)
Columns(1).Rows(iRow).Value = ListBox1.List(iCount)
End If
Next
ListBox
везде пишут, что ListBox позволяет осуществлять выбор нескольких элементов. мне нужно, чтобы выбранные элементы вставлялись последовательно друг за другом в столбик, начиная с определенной ячейки. как это сделать? в ListBoxе они выбираются, но я никак не могу их вставить.
Код:
или даже так :
Код:
Set iCell = Range("A1")
For iCount = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iCount) = True Then
iCell.Value = ListBox1.List(iCount)
Set iCell = iCell.Item(2, 1)
End If
Next
For iCount = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iCount) = True Then
iCell.Value = ListBox1.List(iCount)
Set iCell = iCell.Item(2, 1)
End If
Next
Примечание :
При желании можно добавить ссылку на рабочий лист в котором требуется вывести список.