Перейти к содержанию

Как убрать повторяющиеся элементы в ComboBox


Рекомендуемые сообщения

Hi ALL!

Подскажите пожалуйтста. Есть код:

Range("A2").Activate
Set diapazon = ActiveCell.CurrentRegion
r2 = diapazon.Rows.Count
For i = 2 To r2
ComboBox1.AddItem (Cells(i, 2).Value)
Next i

Он добавляет все подряд элементы в ComboBox1. Как бы мне убрать повторяющиеся элементы? А то уже глаза в кучу у меня :rolleyes:

Ссылка на комментарий
Поделиться на другие сайты

эээ...мой те совет переходи на с++ :help:

попробуй так чтоли...

Long j

For i = 2 To r2

for j=0 to ComboBox1.ListCount-1

if ComboBox1.List(j)=Cells(i,2).Value then goto nz

next j

ComboBox1.AddItem (Cells(i, 2).Value)

nz:

Next i

Пойдет? А то могу ченить ещё придумать :rolleyes:

Ссылка на комментарий
Поделиться на другие сайты

Пожалуйста, войдите, чтобы комментировать

Вы сможете оставить комментарий после входа в



Войти
×
×
  • Создать...