Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > VBA Excel - Организация поиска в LISTBOX

Автор: Anton555 15.2.2006, 07:55

Уважаемые подскажите,

Имеется LISTBOX (4 столбца и куча строк)

Необходимо в LISTBOX при вводе в TextBox находить заданное значение.

Заранее благодарен

Автор: Staruha 15.2.2006, 21:27

Где-то это уже было.Не нашла .Наверно на бесике.Поищи ,если интересно.

Код


Private Sub poisk_Click()
A = InputBox("Поиск модели автомобиля", "Введите название модели", "")
For q = 0 To ListBox1.ListCount - 1
If ListBox1.List(q) = A Then
ListBox1.Selected(q) = True
Exit For
End If
Next
If q = ListBox1.ListCount Then MsgBox "Модель не найдена"
End Sub

Автор: Anton555 16.2.2006, 03:27

Цитата(Staruha @ 15.2.2006, 21:27)

Где-то это уже было.Не нашла .Наверно на бесике.Поищи ,если интересно.

Код


Private Sub poisk_Click()
A = InputBox("Поиск модели автомобиля", "Введите название модели", "")
For q = 0 To ListBox1.ListCount - 1
If ListBox1.List(q) = A Then
ListBox1.Selected(q) = True
Exit For
End If
Next
If q = ListBox1.ListCount Then MsgBox "Модель не найдена"
End Sub

Здравствуйте!

Подставил этот код он не идет.
Всегда говорит что "Модель не найдена" и не ищет.

Автор: Staruha 16.2.2006, 14:15

Привет! Скорей всего это из-за нескольких столбцов.С одним столбцом код работает.А как у тебя загружается ListBox - массивом или с листа xl.