|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
06.11.2010, 21:16 | #1 |
Пользователь
Регистрация: 20.05.2010
Сообщений: 17
|
Вывод построчно в listbox!
Написал код для поиска в столце записи.НУжно выделить на листе найденые строки и построчно занести их в listbox. Первое я сделал(т.е. выделил найденые) , помогите со вторым условием(построчно вывести результат в listbox)
Вот код Private Sub Найти_Click() Dim x As Range, y As Range, Fst As String Set x = Columns("A").Find(Автор.Text, LookAt:=xlPart) If Not x Is Nothing Then Set y = x: Fst = x.Address Do Set x = Columns("A").FindNext(x) If Not x Is Nothing Then Set y = Union(y, x) Loop While Fst <> x.Address End If y.EntireRow.Select TextBox1.Text = ' сюда надо вывести строки в которых были найдены If Автор.Text = "" Then MsgBox "Поле автор не заполнено!" Exit Sub End If End Sub |
06.11.2010, 21:26 | #2 |
Пользователь
Регистрация: 20.05.2010
Сообщений: 17
|
ответы полетели )))) ууухх как много)
|
06.11.2010, 21:42 | #3 |
Пользователь
Регистрация: 20.05.2010
Сообщений: 17
|
Ну помогите пожалуйста своему младшему брату)
|
06.11.2010, 21:58 | #4 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
Может как-то так?
Код:
|
06.11.2010, 22:42 | #5 |
Пользователь
Регистрация: 20.05.2010
Сообщений: 17
|
в сожалению он кричит на Additem(
|
06.11.2010, 22:46 | #6 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
|
06.11.2010, 23:13 | #7 |
Пользователь
Регистрация: 20.05.2010
Сообщений: 17
|
Выкладываю пример: (На кнопку поиск код надо)
|
06.11.2010, 23:23 | #8 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
Последний раз редактировалось xamillion; 06.11.2010 в 23:38. |
06.11.2010, 23:53 | #9 |
Пользователь
Регистрация: 20.05.2010
Сообщений: 17
|
нет все равно ту же ошибку пишет(
Что же делать( |
07.11.2010, 00:12 | #10 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 138
|
странно, у меня работает
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вывод построчно | werser | JavaScript, Ajax | 1 | 20.07.2010 22:14 |
Вывод изображений из списка ListBox | ChEaTeR-abc | Помощь студентам | 6 | 13.07.2010 16:55 |
Вывод в DBGrid построчно. | _42 | БД в Delphi | 1 | 22.04.2010 17:27 |
Вывод максимального, минимального и среднего значение по Listbox | Klim Bassenger | Microsoft Office Excel | 3 | 29.06.2009 18:38 |
Как из юникодного текстового файла прочитать его построчно и неповторяющиеся слова ввести в ListBox? | SkAndrew | Общие вопросы Delphi | 2 | 10.11.2008 22:14 |