Здравствуйте уважаемые форумчане.
Можете помочь с формой ввода ListBox для ввода множественных значений списка через запятую в каждую последующую ячейку строки.
Привожу пример ввода (1 вариант не работает, 2 вариант работает, если заполнить А2 ячейку таблицы.
Если заполнить А2 ячейку умной таблицы tbl, то форма прекрасно работает, если её оставить пустой, то выходит ошибка.
Код |
---|
Private Sub CommandButton1_Click()
Dim iRow As Integer
Dim mdk1 As String
With ListBox1
For iRow = 0 To .ListCount - 1
If .Selected(iRow) = True Then mdk1 = mdk1 & .List(iRow) & ", "
Next iRow
End With
With List1
iRow = .ListObjects("Tbl").DataBodyRange.Rows.Count + 2
.Cells(iRow, "A").Value = mdk1
End With
End Sub
|