ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / EXCEL. Как программно выделить диапазон ячеек автофильтра?
7 сообщений из 7, страница 1 из 1
EXCEL. Как программно выделить диапазон ячеек автофильтра?
    #36119742
musicitsme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
musicitsme
Гость
Уважаемые коллеги, прошу Вашей помощи по маленькому вопросу.

Как программно выделить диапазон ячеек отфильтрованных автофильтром?

Заранее благодарю за помощь.
С уважением,
Алексей
...
Рейтинг: 0 / 0
31.07.2009, 11:11:00
| Ответить | Цитировать | Написать  
EXCEL. Как программно выделить диапазон ячеек автофильтра?
    #36119768
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
musicitsme, автофильтр ориентирован на таблицу, поэтому достаточно
Код: plaintext
ThisWorkbook.ActiveSheet.Cells( 9 ,  1 ).CurrentRegion.Select
Причём вместо Сells(9,1) надо вогнать одну из ячеек, на которой непосредственно находится автофильтр. (аналогично по функционалу сочетанию клавиш (ctrl+*)
Полагаю, есть способ такую ячейку и не указвать, но я его не знаю, к сожалению
...
Рейтинг: 0 / 0
31.07.2009, 11:18:19
| Ответить | Цитировать | Написать  
EXCEL. Как программно выделить диапазон ячеек автофильтра?
    #36119780
musicitsme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
musicitsme
Гость
PlanBmusicitsme, автофильтр ориентирован на таблицу, поэтому достаточно
Код: plaintext
ThisWorkbook.ActiveSheet.Cells( 9 ,  1 ).CurrentRegion.Select
Причём вместо Сells(9,1) надо вогнать одну из ячеек, на которой непосредственно находится автофильтр. (аналогично по функционалу сочетанию клавиш (ctrl+*)
Полагаю, есть способ такую ячейку и не указвать, но я его не знаю, к сожалению

Я Вас понял. Но возникло 2 вопроса:

- а как сделать выделение исключая шапку таблицы? (собственно сама строка с автофильтром)
- как выделить, например, все строки попавшие в автофильтр и только некоторые столбцы? напирмер первые три?
...
Рейтинг: 0 / 0
31.07.2009, 11:22:54
| Ответить | Цитировать | Написать  
EXCEL. Как программно выделить диапазон ячеек автофильтра?
    #36119980
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
musicitsmePlanBmusicitsme, автофильтр ориентирован на таблицу, поэтому достаточно
Код: plaintext
ThisWorkbook.ActiveSheet.Cells( 9 ,  1 ).CurrentRegion.Select
Причём вместо Сells(9,1) надо вогнать одну из ячеек, на которой непосредственно находится автофильтр. (аналогично по функционалу сочетанию клавиш (ctrl+*)
Полагаю, есть способ такую ячейку и не указвать, но я его не знаю, к сожалению

Я Вас понял. Но возникло 2 вопроса:

- а как сделать выделение исключая шапку таблицы? (собственно сама строка с автофильтром)
- как выделить, например, все строки попавшие в автофильтр и только некоторые столбцы? напирмер первые три?философский вопрос :) выделить-то можно, но нужно позиционировать выделение в зависимости от положения таблицы. Советую разместить её начиная с ячейки A1.
мой совет: запишите макрорекордером данные операции
...
Рейтинг: 0 / 0
31.07.2009, 12:14:36
| Ответить | Цитировать | Написать  
EXCEL. Как программно выделить диапазон ячеек автофильтра?
    #36120018
musicitsme
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
musicitsme
Гость
решение нашел на другом форуме:

Код: plaintext
1.
2.
    Set myFiltered = ActiveSheet.AutoFilter.Range.Offset( 1 ,  0 ).Resize(ActiveSheet.AutoFilter.Range.Rows.Count -  1 , _
       ActiveSheet.AutoFilter.Range.Columns.Count).SpecialCells(xlCellTypeVisible)
    myFiltered.Select

Остался только неясным момент с выделением нужных столбцов диапазона
...
Рейтинг: 0 / 0
31.07.2009, 12:23:32
| Ответить | Цитировать | Написать  
EXCEL. Как программно выделить диапазон ячеек автофильтра?
    #36120028
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
musicitsme, думаю, разберетесь дальше сами
Код: plaintext
1.
2.
Set myFiltered = ActiveSheet.AutoFilter.Range.Offset( 1 ,  1 ).Resize(ActiveSheet.AutoFilter.Range.Rows.Count -  1 , _
       ActiveSheet.AutoFilter.Range.Columns.Count -  1 ).SpecialCells(xlCellTypeVisible)
    myFiltered.Select
...
Рейтинг: 0 / 0
31.07.2009, 12:27:31
| Ответить | Цитировать | Написать  
EXCEL. Как программно выделить диапазон ячеек автофильтра?
    #36127847
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
К вопросу об использовании автофильтра в vba:

нашёл команду, позволяющую сбрасывать автофильтр, не указвая его местоположения
(если фильтр имеет нулевые огрраничения, выдает ошибку, поэтому идёт с обработчиком.
Код: plaintext
1.
2.
3.
Private Sub AFShow()
On Error Resume Next
    ThisWorkbook.ActiveSheet.ShowAllData
End Sub
Эту команду также можно вывести стандартной кнопочкой на панель. Подробно тут господин Павлов всё описал, спасибо ему.
...
Рейтинг: 0 / 0
05.08.2009, 14:46:09
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / EXCEL. Как программно выделить диапазон ячеек автофильтра?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=188&tid=2179197]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 31ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 235ms
total:  353ms
созд. / загр.: 353ms
x
x
Закрыть


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