Выбор данных по нескольким условиям - Мир MS Excel

Регистрация

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

= Мир MS Excel/Выбор данных по нескольким условиям - Мир MS Excel

Старая форма входа

Страница 1 из 2 1 2 »
Модератор форума: китин, _Boroda_

Выбор данных по нескольким условиям (выбор с разных листов одной книги)

Выбор данных по нескольким условиям

Дата: Вторник, 20.11.2012, 14:17 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Добрый день!

У меня вот такой вопрос: Можно ли в excel 2007 сделать выборку по нескольким параметрам с разных листов книги?
и если можно, то как? wacko

wacko

Задача:
Прикрепил кусок из файла (в оригинале более 100 листов и в каждом порядка 100-400 строк),
необходимо создать, например на 1 листе, форму для выбора: Ячейка А1 - указываем тип шва. (соответственно нужно найти по всем листам указанный тип шва)
ячейка А2 - толщина металла
А3 - площадь сечения
А4 - тип сварки.... и т.д.
и надо чтобы, например в ячейку В1, отобразилось значение неполного штучного времени, соответствующее указанному выше.

Подскажите пожалуйста как лучше такое сделать

К сообщению приложен файл: _Microsoft_Offi.xlsx (92.7 Kb)

Ответить

Дата: Вторник, 20.11.2012, 14:26 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Жесть. Нет, силами Excel этого сделать не получится, если только вручную не прописать формулы поиска по всем листам по отдельности, причём учитывать, что на некоторых листах данные "подпорчены", типа записи для толщины "3 - 10." и объединёнными ячейками

На VBA, думаю, можно решить...

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Вторник, 20.11.2012, 14:35 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

да "подпорченные" может из 100 листов на 3 встречаются...

так и предполагал, что екселю бут сложновато самому так искать.

с VBA к сожалению не знаком.
А не подскажете, нельзя ли это силами PHP + MySQL сделать? Мне кажется там будет проще это организовать. Перевести таблицу ексель в MySQL и средствами ПХП делать выборки из мускула?

Ответить

Дата: Вторник, 20.11.2012, 14:39 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3691

Репутация: 790 ±

Замечаний: 0% ±

365

На VBA на словаре думаю можно сделать.
Перебором заполнить словарь всеми возможными вариантами, для выбора толщины набрать словарь наличествующих толщин (ну в общем и для типа шва и типа сварки тоже можно сделать по словарю).
Затем из этих словарей даём выбрать исходные данные (заполняем выпадающие списки или что там будет - я бы лучше нарисовал форму) - сразу из общего словаря показываем ответ.
Если исходные данные (те 100 листов) в процессе меняться не будут, то можно эти словари сделать публичными и заполнить один раз при открытии книги (ну или ещё спецкнопку на лист поместить).
Далее при изменении данных запроса сразу давать ответ.
Но делать довольно муторно, много прописывать-высчитывать позиций ячеек, возможно будет много кода, и неинтересно.
Изучайте циклы, массивы, словари.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Дата: Вторник, 20.11.2012, 14:49 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (x1313)

так и предполагал, что екселю бут сложновато самому так искать

Excel'ю сложно становится работать, когда его нагружают функционалом, для которого он не предназначен
Excel - это электронная таблица, а не реляционная СУБД, которую Вы хотите из него сделать.

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

smile

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Вторник, 20.11.2012, 14:53 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

листы меняться не будут. с ВБА не знаком. Пока подумаю что делать... Спасибо за ответы. Если у кого-то есть еще варианты - с удовольствием выслушаю smile

smile

Ответить

Дата: Вторник, 20.11.2012, 14:57 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

о! База Данных.. А как насчет Access'а? в нем не получится сделать проще? сам давненько не работал с акцессом

Ответить

Дата: Вторник, 20.11.2012, 15:10 | Сообщение № 8

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3691

Репутация: 790 ±

Замечаний: 0% ±

365

Если красиво данные сложить на одном листе - то в Экселе можно обойтись обычным фильтром.
Или СУММПРОИЗВ()

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Дата: Вторник, 20.11.2012, 15:17 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

пока есть время, покопаюсь с Excel'ем.

вот такой вопрос возник: есть такая функция =СУММЕСЛИ(). суммирует столбец с заданным условием.
А нет ли такой функции, которая выберет ячейку исходя из 2-х (хотябы) условий.

Напимер в моем случае: выбрали толщину металла (С8:С15) и диаметр проволоки (F5:K5),

задаем, например 1 и 1, показывает значение 2,9

Ответить

Дата: Вторник, 20.11.2012, 15:21 | Сообщение № 10

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3691

Репутация: 790 ±

Замечаний: 0% ±

365

Я ведь выше уже написал - SUMPRODUCT() по нерусски smile

smile

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

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Дата: Вторник, 20.11.2012, 15:30 | Сообщение № 11

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

да, пока я писал, Вы уже написали. попробую поискать

Ответить

Дата: Среда, 21.11.2012, 09:41 | Сообщение № 12

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

А по поводу преобразования таблицы в "читабельный" (для компа) вид для моего примера это будет что-то вроде:

0,5 5,4 0,8 - 2,8
0,5 5,4 1 - 2,7
0,5 5,4 1,2 - 2,4
....
....
....
4 17,1 0,8 - 6,3
4 17,1 1 - 5,7
....

Ответить

Дата: Среда, 21.11.2012, 10:09 | Сообщение № 13

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

а в каком виде будет лучше? если не прописывать все параметры в строчку и в последней ячейке значение результата.

Ответить

Дата: Среда, 21.11.2012, 10:13 | Сообщение № 14

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (x1313)

все параметры в строчку и в последней ячейке значение результата

Значит 0,8 - 2,8 - это не диапазон?
Тогда да, так правильно данные располагать

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Среда, 21.11.2012, 10:20 | Сообщение № 15

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3691

Репутация: 790 ±

Замечаний: 0% ±

365

Да, и в первом столбце ещё тип шва - тогда уже фильтром можно получить результат.
Ну и формулами и макросом тоже без проблем.
Даже вот так можно (выпадающие списки сделал наскоро, без отбора уникальных, но вообще их бы нужно делать связанными):

К сообщению приложен файл: 6702329.xls (26.0 Kb)

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Дата: Среда, 21.11.2012, 10:31 | Сообщение № 16

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

да, 2,8 это результат при выборе параметров 0,5; 5,4; 0,8
соответственно 2,7 это результат для 0,5; 5,4; 1.
...
Ясно, спасибо.

Вручную преобразовывать мои таблицы вот в такие списки - сложновато. Пробую изобразить что-то с помощью макросов.

вот получился такой код

[vba]

Code

Sub Макрос4()
'
' Макрос4 Макрос
'
' Сочетание клавиш: Ctrl+ф
'
      ActiveCell.FormulaR1C1 = "=R[-20]C[-1]"
      Range("C28").Select
      ActiveCell.FormulaR1C1 = "=R[-20]C"
      Range("D28").Select
      ActiveCell.FormulaR1C1 = "=R[-20]C"
      Range("E28").Select
      ActiveCell.FormulaR1C1 = "=R[-20]C"
      Range("F28").Select
      ActiveCell.FormulaR1C1 = "=R[-23]C"
      Range("G28").Select
      ActiveCell.FormulaR1C1 = "=R[-20]C[-1]"
      Range("C29").Select
      ActiveCell.FormulaR1C1 = "=R[-21]C"
      Range("D29").Select
      ActiveCell.FormulaR1C1 = "=R[-21]C"
      Range("E29").Select
      ActiveCell.FormulaR1C1 = "=R[-21]C"
      Range("F29").Select
      ActiveCell.FormulaR1C1 = "=R[-24]C[1]"
      Range("G29").Select
      ActiveCell.FormulaR1C1 = "=R[-21]C"
      Range("C30").Select
      ActiveCell.FormulaR1C1 = "=R[-22]C"
      Range("D30").Select
      ActiveCell.FormulaR1C1 = "=R[-22]C"
      Range("E30").Select
      ActiveCell.FormulaR1C1 = "=R[-22]C"
      Range("F30").Select
      ActiveCell.FormulaR1C1 = "=R[-25]C[2]"
      Range("G30").Select
      ActiveCell.FormulaR1C1 = "=R[-22]C[1]"
      Range("C31").Select
      ActiveCell.FormulaR1C1 = "=R[-23]C"
      Range("D31").Select
      ActiveCell.FormulaR1C1 = "=R[-23]C"
      Range("E31").Select
      ActiveCell.FormulaR1C1 = "=R[-23]C"
      Range("F31").Select
      ActiveCell.FormulaR1C1 = "=R[-26]C[3]"
      Range("G31").Select
      ActiveCell.FormulaR1C1 = "=R[-23]C[2]"
      Range("C32").Select
      ActiveCell.FormulaR1C1 = "=R[-24]C"
      Range("D32").Select
      ActiveCell.FormulaR1C1 = "=R[-24]C"
      Range("E32").Select
      ActiveCell.FormulaR1C1 = "=R[-24]C"
      Range("F32").Select
      ActiveCell.FormulaR1C1 = "=R[-27]C[4]"
      Range("G32").Select
      ActiveCell.FormulaR1C1 = "=R[-24]C[3]"
      Range("C33").Select
      ActiveCell.FormulaR1C1 = "=R[-25]C"
      Range("D33").Select
      ActiveCell.FormulaR1C1 = "=R[-25]C"
      Range("E33").Select
      ActiveCell.FormulaR1C1 = "=R[-25]C"
      Range("F33").Select
      ActiveCell.FormulaR1C1 = "=R[-28]C[5]"
      Range("G33").Select
      ActiveCell.FormulaR1C1 = "=R[-25]C[4]"
      Range("G34").Select
End Sub

[/vba]

это первая строчка С8:К8 преобразуется с 6 строк
а как можно сделать чтобы следующие строки автоматически преобразовывались по этому же принципу?

да, 2,8 это результат при выборе параметров 0,5; 5,4; 0,8
соответственно 2,7 это результат для 0,5; 5,4; 1.
...
Ясно, спасибо.

Вручную преобразовывать мои таблицы вот в такие списки - сложновато. Пробую изобразить что-то с помощью макросов.

вот получился такой код

[vba]

Code

Sub Макрос4()
'
' Макрос4 Макрос
'
' Сочетание клавиш: Ctrl+ф
'
      ActiveCell.FormulaR1C1 = "=R[-20]C[-1]"
      Range("C28").Select
      ActiveCell.FormulaR1C1 = "=R[-20]C"
      Range("D28").Select
      ActiveCell.FormulaR1C1 = "=R[-20]C"
      Range("E28").Select
      ActiveCell.FormulaR1C1 = "=R[-20]C"
      Range("F28").Select
      ActiveCell.FormulaR1C1 = "=R[-23]C"
      Range("G28").Select
      ActiveCell.FormulaR1C1 = "=R[-20]C[-1]"
      Range("C29").Select
      ActiveCell.FormulaR1C1 = "=R[-21]C"
      Range("D29").Select
      ActiveCell.FormulaR1C1 = "=R[-21]C"
      Range("E29").Select
      ActiveCell.FormulaR1C1 = "=R[-21]C"
      Range("F29").Select
      ActiveCell.FormulaR1C1 = "=R[-24]C[1]"
      Range("G29").Select
      ActiveCell.FormulaR1C1 = "=R[-21]C"
      Range("C30").Select
      ActiveCell.FormulaR1C1 = "=R[-22]C"
      Range("D30").Select
      ActiveCell.FormulaR1C1 = "=R[-22]C"
      Range("E30").Select
      ActiveCell.FormulaR1C1 = "=R[-22]C"
      Range("F30").Select
      ActiveCell.FormulaR1C1 = "=R[-25]C[2]"
      Range("G30").Select
      ActiveCell.FormulaR1C1 = "=R[-22]C[1]"
      Range("C31").Select
      ActiveCell.FormulaR1C1 = "=R[-23]C"
      Range("D31").Select
      ActiveCell.FormulaR1C1 = "=R[-23]C"
      Range("E31").Select
      ActiveCell.FormulaR1C1 = "=R[-23]C"
      Range("F31").Select
      ActiveCell.FormulaR1C1 = "=R[-26]C[3]"
      Range("G31").Select
      ActiveCell.FormulaR1C1 = "=R[-23]C[2]"
      Range("C32").Select
      ActiveCell.FormulaR1C1 = "=R[-24]C"
      Range("D32").Select
      ActiveCell.FormulaR1C1 = "=R[-24]C"
      Range("E32").Select
      ActiveCell.FormulaR1C1 = "=R[-24]C"
      Range("F32").Select
      ActiveCell.FormulaR1C1 = "=R[-27]C[4]"
      Range("G32").Select
      ActiveCell.FormulaR1C1 = "=R[-24]C[3]"
      Range("C33").Select
      ActiveCell.FormulaR1C1 = "=R[-25]C"
      Range("D33").Select
      ActiveCell.FormulaR1C1 = "=R[-25]C"
      Range("E33").Select
      ActiveCell.FormulaR1C1 = "=R[-25]C"
      Range("F33").Select
      ActiveCell.FormulaR1C1 = "=R[-28]C[5]"
      Range("G33").Select
      ActiveCell.FormulaR1C1 = "=R[-25]C[4]"
      Range("G34").Select
End Sub

[/vba]

это первая строчка С8:К8 преобразуется с 6 строк
а как можно сделать чтобы следующие строки автоматически преобразовывались по этому же принципу?x1313

Ответить

Сообщениеда, 2,8 это результат при выборе параметров 0,5; 5,4; 0,8
соответственно 2,7 это результат для 0,5; 5,4; 1.
...
Ясно, спасибо.

Вручную преобразовывать мои таблицы вот в такие списки - сложновато. Пробую изобразить что-то с помощью макросов.

вот получился такой код

[vba]

Code

Sub Макрос4()
'
' Макрос4 Макрос
'
' Сочетание клавиш: Ctrl+ф
'
      ActiveCell.FormulaR1C1 = "=R[-20]C[-1]"
      Range("C28").Select
      ActiveCell.FormulaR1C1 = "=R[-20]C"
      Range("D28").Select
      ActiveCell.FormulaR1C1 = "=R[-20]C"
      Range("E28").Select
      ActiveCell.FormulaR1C1 = "=R[-20]C"
      Range("F28").Select
      ActiveCell.FormulaR1C1 = "=R[-23]C"
      Range("G28").Select
      ActiveCell.FormulaR1C1 = "=R[-20]C[-1]"
      Range("C29").Select
      ActiveCell.FormulaR1C1 = "=R[-21]C"
      Range("D29").Select
      ActiveCell.FormulaR1C1 = "=R[-21]C"
      Range("E29").Select
      ActiveCell.FormulaR1C1 = "=R[-21]C"
      Range("F29").Select
      ActiveCell.FormulaR1C1 = "=R[-24]C[1]"
      Range("G29").Select
      ActiveCell.FormulaR1C1 = "=R[-21]C"
      Range("C30").Select
      ActiveCell.FormulaR1C1 = "=R[-22]C"
      Range("D30").Select
      ActiveCell.FormulaR1C1 = "=R[-22]C"
      Range("E30").Select
      ActiveCell.FormulaR1C1 = "=R[-22]C"
      Range("F30").Select
      ActiveCell.FormulaR1C1 = "=R[-25]C[2]"
      Range("G30").Select
      ActiveCell.FormulaR1C1 = "=R[-22]C[1]"
      Range("C31").Select
      ActiveCell.FormulaR1C1 = "=R[-23]C"
      Range("D31").Select
      ActiveCell.FormulaR1C1 = "=R[-23]C"
      Range("E31").Select
      ActiveCell.FormulaR1C1 = "=R[-23]C"
      Range("F31").Select
      ActiveCell.FormulaR1C1 = "=R[-26]C[3]"
      Range("G31").Select
      ActiveCell.FormulaR1C1 = "=R[-23]C[2]"
      Range("C32").Select
      ActiveCell.FormulaR1C1 = "=R[-24]C"
      Range("D32").Select
      ActiveCell.FormulaR1C1 = "=R[-24]C"
      Range("E32").Select
      ActiveCell.FormulaR1C1 = "=R[-24]C"
      Range("F32").Select
      ActiveCell.FormulaR1C1 = "=R[-27]C[4]"
      Range("G32").Select
      ActiveCell.FormulaR1C1 = "=R[-24]C[3]"
      Range("C33").Select
      ActiveCell.FormulaR1C1 = "=R[-25]C"
      Range("D33").Select
      ActiveCell.FormulaR1C1 = "=R[-25]C"
      Range("E33").Select
      ActiveCell.FormulaR1C1 = "=R[-25]C"
      Range("F33").Select
      ActiveCell.FormulaR1C1 = "=R[-28]C[5]"
      Range("G33").Select
      ActiveCell.FormulaR1C1 = "=R[-25]C[4]"
      Range("G34").Select
End Sub

[/vba]

это первая строчка С8:К8 преобразуется с 6 строк
а как можно сделать чтобы следующие строки автоматически преобразовывались по этому же принципу?

Автор - x1313
Дата добавления - 21.11.2012 в 10:31

Дата: Среда, 21.11.2012, 10:32 | Сообщение № 17

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Quote (Hugo)

Да, и в первом столбце ещё тип шва - тогда уже фильтром можно получить результат. Ну и формулами и макросом тоже без проблем. Даже вот так можно:

Да, и в первом столбце ещё тип шва - тогда уже фильтром можно получить результат. Ну и формулами и макросом тоже без проблем. Даже вот так можно:Hugo

К сообщению приложен файл: 6702329.xls(26Kb)

спасибо! и так попробую

Ответить

Дата: Среда, 21.11.2012, 10:51 | Сообщение № 18

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3691

Репутация: 790 ±

Замечаний: 0% ±

365

В моём варианте всего лишь нужно убрать объединение в типе шва, ну и протянуть этот тип по пустым ячейкам. И убрать эти минусы.
Затем слить все данные на один лист (шапку можно оставить как есть) - и можно пользоваться.

P.S. Я думаю самое простое и удобное в использовании - это слить всё на один лист как я выше написал и поставить фильтр по B, C, D в строке 7 (разобъединив эти ячейки).
Визуально шапка даже не изменится, если всё аккуратно сделать smile

smile

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Дата: Вторник, 27.11.2012, 10:15 | Сообщение № 19

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Нашлась свободная мимнутка времени, вернулся к своим "баранам smile

smile

"
Hugo, Воспользовался Вашим вариантом. Там, кстати, форму таблицы можно и не менять, единственное "тип шва" - объединенные ячейки разделить и прописать в каждой ячейке тип шва.

Выбрал простой, но нудный способ, выбирать из каждой страницы.. (интересно хватит ли длины формулы cool

cool

)

Начал пробовать на 2-х страницах и возник такой вопрос: какую формулу выбрать для того, чтобы выбор происходил по нескольким листам.
= ИЛИ не подходит... вернее выбор идет, но в результате выдает ИСТИНА или ЛОЖЬ. А хотелось бы получать цифру smile

smile

К сообщению приложен файл: _Microsoft_Offi.xlsx (93.7 Kb)

Сообщение отредактировал x1313 - Вторник, 27.11.2012, 10:18

Ответить

Дата: Вторник, 27.11.2012, 11:18 | Сообщение № 20

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Или же всетаки придется все таблицы собрать на одном листе...

Или на просто составить на одном листе все формулы (отдельные) к каждому листу. чтобы по листам не лазить...

Сообщение отредактировал x1313 - Вторник, 27.11.2012, 11:46

Ответить

Выбор данных по нескольким условиям (выбор с разных листов одной книги)

Страница 1 из 2
1
2
»

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