ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Отфильтрованные массивы и переделка автофильтра
3 сообщений из 3, страница 1 из 1
Отфильтрованные массивы и переделка автофильтра
    #39029152
T1gRa_NT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
T1gRa_NT
Участник
Добрый день. Встала такая задача.
На странице применяется автофильтр.
Необходимо выбрать в массив уникальные значения 1-ого столбца, которые отображаются по фильтру (-ам) других столбцов и установить из данного массива фильтр на 1-ый столбец.
Т.к. навык VBA и программирования отсутствует, то пытался сделать по примерам с формов. В итоге не получается выбрать уникальные значения и применить полученный массив к фильтру, хотя при ручном тестировании по отдельности почти всё хорошо.
Если вы подскажите в какую сторону копать буду Вам очень признателен. Сам думаю в сторону Scripting Dictionary как для уникальных записей, так и для key подсовывать фильтру, но ни как не смог с это штукой разобраться((.
Файл с примером и попытками, прилагаю.
...
Рейтинг: 0 / 0
14.08.2015, 07:16
| Ответить | Цитировать | Написать  
Отфильтрованные массивы и переделка автофильтра
    #39029451
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Да, словарь
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub Макрос3()
Dim c As Range, di As Object
With ActiveSheet.AutoFilter
  If .Filters(1).On Then
    If MsgBox("В 1-м столбце включен фильтр. Изменить его?", vbYesNo) = vbNo Then Exit Sub
    .Range.AutoFilter Field:=1
  End If
  Set di = CreateObject("scripting.dictionary")
  For Each c In .Range.Columns(1).Cells(2).Resize(.Range.Rows.Count - 1)
    If Not c.EntireRow.Hidden Then di(CStr(c.Value)) = Empty
  Next
  .Range.AutoFilter Field:=1, Criteria1:=di.keys, Operator:=xlFilterValues
End With
End Sub
...
Рейтинг: 0 / 0
14.08.2015, 13:55
| Ответить | Цитировать | Написать  
Отфильтрованные массивы и переделка автофильтра
    #39029481
T1gRa_NT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
T1gRa_NT
Участник
Казанский, спасибо Вам большое, Ваш код работает, как надо.
Буду разбираться в его принципах работы.
...
Рейтинг: 0 / 0
14.08.2015, 14:14
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Отфильтрованные массивы и переделка автофильтра
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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