ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / помогите с кодом VBA(Автофильтр)
5 сообщений из 5, страница 1 из 1
помогите с кодом VBA(Автофильтр)
    #36839238
Vadiks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vadiks
Гость
Помогите с кодом VBA/
ActiveSheet.Range("$A$8:$AF$4988").AutoFilter Field:=1, Criteria1:=Array( _
"="), Operator:=xlFilterValues, Criteria2:=Array(2, "9.1.2010")
ActiveSheet.Range("$A$8:$AF$4988").AutoFilter Field:=3, Criteria1:="190627"
конечно они выполняются последовательно. и результат остается только последнего фильтра, начистую стирая результат первого.
а мне нужно чтобы выполнялись и первый и второй одновременно.
...
Рейтинг: 0 / 0
10.09.2010, 02:23
| Ответить | Цитировать | Написать  
помогите с кодом VBA(Автофильтр)
    #36840531
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Vadiks,

Как я понял у вас Excel 2007 или выше, т.к. 2003 сразу стал ругаться на код.

Попробуйте так:
Код: plaintext
1.
2.
3.
4.
Range("$A$8:$AF$4988").Select
Selection.AutoFilter
ActiveSheet.Range("$A$8:$AF$4988").AutoFilter Field:= 1 , Criteria1:=Array("="), _
                 Operator:=xlOr, Criteria2:=Array( 2 , "9.1.2010")
ActiveSheet.Range("$A$1:$D$9").AutoFilter Field:= 3 , Criteria1:="190627"
Единственное что я не понял, какую роль в коде осуществляет Array.
Если не получиться, то не помешает выложить файл с примером данных которые фильтруются, чтобы более понятно было.
...
Рейтинг: 0 / 0
10.09.2010, 15:09
| Ответить | Цитировать | Написать  
помогите с кодом VBA(Автофильтр)
    #36842041
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Я думаю и так должно работать:
ActiveSheet.Range("$A$8:$AF$4988").AutoFilter Field:=1, Criteria1:=Array("2", "9.1.2010"), Operator:=xlFilterValues
ActiveSheet.Range("$A$8:$AF$4988").AutoFilter Field:=3, Criteria1:="190627"

Djon Player, Array играет роль выбора сразу нескольких критериев. В 2007 можно сделать выбор более 2 критериев в одном поле сразу. И такой выбор осуществляется именно через Array.
...
Рейтинг: 0 / 0
11.09.2010, 22:07
| Ответить | Цитировать | Написать  
помогите с кодом VBA(Автофильтр)
    #36842059
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
The_PristЯ думаю и так должно работать:
Djon Player, Array играет роль выбора сразу нескольких критериев. В 2007 можно сделать выбор более 2 критериев в одном поле сразу. И такой выбор осуществляется именно через Array.Спасибо за информацию, буду знать.
...
Рейтинг: 0 / 0
11.09.2010, 22:35
| Ответить | Цитировать | Написать  
помогите с кодом VBA(Автофильтр)
    #36842061
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Djon Player,

Только сейчас заметил, что в коде нижней строки адреса ячеек не те что надо.
Просто когда экспериментировал, брал адреса по меньше, а потом забыл поменять.
...
Рейтинг: 0 / 0
11.09.2010, 22:37
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / помогите с кодом VBA(Автофильтр)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2177693]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 164ms
get topic data:
 6ms
get first new msg:
 3ms
get forum data:
 1ms
get page messages:
 25ms
get tp. blocked users:
 1ms
others: 205ms
total:  426ms
созд. / загр.: 426ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]