Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / [VBA Excel] Пройтись по всем значениям автофильтра / 8 сообщений из 8, страница 1 из 1
07.02.2011, 14:00
    #37102168
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[VBA Excel] Пройтись по всем значениям автофильтра
Здравствуйте,
Необходимо сделать выборки из массива ячеек сгруппированных по значению в первом столбце.
Т.е. если ручками, то ставлю автофильтр на первый столбец, перебираю все значения и копирую выбранные данные отдельно.
Никак не найду (и не соображу), как программно перебрать все значения первого столбца автофильтром...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2011, 14:14
    #37102196
кладовщик
кладовщик
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[VBA Excel] Пройтись по всем значениям автофильтра
Дмитрий-(сколько-же-нас?)Здравствуйте,
Необходимо сделать выборки из массива ячеек сгруппированных по значению в первом столбце.
Т.е. если ручками, то ставлю автофильтр на первый столбец, перебираю все значения и копирую выбранные данные отдельно.
Никак не найду (и не соображу), как программно перебрать все значения первого столбца автофильтром...
Что-то такое, нет?
Код: plaintext
1.
2.
Sub Макрос1()
    Range("A1:A20").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("G1"), Unique:=True
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2011, 14:43
    #37102257
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[VBA Excel] Пройтись по всем значениям автофильтра
кладовщик,

Пока не очень понятно, как это работает...
Ругается на эту строку: "Диапазон выборки не имеет имени или имеет неправильное имя поля"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2011, 14:47
    #37102269
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[VBA Excel] Пройтись по всем значениям автофильтра
> Автор: Дмитрий-(сколько-же-нас?)
> Пока не очень понятно, как это работает...


Это копирует в указанную ячейку уникальный список, который показывается в автофильтре.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2011, 14:51
    #37102278
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[VBA Excel] Пройтись по всем значениям автофильтра
О, пардон!
У меня колонка G была занята :)
В принципе -- подойдёт вполне!
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2011, 14:59
    #37102298
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[VBA Excel] Пройтись по всем значениям автофильтра
Может быть только, если есть вариант, не на лист результат вставлять, а в переменную какую запомнить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2011, 15:13
    #37102339
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[VBA Excel] Пройтись по всем значениям автофильтра
> Автор: Дмитрий-(сколько-же-нас?)
> Может быть только, если есть вариант, не на лист результат вставлять, а в переменную какую запомнить?


Нет, механизм копирования "зашит" внутри ексела :(
Поэтому можно "выбросить" на лист, потом быстренько скопировать куда нужно и удалить "выброшенный" список.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.02.2011, 15:46
    #37102440
Дмитрий-(сколько-же-нас?)
Дмитрий-(сколько-же-нас?)
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
[VBA Excel] Пройтись по всем значениям автофильтра
Игорь Горбонос,

Ок.
Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / [VBA Excel] Пройтись по всем значениям автофильтра / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 496ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2177200]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 172ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 229ms
total:  496ms
x
x
Закрыть


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