MultiSelect в Listbox

Пользователь

Сообщений: 228 Регистрация: 24.12.2012

07.04.2013 22:53:26

Добрый вечер всем!

Помогите пожалуйста с MultiSelect в LB.

При выборе значений в списке они появляются у меня в первой строке, а вот при отключении не могу обнулить отключенное значение(((
И еще один момент, сейчас при выборе например Январь+Март, они появятся в первой строке друг за другом, а я хотел бы их отобразить через одну ячейку, так как реально в списке.
пример в приложении и код:

Код

Private Sub ListBox1_Change()
    Dim i%, c%, t$
    
    c = 1
    t = NullString
    
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            Cells(1, c).Value = ListBox1.List(i)
            c = c + 1
            t = Cells(1, c).Value
        End If
    Next i
End Sub

Заранее спасибо за помощь.

Прикрепленные файлы

пример.xlsm (23.44 КБ)

vikttur

Пользователь

Сообщений: 47199 Регистрация: 15.09.2012

07.04.2013 22:59:31

Код

Private Sub ListBox1_Change()
    Dim i As Long , t As Long
    
    t = NullString
    Rows(1).ClearContents
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            Cells(1, i + 1).Value = ListBox1.List(i)
            t = Cells(1, i + 1).Value
        End If
    Next i
End Sub

marker_mc Пользователь Сообщений: 228 Регистрация: 24.12.2012	#3 07.04.2013 23:03:44 vikttur, добавить нечего)))) идеальное решение моей проблемы! В десяточку! Огромное спасибо!

vikttur

Пользователь

Сообщений: 47199 Регистрация: 15.09.2012

07.04.2013 23:10:45

Зачем переменная t?
Можно без предварительного удаления данных.

Код

Private Sub ListBox1_Change()
Dim i As Long, t As Long

    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            Cells(1, i + 1).Value = ListBox1.List(i)
        Else
            Cells(1, i + 1).Value = ""
        End If
    Next i
End Sub

marker_mc Пользователь Сообщений: 228 Регистрация: 24.12.2012	#5 07.04.2013 23:11:32 ааа... чуток не заметил кое что.... Вы привели код где первым столбик является первый, а как сделать чтоб начало было не с первого столбца, а с любого другого? up ссори, разобрался! Изменено: marker_mc - 07.04.2013 23:12:48

marker_mc Пользователь Сообщений: 228 Регистрация: 24.12.2012	#6 07.04.2013 23:31:34 vikttur, переменную добавил чтоб вначале цикла симпатичнее код выглядел))) последний ваш вариант посимпатичнее будет! Еще раз спасибо!

Читают тему