Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как в списке ListBox выбирать несколько значений - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как в списке ListBox выбирать несколько значений (Макросы/Sub)
Как в списке ListBox выбирать несколько значений
Igor-K65 Дата: Четверг, 03.12.2015, 16:13 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
свойство MultiSelect изменил но вот переделать не получается что бы обрабатывались все выбранные элементы

[vba]
Код
Private Sub CommandButton1_Click()
Dim iRow&: iRow = ListBox1.ListIndex
If iRow = -1 Then Exit Sub

With wsSheet5.Cells(wsSheet5.Rows.Count, "E").End(xlUp)
.Cells(2, -2).Resize(, 4) = Application.Index(ListBox1.List, iRow + 1, 0)

.Cells(2, -3) = wsSheet1.Name
.CurrentRegion.Borders.LineStyle = xlContinuous
End With

' MsgBox ListBox1.List(iRow, 2), , "Добавлено :"
Unload Me 'Me.Hide
End Sub
[/vba]
[moder]Оформляйте коды тегами (кнопка #). На первый раз исправила[/moder]


Сообщение отредактировал Pelena - Четверг, 03.12.2015, 16:17
 
Ответить
Сообщениесвойство MultiSelect изменил но вот переделать не получается что бы обрабатывались все выбранные элементы

[vba]
Код
Private Sub CommandButton1_Click()
Dim iRow&: iRow = ListBox1.ListIndex
If iRow = -1 Then Exit Sub

With wsSheet5.Cells(wsSheet5.Rows.Count, "E").End(xlUp)
.Cells(2, -2).Resize(, 4) = Application.Index(ListBox1.List, iRow + 1, 0)

.Cells(2, -3) = wsSheet1.Name
.CurrentRegion.Borders.LineStyle = xlContinuous
End With

' MsgBox ListBox1.List(iRow, 2), , "Добавлено :"
Unload Me 'Me.Hide
End Sub
[/vba]
[moder]Оформляйте коды тегами (кнопка #). На первый раз исправила[/moder]
Автор - Igor-K65
Дата добавления - 03.12.2015 в 16:13
Igor-K65 Дата: Четверг, 03.12.2015, 16:38 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Так выводит только последний выбранные элемент, но столько раз сколько элементов в списке я выбрал.
[vba]
Код

Private Sub CommandButton1_Click()
    Dim iRow&: iRow = ListBox1.ListIndex
      For i = 0 To ListBox1.ListCount - 1
         If ListBox1.Selected(i) Then
    If iRow = -1 Then Exit Sub
       With wsSheet5.Cells(wsSheet5.Rows.Count, "E").End(xlUp)
         .Cells(2, -2).Resize(, 4) = Application.Index(ListBox1.List, iRow + 1, 0)

         .Cells(2, -3) = wsSheet1.Name
         .CurrentRegion.Borders.LineStyle = xlContinuous
       End With
     End If
    Next i
   ' MsgBox ListBox1.List(iRow, 2), , "Добавлено :"
    Unload Me 'Me.Hide
End Sub
[/vba]
 
Ответить
СообщениеТак выводит только последний выбранные элемент, но столько раз сколько элементов в списке я выбрал.
[vba]
Код

Private Sub CommandButton1_Click()
    Dim iRow&: iRow = ListBox1.ListIndex
      For i = 0 To ListBox1.ListCount - 1
         If ListBox1.Selected(i) Then
    If iRow = -1 Then Exit Sub
       With wsSheet5.Cells(wsSheet5.Rows.Count, "E").End(xlUp)
         .Cells(2, -2).Resize(, 4) = Application.Index(ListBox1.List, iRow + 1, 0)

         .Cells(2, -3) = wsSheet1.Name
         .CurrentRegion.Borders.LineStyle = xlContinuous
       End With
     End If
    Next i
   ' MsgBox ListBox1.List(iRow, 2), , "Добавлено :"
    Unload Me 'Me.Hide
End Sub
[/vba]
Автор - Igor-K65
Дата добавления - 03.12.2015 в 16:38
wild_pig Дата: Пятница, 04.12.2015, 07:26 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 518
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
Ответил на планете
 
Ответить
СообщениеОтветил на планете
Автор - wild_pig
Дата добавления - 04.12.2015 в 07:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как в списке ListBox выбирать несколько значений (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!