Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Отфильтрованные массивы и переделка автофильтра / 3 сообщений из 3, страница 1 из 1
14.08.2015, 07:16
    #39029152
T1gRa_NT
T1gRa_NT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отфильтрованные массивы и переделка автофильтра
Добрый день. Встала такая задача.
На странице применяется автофильтр.
Необходимо выбрать в массив уникальные значения 1-ого столбца, которые отображаются по фильтру (-ам) других столбцов и установить из данного массива фильтр на 1-ый столбец.
Т.к. навык VBA и программирования отсутствует, то пытался сделать по примерам с формов. В итоге не получается выбрать уникальные значения и применить полученный массив к фильтру, хотя при ручном тестировании по отдельности почти всё хорошо.
Если вы подскажите в какую сторону копать буду Вам очень признателен. Сам думаю в сторону Scripting Dictionary как для уникальных записей, так и для key подсовывать фильтру, но ни как не смог с это штукой разобраться((.
Файл с примером и попытками, прилагаю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2015, 13:55
    #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, 14:14
    #39029481
T1gRa_NT
T1gRa_NT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Отфильтрованные массивы и переделка автофильтра
Казанский, спасибо Вам большое, Ваш код работает, как надо.
Буду разбираться в его принципах работы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Отфильтрованные массивы и переделка автофильтра / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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