Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/32: Рейтинг темы: голосов - 32, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 30.01.2010
Сообщений: 14
Excel

Использование результатов фильтра

30.01.2010, 06:53. Показов 6819. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Народ, поможите!!!
Как программно можно использовать результаты применения фильтра? т.е. как можно строить циклы по отобранным в фильтре записям?
к примеру отобранные строки имеют номера 28, 145, 599 каким образом можно создать цикл только по этому диапазону?
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
30.01.2010, 06:53
Ответы с готовыми решениями:

Использование результатов фильтра, если результат пустой
Очень помог ответ: Sub Макрос1() Set tbl = Sheets(1).AutoFilter.Range Set y = tbl.Offset(1,...

Вставка результатов применения расширенного фильтра в первую свободную строку
Добрый день. Сам программистом не являюсь, поэтому с кодами не дружу. Записал макрос в Excel,...

Выполнить действие, если при применении фильтра нет результатов, соответствующих условию фильтрации
всем привет! использую такой фильтр: Sub TEST() Application.ScreenUpdating = False ...

3
0 / 0 / 0
Регистрация: 28.09.2009
Сообщений: 8
30.01.2010, 10:26
Фильтр выдает записи по условию, но можно применить функцию поиска с заданными условиями в цикле.
Посмотри в Excel пример к справке по теме Find Method, может это устроит ?
0
0 / 0 / 0
Регистрация: 01.10.2009
Сообщений: 6
01.02.2010, 00:35
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Макрос1()
Set tbl = Sheets(1).AutoFilter.Range
'далее исключаем из диапазона автофильтра первую строку (Offset),
'берем видимые строки(SpecialCells(xlCellTypeVisible).EntireRow)
'и в цикле перебираем эти сроки
Set y = tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
    tbl.Columns.Count).SpecialCells(xlCellTypeVisible).EntireRow
    
    For Each s In y.Rows
        RowNamber = s.Row
    Next
End Sub
' с автофильтром очень удобно использовать функцию
' рабочего листа 'ПРОМЕЖУТОЧНЫЕ.ИТОГИ'
0
0 / 0 / 0
Регистрация: 30.01.2010
Сообщений: 14
01.02.2010, 05:09  [ТС]
Спасибо. Оч. дельный совет
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
01.02.2010, 05:09
Помогаю со студенческими работами здесь

Использование фильтра в Application.GetSaveAsFilename
Подскажите пожалуйста как можно решить проблему? Для сохранения рабочей книги Excel используется...

Использование результатов фильтрации
Как скопировать строки, которые были отобраны фильтром? Или как иначе посчитать их количество или...

Функция фильтра
Здравствуйте, По порядку. Для Open Office нужно сделать, что то наподобие фильтра. У меня есть...

Узнать статус фильтра на рабочем листе: включен или выключен
как в VBA узнать статус фильтра на рабочем листе: включен или выключен? Кнопка включения...

Как указать диапазон дат при использовании расширенного фильтра?
Как указать диапазон дат при использовании расширенного фильтра? Если писать например в одной...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru