Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.11.2010, 09:29   #1
kzld
Форумчанин
 
Регистрация: 24.01.2009
Сообщений: 625
По умолчанию Динамический фильтр. Возможно ли такое?

Динамический фильтр. Возможно ли такое?

Файл2 берёт значения из файл1
В файл1 периодически добавляется/удаляется информация
В файл2 стоит фильтрация по столбцу X
В файл2 приходится снимать и заново ставить автофильтр ручками.

Возможен ли динамический или автообновляемый фильтр по столбцу X В файл2

В файл1 много и других данных. Комп полагаю будет тормозить.
Лучше сделать отдельный макрос для файл2, снятия\постановки автофильтра
Подскажите как?

Последний раз редактировалось kzld; 01.11.2010 в 10:58. Причина: новые сведения
kzld вне форума Ответить с цитированием
Старый 01.11.2010, 09:37   #2
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Для Excel нет ничего невозможного!!!
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 01.11.2010, 09:52   #3
kzld
Форумчанин
 
Регистрация: 24.01.2009
Сообщений: 625
По умолчанию

Цитата:
Сообщение от VictorM Посмотреть сообщение
Для Excel нет ничего невозможного!!!
Подскажите в каком направлении "копать".

И второе
Кнопочка СПАСИБО под аватаром)) - не нашёл
kzld вне форума Ответить с цитированием
Старый 01.11.2010, 10:41   #4
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
Возможен ли динамический или автообновляемый фильтр по столбцу X В файл2
Определитесь, по каком у событию Вам нужно обновлять автофильтр. Снимайте /ставьте этот фильтр по нему. Макрос можно "повесить " на смену или изменение рабочего листа книги.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 01.11.2010, 10:53   #5
kzld
Форумчанин
 
Регистрация: 24.01.2009
Сообщений: 625
По умолчанию

Цитата:
Сообщение от VictorM Посмотреть сообщение
Определитесь, по каком у событию Вам нужно обновлять автофильтр.
По мере появления\удаления новых данных в файл1
Цитата:
Макрос можно "повесить " на смену или изменение рабочего листа книги.
Другого файла, а именно файл1
kzld вне форума Ответить с цитированием
Старый 01.11.2010, 10:58   #6
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
По мере появления\удаления новых данных в файл1
Да опять же тут множество вариантов.
Можно отслеживать вообще все изменения на рабочем листе, или же считать количество строк...
Все зависит от организации Ваших данных и рабочих книг
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 01.11.2010, 11:59   #7
kzld
Форумчанин
 
Регистрация: 24.01.2009
Сообщений: 625
По умолчанию

Цитата:
Сообщение от VictorM Посмотреть сообщение
Да опять же тут множество вариантов.
Можно отслеживать вообще все изменения на рабочем листе, или же считать количество строк...
Все зависит от организации Ваших данных и рабочих книг
Что то я стал заморачиваться.
Решил сделать попроще. Сделать отдельный макрос снятия\установки автофильтра. Только вот остановился я на том, что снимать\ставить автофильтр надо сразу на всех листах. Попробовал записать макрорекордером - и обломился (мало я ещё знаю Excel).
Запускаю макрорекордер, выделяю все листы - и СТОП. Автофильтр невозможно включить\выключить
kzld вне форума Ответить с цитированием
Старый 01.11.2010, 12:02   #8
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
Запускаю макрорекордер, выделяю все листы - и СТОП. Автофильтр невозможно включить\выключить
Совершенно верно, для ВСЕХ листов этого сделать нельзя.
Запишите макрос для одного листа, ну а потом примените его в цикле (или еще как) для всех листов.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 01.11.2010, 14:22   #9
kzld
Форумчанин
 
Регистрация: 24.01.2009
Сообщений: 625
По умолчанию

Цитата:
Сообщение от VictorM Посмотреть сообщение
Совершенно верно, для ВСЕХ листов этого сделать нельзя.
Запишите макрос для одного листа, ну а потом примените его в цикле (или еще как) для всех листов.
Снять автофильтр со всех листов, мне любезно подсказал EducatedFool
Код:
Sub Delete_Filter()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
    If ws.AutoFilterMode Then ws.ShowAllData
Next
End Sub
А вот как поставить на всех листах (листы одинаковые по структуре)
автофильтр по столбцу X
При нажатии "воронки" автофильтра всего 3 значения 0, 1, 2
Необходимо оставить 0 и 1 "выкинуть" 2
kzld вне форума Ответить с цитированием
Старый 01.11.2010, 14:30   #10
kzld
Форумчанин
 
Регистрация: 24.01.2009
Сообщений: 625
По умолчанию

Снять автофильтр со всех листов, мне любезно подсказал EducatedFool
Код:
Sub Delete_Filter()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
    If ws.AutoFilterMode Then ws.ShowAllData
Next
End Sub
Но если автофильтр уже снят на всех листах, вылетает ошибка.
Как добавить условие предварительной проверки всех листов на наличие включённого автофильтра
kzld вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
такое вообще возможно? selestenka Помощь студентам 1 15.10.2010 09:46
Оказывается, возможно и такое... Alex Cones Свободное общение 15 06.11.2009 17:55
Динамический фильтр на Delphi 7 Дмитрий Гриб БД в Delphi 5 03.06.2009 15:58
Возможно реализовать такое Devourer12345 Microsoft Office Access 10 15.08.2008 08:08