| Вопрос: Excel- добавление в Combobox | Добавлено: 16.11.07 12:47 |
Автор вопроса:  Deiv
|
|
Здраствуйте. Проблема в следющем, существует Excel таблица, надо из колонки добавить значения в combobox с добавлением я разобрался, вопрос: Как зделать проверку чтоб значения не повторялись?
For i = 2 To s2 'poslednaja stroka
zna = Cells(i, zz2).Text 'zz2 = kolonka, zna= zna4enie v jai4eike If zna <> "" Then ComboBox1.AddItem zna 'dobavlenie vseh ne pustih End If Next i зарание спасиб ;) |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Nytrogen Вопросов: 18 Ответов: 186 |
Профиль | | #1 | Добавлено: 16.11.07 16:14 |
|
Пользуйся коллекцией элементов:
Dim uniqItems As New Collection
'добавляем значения ячеек в коллекцию... For i = 2 To s2 zna = Cells(i, zz2).Text If zna <> "" Then 'если такой элемент уже добавлен, генерируется ошибка; 'игнорируя ошибку, элемент не добавится повторно On Error Resume Next uniqItems.Add zna, zna On Error GoTo 0 End If Next i 'перекидываем уникальные элементы в ComboBox For Each item In uniqItems ComboBox1.AddItem item Next item |
||
|
Номер ответа: 2 Автор ответа:  ДмитВопросов: 11 Ответов: 160 |
Web-сайт: Профиль | | #2 | Добавлено: 16.11.07 21:31 |
|
Можно использовать свойство MatchFound:
ComboBox1.Style = fmStyleDropDownCombo
For i = 1 To 25 ComboBox1.Text = Cells(i, 2) If ComboBox1.MatchFound = False Then ComboBox1.AddItem Cells(i, 2) Next ComboBox1.Text = "" ComboBox1.Style = fmStyleDropDownList 'Если нужно заблокировать ручной ввод |
||
Страница: 1 |