Страницы: 1
RSS
ListBox добавлене множественного выбора в каждую последующую ячейку строки, ListBox добавлене множественного выбора в каждую последующую ячейку
 
Здравствуйте уважаемые форумчане.

Можете помочь с формой ввода 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
Изменено: Владимир Растаргуев - 16.06.2021 13:41:22
 
А всё, сделал. Всем спасибо
Код
Option Explicit

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
 
 On Error Resume Next
 
 iRow = .ListObjects("Tbl").DataBodyRange.Rows.Count + 2
 
 If Err.Number <> 0 Then
            Err.Clear
            iRow = 2
        Else
            On Error GoTo 0
        End If
 
 
 
 .Cells(iRow, "A").Value = mdk1
            
 End With
       
 End Sub

 
Код
       With List1
       .Cells(.ListObjects(1).Range.Row + .ListObjects(1).ListRows.Count + 1, 1) = mdk1
       End With
Страницы: 1
Наверх