|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.08.2013, 01:31 | #1 |
Пользователь
Регистрация: 20.07.2013
Сообщений: 63
|
Не работает афтофильтр
Здравствуйте! Есть форма на которой содержится combobox с определенными значениями, и есть база данных на листе1 ( которая будет пополнятся и изменятся время от времени) при выборе значений из combobox должна фильтроватся база данных с помощью автофильтра. Но дело в том, что мой код не работает. А автофильтр должен работать именно из под созданной формы, так как потом сами листы эксель я буду скрывать от посторонних глаз и будет видна только форма. Лист будет видеть только тот кто будет редактировать базу данных. Но на данный момент проблема с автофильтром! Помогите пожалуйста! Как сделать так чтобы он фильтровал значения в диапазоне A2:J300 по первому столбцу?
Я, кстати, нашел в нэте пример, который немного похож на мою ситуацию, но ничего не смог сделать, ума не хватает переделать для себя. Последний раз редактировалось konstantin1990; 29.08.2013 в 01:35. |
29.08.2013, 05:41 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
После изменения значения в ComboBox и занесения этого значения в ячейку "X2" по событию Worksheet_Change Вы запускаете процедуру, которая применяет автофильтр и тут же его снимает.
Из кода этой процедуры в модуле рабочего листа уберите строку Код:
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 29.08.2013 в 06:02. |
29.08.2013, 07:13 | #3 | |
Пользователь
Регистрация: 20.07.2013
Сообщений: 63
|
Цитата:
|
|
29.08.2013, 08:00 | #4 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 208
|
Наполнение листбокса только видимыми строками (должны быть отсортированы по возрастанию) вынести в отдельную процедуру и запускать её после изменения текстбокса.
|
29.08.2013, 08:02 | #5 |
Пользователь
Регистрация: 20.07.2013
Сообщений: 63
|
|
29.08.2013, 08:42 | #6 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Так как не существует способа определить заголовки столбцов в свойстве ColmnnHeads, когда в качестве источника списка применяется массив VBA (что, как я понимаю, автору нужно), предлагаю копировать отфильтрованные строки в свободную часть рабочего листа и
использовать свойство RowSource, указав новый диапазон значений (см. пример во вложении).
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 29.08.2013 в 17:56. |
29.08.2013, 22:06 | #7 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 208
|
Немного переделал. Ширина колонки "Доп.Инф." 1000 - это для какого монитора?
|
30.08.2013, 05:52 | #8 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Небольшое замечание к варианту от kalbasiatka:
После дополнения (изменения) данных в исходной таблице, их необходимо обязательно отсортировать по 1-му столбцу, иначе не все требуемые данные будут отображаться в ListBox-е.
Чем шире угол зрения, тем он тупее.
|
30.08.2013, 07:24 | #9 | |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 208
|
Цитата:
Последний раз редактировалось kalbasiatka; 30.08.2013 в 07:30. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
не работает relese версия проги и debug работает тока на моем компе | D][mon | C# (си шарп) | 2 | 04.05.2012 20:21 |
Программа работает в WinXP и не работает в Win7 | blblbl-org | Общие вопросы Delphi | 4 | 23.04.2012 19:50 |
Программа работает пошагово, но не работает при запуске | -Katerina- | Microsoft Office Excel | 3 | 12.07.2011 03:40 |
Почему программа на С++ не работает с локальным описанием массива, но работает с глобальным? | >>STINGER<< | Помощь студентам | 4 | 08.03.2011 09:56 |
Библиотека НЕ работает с 2008, но работает с 2000 SQL | namenike | Общие вопросы C/C++ | 0 | 26.05.2009 11:04 |