|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.06.2014, 19:05 | #1 |
Пользователь
Регистрация: 04.06.2014
Сообщений: 11
|
listbox
Помогите, пожалуйста, устранить ошибку при повторном нажатии кнопки "фильтр". Файл прилагается. Заранее благодарен)) Смысл в том, чтобы при нажатии кнопки "фильтр" в листбоксе оставались выбранные значения.
Private Sub CommandButton4_Click() Sheets(2).UsedRange.ClearContents ' Range("Лист1!D1").Value = ListBox1.Column(0) TextBox1.Value = Range("Лист1!D1").Value ListBox1.Clear With Sheets(1) .[a1].CurrentRegion.AutoFilter 1, TextBox1.Value If .Cells(Rows.Count, "a").End(xlUp).Row > 1 Then Sheets(2).UsedRange.ClearContents .UsedRange.Offset(1).Copy Sheets(2).[a1] 'без заголовков или .UsedRange.Copy Sheets(2).[a1] - с заголовками End If .AutoFilterMode = 0 End With Dim i As Long ListBox1.ColumnCount = 3 With Worksheets("Лист2") For i = 1 To .UsedRange.Rows.Count ListBox1.AddItem .Cells(i, 1).Value ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(i, 2).Value ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(i, 3).Value Next End With Cells(1, 4).ClearContents TextBox1.Value = "" End Sub Последний раз редактировалось Гыгыка; 07.06.2014 в 19:51. |
07.06.2014, 19:53 | #2 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 208
|
Не знаю, что за ошибка была и как её повторить, вот вариант фильтра.
|
07.06.2014, 20:35 | #3 |
Пользователь
Регистрация: 04.06.2014
Сообщений: 11
|
Спасибо за ответ! Смысл в том, в форме нажимаю кнопку "заполнение списка" - листбокс заполняется...затем выбрав определенную строку в листбоксе нажимаю кнопку фильтр и листбокс заполняется отфильтрованными значениями (из выбранной строки по первому столбцу)...при первом нажатии на фильтр все идеально, но при нажатии во второй раз или когда строка в листбоксе не выделена выдает ошибку((((
|
07.06.2014, 20:53 | #4 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 208
|
А какие манипуляции в дальнейшем будут с выбранной строкой?
|
07.06.2014, 21:02 | #5 |
Пользователь
Регистрация: 04.06.2014
Сообщений: 11
|
В общем в заполненном листбоксе, состоящим из н-го количества строк, при выборе строки, нажимаю кнопку фильтр и листбокс обновляется и заполняется отфильтрованными данными. фильтрация происходит по данным первой колонки listbox.list(0). вот как то так.
|
07.06.2014, 21:31 | #6 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 208
|
Это для моего примера, если что.
Код:
|
07.06.2014, 22:01 | #7 |
Пользователь
Регистрация: 04.06.2014
Сообщений: 11
|
Все работает, но вот только при нажтии кнопки фильтр когда не выбрана ни одна строка ф листбоксе выдает ошибку...вопрос в том как это устранить?!
|
07.06.2014, 22:03 | #8 |
Пользователь
Регистрация: 04.06.2014
Сообщений: 11
|
Все работает...вопрос в том, что когда ни одна строка в листбоксе не выбрана, при нажатии кнопки фильтр выдает ошибку?! как это устранить?!
|
07.06.2014, 22:42 | #9 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 208
|
Добавить строку
Код:
|
07.06.2014, 22:55 | #10 |
Пользователь
Регистрация: 04.06.2014
Сообщений: 11
|
Спасибо, все работает)))
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Добавление строк c listbox на listbox WinApi | Alll_ | Visual C++ | 1 | 21.11.2013 03:34 |
используя процедуру keypress и фунцию listbox.при нажатии на listbox менялась ее высота | Алекс38 | Общие вопросы Delphi | 1 | 19.09.2012 19:36 |
Чем отличается ListBox.Count от ListBox.Items.Count | bakanaev | Общие вопросы Delphi | 5 | 16.08.2012 12:35 |
как добавить в listbox файлы(пишу с помощью bassplayer)(Listbox+opendialog=play) | blackstersl | Общие вопросы Delphi | 11 | 09.06.2010 13:23 |
Listbox | SnowSin | Помощь студентам | 6 | 10.12.2009 08:19 |