Задача: В базе 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]
Задача: В базе 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
Не уверен, что правильно понял. Можно просто начать ввод требуемого текста в штатном фильтре и получить все результаты где содержится условия. Это проще, быстрее, удобнее, и не требуется занимать дополнительный область листа
Не уверен, что правильно понял. Можно просто начать ввод требуемого текста в штатном фильтре и получить все результаты где содержится условия. Это проще, быстрее, удобнее, и не требуется занимать дополнительный область листаSobirjon
Вся суть этого макроса уход от перескакивания с клавиатуры на мышку... вызываешь макрос горячей клавишей, вводишь фамилию в окно, нажимаешь ввод и она добавляется в фильтр, и так далее согласно списка.
Вся суть этого макроса уход от перескакивания с клавиатуры на мышку... вызываешь макрос горячей клавишей, вводишь фамилию в окно, нажимаешь ввод и она добавляется в фильтр, и так далее согласно списка.iv-off
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
