Циклический поиск значений по нескольким колонкам

@_1349_ · Регистрация: 24.03.2013

Студворк — интернет-сервис помощи студентам

В таблице есть четыре колонки, нужно во всех строках колонки 1, с подзаголовком "а" найти заданное значение (например 1), затем во всех строках с подзаголовком "b" (например значение 15) , "с" и далее, а полученный соответствующий объект (номер которого указан в колонке 4) вынести на отдельный лист, или как-то выделить, чтобы его можно было найти по таблице.
Что-то самостоятельно у меня не получается( Я мягко говоря не "очень большой" специалист в этой области=(
спасибо заранее)

@Igor_Tr · 14.10.2013, 09:50

Есть много способов. Первое что пришло в голову - AdvancedFilter. Но что б помочь, нужно мне понять, почему Вы не можете использовать простой AutoFilter?
И еще такое:

"...полученный соответствующий объект (номер которого указан в колонке 4) вынести..."

Колонок в примере три. Что за обьект?
Уточните/исправьте. Вернусь с поля - помогу.

@Hugo121 · 14.10.2013, 09:53

Я лично вообще ничего не понял.
Попробуйте объяснить совершенно иначе и на другом примере - может тогда из двух объяснений что-то сложится...

@rickorocko · 14.10.2013, 11:33

если я правильно понял, получается так:

надо поставить 3 автофильтра, которые брали бы значение из ячеек, например из первых трех на другом листе?

Dim x As String
Dim y As Long, z As Long, i As Long
x = Trim(Worksheets("лист2").Cells(1, 1).Value)
y = Trim(Worksheets("лист2").Cells(1, 2).Value)
z = Trim(Worksheets("лист2").Cells(1, 3).Value)
Sheets("лист1").Select
Columns("A:C").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$C$36").AutoFilt er Field:=1, Criteria1:=x
ActiveSheet.Range("$A$1:$C$36").AutoFilt er Field:=2, Criteria1:=y
ActiveSheet.Range("$A$1:$C$36").AutoFilt er Field:=3, Criteria1:=z

@_1349_ · 14.10.2013, 12:08 **[ТС]**

Сообщение от Igor_Tr

Колонок в примере три. Что за обьект?
Уточните/исправьте. Вернусь с поля - помогу.

Я пардоньте, добавила столбец, сохранила - забыла прикрепить новый вариант =( в общем кретинизм на лицо

Hugo121, Igor_Tr, вот вариант с более понятными (я надеюсь данными):
Есть четыре колонки: признак,зверь, варианты признаков.
Вот нужно найти всех зверей подходящих под определенные варианты(справа в примере указано что конкретно нужно найти), если играться автофильтрами - то в любом случае придется подходящего под определенный набор признаков зверя искать глазами в конечно итоге, а с вариациями кода у меня что-то возникла загвоздка(((
( Я извиняюсь заранее за такого рода пример - мне по роду деятельности ближе такими примерами фигурировать)

@Hugo121 · 14.10.2013, 12:34

Цвет 1 Цвет 2
это зачем два цвета?

Добавлено через 5 минут
Похоже что там работа для одного SQL запроса. Но я по запросам пас, я предпочитаю словари.
Сделать думаю можно, когда ясность с задачей будет. Пока детали непонятны.

@Igor_Tr · 14.10.2013, 12:38

Курящий зверь - это что-то!

Можно сделать запросом. Но я буду делать через AdvancedFilter (что б не было накладки с вариантом (-ами) от Hugo).
И я так понимаю - цвет 1 - это глаза? Цвет 2 - это шерсть?

@Hugo121 · 14.10.2013, 13:07

Шерсть или глаза есть в первом столбце - так что два столбца для цвета лишнее. В общем всё ещё непонятно...

@_1349_ · 14.10.2013, 14:40 **[ТС]**

Сообщение от Hugo121

Цвет 1 Цвет 2
это зачем два цвета?

Добавлено через 5 минут
Похоже что там работа для одного SQL запроса. Но я по запросам пас, я предпочитаю словари.
Сделать думаю можно, когда ясность с задачей будет. Пока детали непонятны.

Цвета два, вообразим что один основной, а второй дополнительный (вкрапинки на радужке и полосы на спине)

Это ведь не буквальная таблица с данными, а плод больной фантазии.

Добавлено через 2 минуты

Сообщение от Igor_Tr

Курящий зверь - это что-то!

Можно сделать запросом. Но я буду делать через AdvancedFilter (что б не было накладки с вариантом (-ами) от Hugo).
И я так понимаю - цвет 1 - это глаза? Цвет 2 - это шерсть?

Нет, цвет 1 и цвет 2 относится как к шерсти, так и к цвету глаз. Ну то есть они могут быть одинаковыми (например) и в случае шерсти и в случае глаз.

@Igor_Tr · 14.10.2013, 14:56

Тогда я совсем растерялся в Ваших зверях. У меня они тоже все разные, но я не присматривался очень сильно ...

Немного усложнил условия. Поменял заголовки Ваших DATA (Вам будет легче разобраться). Переименовал листы. На листе "Сonditions" записывайте Ваши критерии через запятую, наличие пробелов не имеет значения. Чтоб Вы видели, что в мире творится - кнопку пуска макроса "Go&DoIt!" поместил на лист критериев. Лист результатов (Results) каждый раз будет очищаться для нового. Нажимайте и смотрите.

@Hugo121 · 14.10.2013, 16:17

Не, я отказываюсь так понимать

Т.е. на светофоре возможен розовый?
Нафига этот дополнительный цвет, про который ничего не сказано в условиях задачи?
Или так - нужен чёрный, берём строку если чёрный есть в любом из этих двух столбцов? Тогда так и говорите...

@_1349_ · 30.10.2013, 14:03 **[ТС]**

Сообщение от Igor_Tr

Тогда я совсем растерялся в Ваших зверях. У меня они тоже все разные, но я не присматривался очень сильно ...

Немного усложнил условия. Поменял заголовки Ваших DATA (Вам будет легче разобраться). Переименовал листы. На листе "Сonditions" записывайте Ваши критерии через запятую, наличие пробелов не имеет значения. Чтоб Вы видели, что в мире творится - кнопку пуска макроса "Go&DoIt!" поместил на лист критериев. Лист результатов (Results) каждый раз будет очищаться для нового. Нажимайте и смотрите.

Спасибо

Ваш результат не совсем то, что я имею ввиду, но я уже разобралась в проблеме))

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	14.10.2013, 09:53
	Я лично вообще ничего не понял. Попробуйте объяснить совершенно иначе и на другом примере - может тогда из двух объяснений что-то сложится... 0

@rickorocko 0 / 0 / 0 Регистрация: 01.10.2013 Сообщений: 10
	14.10.2013, 11:33
	если я правильно понял, получается так: надо поставить 3 автофильтра, которые брали бы значение из ячеек, например из первых трех на другом листе? Dim x As String Dim y As Long, z As Long, i As Long x = Trim(Worksheets("лист2").Cells(1, 1).Value) y = Trim(Worksheets("лист2").Cells(1, 2).Value) z = Trim(Worksheets("лист2").Cells(1, 3).Value) Sheets("лист1").Select Columns("A:C").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$C$36").AutoFilt er Field:=1, Criteria1:=x ActiveSheet.Range("$A$1:$C$36").AutoFilt er Field:=2, Criteria1:=y ActiveSheet.Range("$A$1:$C$36").AutoFilt er Field:=3, Criteria1:=z 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	14.10.2013, 12:34
	Цвет 1 Цвет 2 это зачем два цвета? Добавлено через 5 минут Похоже что там работа для одного SQL запроса. Но я по запросам пас, я предпочитаю словари. Сделать думаю можно, когда ясность с задачей будет. Пока детали непонятны. 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	14.10.2013, 12:38
	Курящий зверь - это что-то! Можно сделать запросом. Но я буду делать через AdvancedFilter (что б не было накладки с вариантом (-ами) от Hugo). И я так понимаю - цвет 1 - это глаза? Цвет 2 - это шерсть? 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	14.10.2013, 13:07
	Шерсть или глаза есть в первом столбце - так что два столбца для цвета лишнее. В общем всё ещё непонятно... 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	14.10.2013, 16:17
	Не, я отказываюсь так понимать Т.е. на светофоре возможен розовый? Нафига этот дополнительный цвет, про который ничего не сказано в условиях задачи? Или так - нужен чёрный, берём строку если чёрный есть в любом из этих двух столбцов? Тогда так и говорите... 0