Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Фильтр по макросам макросом, фильтр до 7-и критерий
 
#1
11.12.2024 08:49:17
Дамы и Господа прежде задать вопрос хочу пожелать доброго утра и много удач в Ваших делах.
5 и более год назад из одного саксонского форума нашел макрос который фильтрует таблицу по двум фильтрам. Покопался в нем и что то +/- изменил, но по моей таблице не два параметра "не рыба не мясо" нужно еще в глубь копать. Подмогнете?
Файл сейчас выложу.
Спасибо  
Изменено: Arturion - 11.12.2024 09:20:11
Иногда 1+1 не равно двум, она равна нулю и каждая задача имеет красивое и неверное... решение
Next n
Бухгалтер - человек, который решает ваши проблемы, о которых вы и не знали, путём, который вы не понимаете.
 
 
 
#2
11.12.2024 08:57:01
Вот собственно макрос листа Private Sub Worksheet_Change
Иногда 1+1 не равно двум, она равна нулю и каждая задача имеет красивое и неверное... решение
Next n
Бухгалтер - человек, который решает ваши проблемы, о которых вы и не знали, путём, который вы не понимаете.
 
 
 
#3
11.12.2024 09:29:35
а словами задачу опишите?
 
 
 
#4
11.12.2024 10:01:10
Данные такие  
Иногда 1+1 не равно двум, она равна нулю и каждая задача имеет красивое и неверное... решение
Next n
Бухгалтер - человек, который решает ваши проблемы, о которых вы и не знали, путём, который вы не понимаете.
 
 
 
#5
11.12.2024 10:01:42
вот как то так
Иногда 1+1 не равно двум, она равна нулю и каждая задача имеет красивое и неверное... решение
Next n
Бухгалтер - человек, который решает ваши проблемы, о которых вы и не знали, путём, который вы не понимаете.
 
 
 
#6
11.12.2024 10:25:43
После объяснения стало ещё менее понятно.
"Всего критериев 7" - В примере 8 столбцов. Какой столбец не надо учитывать?
"Время 3.1 и 3.2 время от и до" - Почему эти значения не в столбце время? Почему при критерии от 3,1 до 3,2 отфильтрована строка со временем 4?

Лучше конечно, приложить пример, картинка не считается, в котором будет несколько характерных случаев. Что-то вроде: есть такие-то значения, по ним отфильтровались такие-то строки.
 
 
 
#7
11.12.2024 11:24:20
Arturion,
1. Свои сообщения можно редактировать/добавлять/удалять информацию. Вт.ч. файлы
2. Пример с макросом и картинка как между собой связаны?
3. Приложите файл-пример (в соответствии с Правилами). Как есть - Как надо
4. Запишите действия фильтрации макрорекордером (расширенный фильтр) и будет Вам основа
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
11.12.2024 11:59:48
Вот как то так
Иногда 1+1 не равно двум, она равна нулю и каждая задача имеет красивое и неверное... решение
Next n
Бухгалтер - человек, который решает ваши проблемы, о которых вы и не знали, путём, который вы не понимаете.
 
 
 
#9
11.12.2024 13:15:59
Цитата
написал:
Вот как то так
Вот в примере, демонстрирующим, какие строки должны отфильтроваться, мы видим лист, не содержащих отфильтрованных строк.
Код
ActiveSheet.Range("$A$5:$H$20").AutoFilter Field:=4, Criteria1:=">=" & Range("C2").Text, Operator:=xlAnd, Criteria2:="<=" & Range("C3").Text
 
 
 
#10
11.12.2024 15:38:36
Попробовал так но по времени не фильтрует
Иногда 1+1 не равно двум, она равна нулю и каждая задача имеет красивое и неверное... решение
Next n
Бухгалтер - человек, который решает ваши проблемы, о которых вы и не знали, путём, который вы не понимаете.
 
 
 
#11
11.12.2024 16:14:34
Нашел ошибку время надо от > до < но в этом коде как добавить
Код
    If Not Intersect(Target, Range("A3:G5")) Is Nothing Then
        On Error Resume Next
        ActiveSheet.ShowAllData
        Range("A7").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A2").CurrentRegion
    End If
Иногда 1+1 не равно двум, она равна нулю и каждая задача имеет красивое и неверное... решение
Next n
Бухгалтер - человек, который решает ваши проблемы, о которых вы и не знали, путём, который вы не понимаете.
 
 
 
Страницы: 1
Наверх