Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Добавление выделенного фрагмента из фильтра макросом. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление выделенного фрагмента из фильтра макросом. (Макросы/Sub)
Добавление выделенного фрагмента из фильтра макросом.
iv-off Дата: Понедельник, 06.09.2021, 06:59 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

Задача: В базе 1000 фамилий, у меня есть список с 50 -ми людьми, через фильтр (окно поиска в фильтре) необходимо их выбрать для последующих других действий. Получается, что процедура с нажатием на фильтр, постановка курсора на окно поиска, выбор фамилии, постановка галочки для добавления в фильтр при большом списке очень трудоемкая, а еще если при запарке забудешь поставить галочку "добавить выделенный фрагмент..." то добавляется только крайняя фамилия, приходится делать откат, вероятность сделать ошибку повышается. Спас бы макрос в виде окна (ячейки) где вводом фамилии, выбора ее и нажатием на ввод, строка с данными добавлялась бы в фильтр! Советы других профи: организовать бесконечный цикл ввода переменных до ввода пустого значения, предварительно объявив массив))

[vba]
Код
Sub Макрос1()
'
' Макрос1 Макрос
'
myFam = Application.InputBox("Введите фамилию:")
'
ActiveSheet.Range("$A$1:$F$20").AutoFilter Field:=1, Criteria1:=myFam, _
Operator:=xlOr, Criteria2:="=0"
End Sub
[/vba]
К сообщению приложен файл: 1921858.xlsm(17.5 Kb)


Сообщение отредактировал Serge_007 - Понедельник, 06.09.2021, 09:07
 
Ответить
СообщениеЗадача: В базе 1000 фамилий, у меня есть список с 50 -ми людьми, через фильтр (окно поиска в фильтре) необходимо их выбрать для последующих других действий. Получается, что процедура с нажатием на фильтр, постановка курсора на окно поиска, выбор фамилии, постановка галочки для добавления в фильтр при большом списке очень трудоемкая, а еще если при запарке забудешь поставить галочку "добавить выделенный фрагмент..." то добавляется только крайняя фамилия, приходится делать откат, вероятность сделать ошибку повышается. Спас бы макрос в виде окна (ячейки) где вводом фамилии, выбора ее и нажатием на ввод, строка с данными добавлялась бы в фильтр! Советы других профи: организовать бесконечный цикл ввода переменных до ввода пустого значения, предварительно объявив массив))

[vba]
Код
Sub Макрос1()
'
' Макрос1 Макрос
'
myFam = Application.InputBox("Введите фамилию:")
'
ActiveSheet.Range("$A$1:$F$20").AutoFilter Field:=1, Criteria1:=myFam, _
Operator:=xlOr, Criteria2:="=0"
End Sub
[/vba]

Автор - iv-off
Дата добавления - 06.09.2021 в 06:59
Sobirjon Дата: Понедельник, 06.09.2021, 07:41 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 145
Репутация: 2 ±
Замечаний: 0% ±

2016
Не уверен, что правильно понял. Можно просто начать ввод требуемого текста в штатном фильтре и получить все результаты где содержится условия. Это проще, быстрее, удобнее, и не требуется занимать дополнительный область листа
К сообщению приложен файл: 6887754.jpg(52.3 Kb)


Сообщение отредактировал Sobirjon - Понедельник, 06.09.2021, 07:43
 
Ответить
СообщениеНе уверен, что правильно понял. Можно просто начать ввод требуемого текста в штатном фильтре и получить все результаты где содержится условия. Это проще, быстрее, удобнее, и не требуется занимать дополнительный область листа

Автор - Sobirjon
Дата добавления - 06.09.2021 в 07:41
iv-off Дата: Понедельник, 06.09.2021, 15:20 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 20% ±

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

Автор - iv-off
Дата добавления - 06.09.2021 в 15:20
InExSu Дата: Четверг, 09.09.2021, 15:12 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 629
Репутация: 94 ±
Замечаний: 0% ±

Excel 2010
Привет!

Расширенный фильтр пробовали ?

"Критерии помещаются в виде отдельной таблички над фильтруемыми записями."


Переношу VBA на Google Apps Script, адаптирую VBA к Mac
 
Ответить
СообщениеПривет!

Расширенный фильтр пробовали ?

"Критерии помещаются в виде отдельной таблички над фильтруемыми записями."

Автор - InExSu
Дата добавления - 09.09.2021 в 15:12
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление выделенного фрагмента из фильтра макросом. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!