поиск по таблице

[ening]

Народ подскажите как можна решить эту проблему.\

задача чтобы первая таблица искала значение ширины и высоты в другой при этом допустимая разница +- 5
неделю голову ломаю
ПОМОГИТЕ!!!

ОСНОВНАЯ ФУНКЦИЯ
програма предназначается для подбора пакетов стекла
заранее благодарен

[doober]

Пользовательская функция Razmer.
Хотя такой подход немного не правильный -подбор по площади

У меня все не правильно сделано.Я левую часть таблицы не увидел,смотрел только площадь.
Закачку удаляю

[EducatedFool]

Ну, сделаем мы, чтобы ширина с высотой искались и находились.
Дальше-то что?

Из каких ячеек найденной строки на листе2 брать данные,
и в какой столбец таблицы на листе1 их помещать?
(в примере своём отметьте, что и как)

-------------------------------------------
Надстройки и программы для поиска в Excel:
http://excelvba.ru/category/Excel/search

Надстройка для поиска на всех листах книги Excel
Надстройка для поиска в Excel с выводом результатов на новый лист
Поиск из поля на панели инструментов Excel

[EugeneS]

см. вложение

[ening]

есть стеклопакет, размер 100* 200 на складе
мы делаем заявку на пакеты на фирму производителя 104 * 201, он подходит так как допустимый размер от 1до5 и от -1до -5

нужно чтобы первая табличка искала значение подходящие под наш заказ во второй таблице

1 это заказ
2 это склад бракованых изделий

я хочу добится чтобы при совпадении выделялись и там и там одним цветом или любым другим способом.

искать должно значение одной строки то есть ширина и высота






вот как я сделал для 1 строки но мне нужно на строк 60 сделать тоже самое и на 1 лист чтобы выводилось какой пакет подходит

[ening]

пардон не открыл формулу

вот нужный файл

[Hugo121]

Макросом несложно - перебор первого параметра, при совпадении (в пределах допуска) проверяем второй.

[ening]

можеш пример показать?
я с макросами пока не сталкивался

[Hugo121]

Вот зачем в примере столько скрытых листов - вопрос...
Без них 64кб.
Макрос попозже, если другие не напишут.

[Hugo121]

Заготовка, нужно добавить динамики и вывод результата на лист. Попозже.

Sub OtborRazmerov()
Dim a(), b(), i As Long, ii As Long
a = Sheets(1).[d8:e8].Value
b = Sheets(2).[a2:b68].Value

For i = 1 To UBound(a)
For ii = 1 To UBound(b)
If a(i, 1) >= b(ii, 1) - 5 Then
If a(i, 1) <= b(ii, 1) + 5 Then
If a(i, 2) >= b(ii, 2) - 5 Then
If a(i, 2) <= b(ii, 2) + 5 Then
MsgBox b(ii, 1) & "X" & b(ii, 2)
End If
End If
End If
End If
Next ii, i
End Sub

P.S.
Пока можете вручную расширить диапазоны.
В сообщении выводится найденный размер.
Надо добавить ещё один массив, куда писать этот размер или "не найдено", потом выгрузить этот массив рядом.
Что делать, если найдено несколько совпадений? Или выходить из цикла при первом соответствии?
А если есть один экземпляр, который подходит двум заказам?
Т.е. есть ещё вопросы, когда начинаешь вникать...