Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 18.02.2019, 17:21   #1
MrDimain
Пользователь
 
Регистрация: 16.04.2017
Сообщений: 18
Репутация: 10
По умолчанию Получение отфильтрованного списка

Здравствуйте, Форумчане!
Такая проблема.
Фильтрую данные в ListObject:

Код:
FilterTableList.DataBodyRange.AutoFilter Field:=1, Criteria1:=FilterStr, Operator:=xlFilterValues
В итоге, как мне получить, например, значения из первой колонки отсортированной таблицы?

Пробовал:
Код:
- FilterTableList.DataBodyRange
- FilterTableList.AutoFilter.Colunm.SpecialCells(xlCellTypeVisible)
- Range("TD_List[Марка]")
Пример таблицы:
Код:
Марка	k
TD1-5	2
TD1-9	22
TD1-30	1
TD1-47	2
TD1-51	91
TD1-55	13
TD1-89	1
TD1-93	54
TD1-97	2
TD1-108	1
TD1-110	1
TD1-114	17
TD1-118	1
TD1-135	1
TD1-156	1
TD1-177	1
TD1-257	1
TD1-349	1
FilterStr = "*4*"

На листе отображается(то что нужно):

Код:
Марка	k
TD1-47	2
TD1-114	17
TD1-349	1
А теперь как этот список из первого поля запихнуть в массив?
MrDimain вне форума   Ответить с цитированием
Старый 19.02.2019, 01:14   #2
Казанский
Профессионал
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
Репутация: 938
По умолчанию

Либо перебрать видимые ячейки
Код:
  With FilterTableList.ListColumns(1).DataBodyRange.SpecialCells(xlCellTypeVisible)
    ReDim arr(1 To .Count) As String
    For Each c In .Cells
      i = i + 1
      arr(i) = c.Value
    Next
  End With
либо расширенным фильтром отфильтровать в другое место и взять оттуда .Value
__________________
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Получение списка процессов tooBot Общие вопросы Delphi 3 11.05.2017 07:14
Протягивание отфильтрованного диапазона вправо agregator Microsoft Office Excel 1 05.06.2014 15:51
получение списка экспортируемых из dll wmzvov Помощь студентам 3 24.09.2010 19:28
Получение списка процеcсов legendary Win Api 12 02.09.2010 18:06
получение 1 списка из 2-х Neznau Помощь студентам 0 10.12.2008 23:16


04:13.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.