Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Получить массив автофильтра колонки с датами / 2 сообщений из 2, страница 1 из 1
23.10.2018, 13:58:49
    #39721447
SandraSidorova
SandraSidorova
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить массив автофильтра колонки с датами
Здравствуйте! есть умная таблица на листе. Требуется получить массив автофильтра колонки, в которой отфильтрованы даты

Записала макросом код, когда устанавливаю Фильтр в колонке
Код: vbnet
1.
2.
3.
ActiveSheet.ListObjects("view").Range.AutoFilter Field:=3, _
       Operator:=xlFilterValues, Criteria2:=Array(2, "4/4/2018", 2, "4/5/2018", 2, _
       "4/6/2018", 2, "4/7/2018", 2, "4/9/2018")



Теперь мне нужно получить массив Criteria2. Код выдает ошибку, хотя то же самое с числами и текстом работает.
Код: vbnet
1.
2.
dim arr() as variant
arr=ActiveSheet.ListObjects("view").AutoFilter.Filters.Item(3).Criteria2



Есть вариант, убирать галочку "Группировать даты в меню автофильтра" в параметрах отображения книги, но тогда с фильтром работать неудобно.
Кто-нибудь знает как же получить массив с выбранными датами, при включенной Группировке даты в меню автофильтра? Подскажите, пожалуйста.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2018, 19:42:38
    #39722458
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить массив автофильтра колонки с датами
SandraSidorova,
может программно убрать эту галочку ActiveWindow.AutoFilterDateGrouping = False , считать массив, установить галочку ... = True ?
Файла-примера нет, самому сочинять, чтобы проверить - влом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Получить массив автофильтра колонки с датами / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 438ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2172218]:
 0ms
get settings:
 15ms
get forum list:
 16ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 48ms
get topic data:
 14ms
get forum data:
 4ms
get page messages:
 38ms
get tp. blocked users:
 2ms
others: 291ms
total:  438ms
x
x
Закрыть


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