Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
29.03.2024, 09:40:38

Войти
На форуме добавлена возможность подписки на RSS-ленты любого раздела форума. Подписаться можно, нажав на иконку RSS , расположенную левее наименования раздела.
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Excel и VBA
| | |-+  ListBox добавлене множественного выбора в каждую последующую ячейку
Страниц: [1]   Вниз
Печать
Автор Тема: ListBox добавлене множественного выбора в каждую последующую ячейку  (Прочитано 2514 раз)
0 Пользователей и 1 Гость смотрят эту тему.
lpro1987
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 2


Просмотр профиля
« : 16.06.2021, 11:06:19 »

Здравствуйте уважаемые форумчане.

Можете помочь с формой ввода ListBox для ввода множественных знвчений списка через запятую в каждую последующую ячейку.

Привожу пример ввода (1 вариант не работает, 2 вариант работает, если заполнить А2 ячейку таблицы)
Код: (vb)
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
 iRow = .ListObjects("Tbl").DataBodyRange.Rows.Count + 2
 .Cells(iRow, "A").Value = mdk1
            
 End With
      
 End Sub

_________________________________________________________________________________________
« Последнее редактирование: 21.06.2021, 14:21:12 от vikttur » Записан
lpro1987
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 2


Просмотр профиля
« Ответ #1 : 16.06.2021, 14:00:34 »

А всё, сделал.

Код: (vb)
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

Записан
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru