Выбор множества элементов в ListBox и запись каждого элемента в определенную ячейку

@Aklesk · Регистрация: 11.05.2015

Author24 — интернет-сервис помощи студентам

Добрый день!
Мне нужно что б я в ListBox выбирал выборочные элементы и каждый элемент записывался в свою ячейку, у меня работает только для 1го элемента, когда выбираешь 2 и более - ничего не происходит
Вот код:

Visual Basic

Dim n As Integer, s As String
s = ""
 
For n = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(n) Then
 
    stolbs2 = 1
    Do Until ActiveWorkbook.Worksheets("Образцы").Cells(1, stolbs2) = "Конец"
    If ActiveWorkbook.Worksheets("Образцы").Cells(1, stolbs2) = UserForm3.ComboBox1.Text Then
 
        s = s & Me.ListBox1.List(n) & vbLf ' Вроде тут элемент должен переходить на строку ниже
        nombag2 = Split(Trim(s), " - ")(0)
 
        stroks2 = 2
        Do Until ActiveWorkbook.Worksheets("Багет").Cells(stroks2, 1) = "Подрамник"
            If ActiveWorkbook.Worksheets("Багет").Cells(stroks2, 1) = nombag2 Then
            ActiveWorkbook.Worksheets("Образцы").Cells(stroks2, stolbs2) = "не надо"
            Me.ListBox1.AddItem nombag2 & " - " & "не надо"
 
            End If
        stroks2 = stroks2 + 1
        Loop
 
    End If
stolbs2 = stolbs2 + 1
Loop
 
End If
Next n

@Hugo121 · 28.09.2015, 10:11

Попробуйте вынести из цикла
stolbs2 = 1
Глубже виртуально вникать недосуг.

@Aklesk · 28.09.2015, 13:04 **[ТС]**

Вынос за цикл не помогло.
Прикрепил файл.
В Форме3 выбрирается Клиент1 - Выгрузить данные - Отсутствующие
Далее в Форме3 - выбор выделения текста (ВЫБОРОЧНО) - в listbox выбирается n количество элементов и нажимается в Форме3 - Отметить не надо. По одному элементу все отлично работает.

@Hugo121 · 28.09.2015, 13:06

Я пас - на работе архивы режут...

@Aklesk · 02.10.2015, 08:03 **[ТС]**

Разобрался сам, оказывается нужно было s = "" поместить во внутрь цикла, поэтому больше и повторений не было, данные складывались))
Вот код исправленный может кому то пригодится

Visual Basic

Dim n As Integer, s As String
 
stolbs2 = 1
Do Until ActiveWorkbook.Worksheets("Образцы").Cells(1, stolbs2) = "Конец"
If ActiveWorkbook.Worksheets("Образцы").Cells(1, stolbs2) = UserForm3.ComboBox1.Text Then
 
    For n = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(n) Then
        s = ""
        s = s & Me.ListBox1.List(n) & vbLf
        nombag2 = Split(Trim(s), " - ")(0)
 
        stroks2 = 2
        
        Do Until ActiveWorkbook.Worksheets("Багет").Cells(stroks2, 1) = "Подрамник"
        If ActiveWorkbook.Worksheets("Багет").Cells(stroks2, 1) = nombag2 Then
            ActiveWorkbook.Worksheets("Образцы").Cells(stroks2, stolbs2) = "не надо"
            Me.ListBox1.AddItem nombag2 & " - " & "не надо"
 
        End If
        stroks2 = stroks2 + 1
        Loop
        
    End If
    Next n
End If
stolbs2 = stolbs2 + 1
Loop

@Hugo121 · 02.10.2015, 08:31

Глупость...
Тут явно много лишнего, и думаю это ломает всю идею:

Visual Basic

1 2	s = "" s = s & Me.ListBox1.List(n) & vbLf

это равносильно

Visual Basic

1	s = Me.ListBox1.List(n) & vbLf

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	28.09.2015, 10:11	2
	Попробуйте вынести из цикла stolbs2 = 1 Глубже виртуально вникать недосуг. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	28.09.2015, 13:06	4
	Я пас - на работе архивы режут... 0

	02.10.2015, 08:31