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

Вход

Регистрация

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

 

= Мир MS Excel/Таблица с изменяющимися критериями поиска - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Таблица с изменяющимися критериями поиска
Таблица с изменяющимися критериями поиска
pechkin Дата: Суббота, 25.04.2015, 18:55 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 49 ±
Замечаний: 0% ±

2003
Здравствуйте! Задумал очередную для себя таблицу, но без помощи не справиться :(
Есть база данных из которой при помощи формул ( хотелось бы впоследствии заменить) и макроса выбираются данные в другую таблицу. Названия столбцов в этой таблице меняется, и следовательно, место выборки данных(это желтые строки) Под ними в зеленых строках критерии сбора данных. Не получается создать условие выборки по нескольким критериям.Вернее изменять их количество, по одному, двум и т.д.(в файле понятней) При выборе пустого зеленого поля Макрос перестает работать. Количество столбцов будет больше. Спасибо!
К сообщению приложен файл: 7301766.xls (54.5 Kb)


Сообщение отредактировал pechkin - Суббота, 25.04.2015, 18:57
 
Ответить
СообщениеЗдравствуйте! Задумал очередную для себя таблицу, но без помощи не справиться :(
Есть база данных из которой при помощи формул ( хотелось бы впоследствии заменить) и макроса выбираются данные в другую таблицу. Названия столбцов в этой таблице меняется, и следовательно, место выборки данных(это желтые строки) Под ними в зеленых строках критерии сбора данных. Не получается создать условие выборки по нескольким критериям.Вернее изменять их количество, по одному, двум и т.д.(в файле понятней) При выборе пустого зеленого поля Макрос перестает работать. Количество столбцов будет больше. Спасибо!
Автор - pechkin
Дата добавления - 25.04.2015 в 18:55
Skif-F Дата: Суббота, 25.04.2015, 21:31 | Сообщение № 2
Группа: Проверенные
Ранг: Участник
Сообщений: 73
Репутация: 14 ±
Замечаний: 0% ±

Excel 2007, 2010, 2013, 2016
Если я правильно понял, что Вам нужно, то так:

[vba]
Код
If (.Cells(q, a) = Range("A10") Or Range("A10") = "") And _
     (.Cells(q, b) = Range("B10") Or Range("B10") = "") And _
     .... Then
[/vba]
К сообщению приложен файл: 0407334.xls (55.5 Kb)


Сообщение отредактировал Skif-F - Суббота, 25.04.2015, 21:32
 
Ответить
СообщениеЕсли я правильно понял, что Вам нужно, то так:

[vba]
Код
If (.Cells(q, a) = Range("A10") Or Range("A10") = "") And _
     (.Cells(q, b) = Range("B10") Or Range("B10") = "") And _
     .... Then
[/vba]
Автор - Skif-F
Дата добавления - 25.04.2015 в 21:31
Kuzmich Дата: Суббота, 25.04.2015, 21:34 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 712
Репутация: 156 ±
Замечаний: 0% ±

Excel 2003
Цитата
Количество столбцов будет больше

Поставить на базу данных автофильтр, выбрать по критериям, видимые строки перенести
на лист 2, ненужные столбцы убрать.
 
Ответить
Сообщение
Цитата
Количество столбцов будет больше

Поставить на базу данных автофильтр, выбрать по критериям, видимые строки перенести
на лист 2, ненужные столбцы убрать.
Автор - Kuzmich
Дата добавления - 25.04.2015 в 21:34
pechkin Дата: Воскресенье, 26.04.2015, 08:20 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 49 ±
Замечаний: 0% ±

2003
Здравствуйте! Спасибо за участие.Kuzmich, Ваша подсказка правильная, но Вы предлагаете как минимум четыре манипуляции :( ... Skif-F, похоже это ОНО-буду проверять.Спасибо!
 
Ответить
СообщениеЗдравствуйте! Спасибо за участие.Kuzmich, Ваша подсказка правильная, но Вы предлагаете как минимум четыре манипуляции :( ... Skif-F, похоже это ОНО-буду проверять.Спасибо!
Автор - pechkin
Дата добавления - 26.04.2015 в 08:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Таблица с изменяющимися критериями поиска
  • Страница 1 из 1
  • 1
Поиск:

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