Перебор значений ComboBox

@Baykal555 · Регистрация: 08.09.2017

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

Доброго времени суток!
Подскажите, как реализовать следующую задачу:
Необходимо по очереди по нажатию кнопки на пользовательской форме перебирать значения, которые прописаны в Combobox. То есть, чтобы процедура, которая заложена в кнопке выполнялась со всеми значениями ComboBox в порядке очереди.
Заранее спасибо!

~~Остап Бонд~~ · 05.10.2019, 09:06

Baykal555, я угадал проблему?

Visual Basic

Private Sub CommandButton1_Click()
Dim i&
For i = 0 To ComboBox1.ListCount - 1 'все значения ComboBox в порядке очереди
  MsgBox ComboBox1.List(i) 'процедура, которая заложена в кнопке
Next i
End Sub

@Baykal555 · 05.10.2019, 20:08 **[ТС]**

Остап Бонд,

Я подставил, но что-то все равно приходится значения из Combobox выставлять и каждый раз нажимать на кнопку:

Visual Basic

Private Sub CommandButton1_Click()
Dim i&
For i = 0 To ComboBox1.ListCount - 1 
 Dim s As Range
 Dim lastrow As Long
 Dim k As Integer
 lastrow = Cells(Rows.Count, 4).End(xlUp).Row
 For Each s In Sheets(1).Range("D1:D" & lastrow)
 k = k + 1
 If Cells(k, 5) = ComboBox1 Then Rows(k).Clear
 Next s
 
 
Next i
End Sub

@Narimanych · 05.10.2019, 22:09

Baykal555,

прикрепите файл...

И вам легче и нас мучать не надо...

Добавлено через 16 минут
Вы невнимательно просмотрели совет от Остап Бонд,

у него :

Сообщение от Остап Бонд

ComboBox1.List(i)

у вас :

Сообщение от Baykal555

ComboBox1

Немного "прибрался " в вашем коде...

Visual Basic

Private Sub CommandButton1_Click()
 Dim i&
 Dim lastrow As Long
 Dim k As Integer
         lastrow = Cells(Rows.Count, 4).End(xlUp).Row
         For i = 0 To ComboBox1.ListCount - 1
             For j = 1 To lastrow
                  If Trim(Cells(j, 5).Value) = ComboBox1.List(i) Then Rows(j).Clear
             Next j
          Next i
End Sub

@Baykal555 1 / 1 / 0 Регистрация: 08.09.2017 Сообщений: 391
		1
	Перебор значений ComboBox 05.10.2019, 07:27. Показов 5005. Ответов 3 Метки combobox, excel, userform (Все метки) Доброго времени суток! Подскажите, как реализовать следующую задачу: Необходимо по очереди по нажатию кнопки на пользовательской форме перебирать значения, которые прописаны в Combobox. То есть, чтобы процедура, которая заложена в кнопке выполнялась со всеми значениями ComboBox в порядке очереди. Заранее спасибо! 0

	05.10.2019, 22:09