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

Вход

Регистрация

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

 

= Мир MS Excel/Формулой вытащить и разместить информацию о заказанных товар - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формулой вытащить и разместить информацию о заказанных товар (Формулы/Formulas)
Формулой вытащить и разместить информацию о заказанных товар
kepkst1551 Дата: Вторник, 07.03.2023, 06:48 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 2 ±
Замечаний: 20% ±

Доброго времени суток. Прошу помощи.
Нужно с помощью формул вытащить из диапазона ячеек D4:D18 и разместить в ячейке B27 информацию о заказанных товарах таким образом: краткое наименование товара&знак=&количество товара&два пробела.
Надеюсь на вашу помощь.
К сообщению приложен файл: 070323_vopros_na_forum.xlsx (9.5 Kb)


Сообщение отредактировал kepkst1551 - Вторник, 07.03.2023, 06:49
 
Ответить
СообщениеДоброго времени суток. Прошу помощи.
Нужно с помощью формул вытащить из диапазона ячеек D4:D18 и разместить в ячейке B27 информацию о заказанных товарах таким образом: краткое наименование товара&знак=&количество товара&два пробела.
Надеюсь на вашу помощь.
Автор - kepkst1551
Дата добавления - 07.03.2023 в 06:48
bigor Дата: Вторник, 07.03.2023, 08:15 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1276
Репутация: 246 ±
Замечаний: 0% ±

нет
Доброе утро
Для "свежих" офисов можно так
Код
=TEXTJOIN("  ";1;D4:D18&"="&F4:F18)

массивная


Сообщение отредактировал bigor - Вторник, 07.03.2023, 08:17
 
Ответить
СообщениеДоброе утро
Для "свежих" офисов можно так
Код
=TEXTJOIN("  ";1;D4:D18&"="&F4:F18)

массивная
Автор - bigor
Дата добавления - 07.03.2023 в 08:15
DrMini Дата: Вторник, 07.03.2023, 08:34 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1877
Репутация: 269 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
kepkst1551, Доброе утро.
Вариант с доп. столбцом.
К сообщению приложен файл: 9000242.xlsx (11.8 Kb)
 
Ответить
Сообщениеkepkst1551, Доброе утро.
Вариант с доп. столбцом.
Автор - DrMini
Дата добавления - 07.03.2023 в 08:34
elovkov Дата: Вторник, 07.03.2023, 09:58 | Сообщение № 4
Группа: Друзья
Ранг: Обитатель
Сообщений: 413
Репутация: 73 ±
Замечаний: 0% ±

Excel 2013
Цитата DrMini, 07.03.2023 в 08:34, в сообщении № 3 ()
Код
TEXTJOIN

Эх, надо на более новый офис переходить как-то, а в конторе 13й(((

Умное лицо это еще не признак ума. Все глупости на земле делаются именно с этим выражением лица
 
Ответить
Сообщение
Цитата DrMini, 07.03.2023 в 08:34, в сообщении № 3 ()
Код
TEXTJOIN

Эх, надо на более новый офис переходить как-то, а в конторе 13й(((
Автор - elovkov
Дата добавления - 07.03.2023 в 09:58
Nic70y Дата: Вторник, 07.03.2023, 10:16 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
доп.столбец
Код
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(D4;ЕСЛИОШИБКА(ПОИСК("`";D4);ПОИСК("(";D4))-1))&"="&F4&ЕСЛИ(G5="";"";"  "&G5);"mm";);ЕСЛИ(ЕЧИСЛО(ПОИСК("x*x";D4));"";"D");)
а может так
Код
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(D4;ЕСЛИОШИБКА(ПОИСК("`";D4);ПОИСК("(";D4))-1))&"="&F4&ЕСЛИ(G5="";"";"  "&G5);"mm";)

рез.
Код
=G4
К сообщению приложен файл: 070323_vopros_na_forum_1.xlsx (9.9 Kb) · 99.xlsx (9.8 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Вторник, 07.03.2023, 10:20
 
Ответить
Сообщениедоп.столбец
Код
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(D4;ЕСЛИОШИБКА(ПОИСК("`";D4);ПОИСК("(";D4))-1))&"="&F4&ЕСЛИ(G5="";"";"  "&G5);"mm";);ЕСЛИ(ЕЧИСЛО(ПОИСК("x*x";D4));"";"D");)
а может так
Код
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(D4;ЕСЛИОШИБКА(ПОИСК("`";D4);ПОИСК("(";D4))-1))&"="&F4&ЕСЛИ(G5="";"";"  "&G5);"mm";)

рез.
Код
=G4
Автор - Nic70y
Дата добавления - 07.03.2023 в 10:16
китин Дата: Вторник, 07.03.2023, 10:16 | Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация: 1078 ±
Замечаний: 0% ±

Excel 2007;2010;2016
PQ всемогущий
К сообщению приложен файл: 070323_vopros_na_forum22.xlsx (19.7 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеPQ всемогущий
Автор - китин
Дата добавления - 07.03.2023 в 10:16
kepkst1551 Дата: Среда, 08.03.2023, 07:31 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 2 ±
Замечаний: 20% ±

Цитата bigor, 07.03.2023 в 08:15, в сообщении № 2 ()
=ОБЪЕДИНИТЬ("  ";1;D4:D18&"="&F4:F18)


Ошибка #ЗНАЧ!
Версия офиса: 16.61.1
К сообщению приложен файл: 070323_vopros222_na_forum.xlsx (9.8 Kb)
 
Ответить
Сообщение
Цитата bigor, 07.03.2023 в 08:15, в сообщении № 2 ()
=ОБЪЕДИНИТЬ("  ";1;D4:D18&"="&F4:F18)


Ошибка #ЗНАЧ!
Версия офиса: 16.61.1
Автор - kepkst1551
Дата добавления - 08.03.2023 в 07:31
DrMini Дата: Среда, 08.03.2023, 08:16 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1877
Репутация: 269 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Цитата kepkst1551, 08.03.2023 в 07:31, в сообщении № 7 ()
Ошибка

Попробуйте так:
Код
=ОБЪЕДИНИТЬ("  ";1;D4:D18;"=";F4:F18)
 
Ответить
Сообщение
Цитата kepkst1551, 08.03.2023 в 07:31, в сообщении № 7 ()
Ошибка

Попробуйте так:
Код
=ОБЪЕДИНИТЬ("  ";1;D4:D18;"=";F4:F18)
Автор - DrMini
Дата добавления - 08.03.2023 в 08:16
kepkst1551 Дата: Среда, 08.03.2023, 09:07 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 2 ±
Замечаний: 20% ±

Цитата DrMini, 08.03.2023 в 08:16, в сообщении № 8 ()
=ОБЪЕДИНИТЬ("  ";1;D4:D18;"=";F4:F18)

Ошибки больше нет, но результат сильно отличен от необходимого. Формулу массива тоже пробовал.
К сообщению приложен файл: 2048752.png (90.9 Kb) · 070323_vopros333_na_forum.xlsx (10.2 Kb)


Сообщение отредактировал kepkst1551 - Среда, 08.03.2023, 09:11
 
Ответить
Сообщение
Цитата DrMini, 08.03.2023 в 08:16, в сообщении № 8 ()
=ОБЪЕДИНИТЬ("  ";1;D4:D18;"=";F4:F18)

Ошибки больше нет, но результат сильно отличен от необходимого. Формулу массива тоже пробовал.
Автор - kepkst1551
Дата добавления - 08.03.2023 в 09:07
kepkst1551 Дата: Среда, 08.03.2023, 09:16 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 2 ±
Замечаний: 20% ±

Nic70y, сё отлично работает. Но если в столбце столбце D встречается пустая сторока, то мы получаем ошибку.
Возможно ли не учитывать пустые сроки в столбце D?
К сообщению приложен файл: 0375525.xlsx (10.2 Kb)


Сообщение отредактировал Serge_007 - Четверг, 09.03.2023, 09:05
 
Ответить
СообщениеNic70y, сё отлично работает. Но если в столбце столбце D встречается пустая сторока, то мы получаем ошибку.
Возможно ли не учитывать пустые сроки в столбце D?
Автор - kepkst1551
Дата добавления - 08.03.2023 в 09:16
DrMini Дата: Среда, 08.03.2023, 10:00 | Сообщение № 11
Группа: Друзья
Ранг: Старожил
Сообщений: 1877
Репутация: 269 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Цитата kepkst1551, 08.03.2023 в 09:16, в сообщении № 10 ()
Но если в столбце столбце D встречается пустая сторока, то мы получаем ошибку.

А если вот так:
Код
=ЕСЛИОШИБКА(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(D4;ЕСЛИОШИБКА(ПОИСК("`";D4);ПОИСК("(";D4))-1))&"="&F4&ЕСЛИ(G5="";"";"  "&G5);"mm";);ЕСЛИ(ЕЧИСЛО(ПОИСК("x*x";D4));"";"D"););"")
 
Ответить
Сообщение
Цитата kepkst1551, 08.03.2023 в 09:16, в сообщении № 10 ()
Но если в столбце столбце D встречается пустая сторока, то мы получаем ошибку.

А если вот так:
Код
=ЕСЛИОШИБКА(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(D4;ЕСЛИОШИБКА(ПОИСК("`";D4);ПОИСК("(";D4))-1))&"="&F4&ЕСЛИ(G5="";"";"  "&G5);"mm";);ЕСЛИ(ЕЧИСЛО(ПОИСК("x*x";D4));"";"D"););"")
Автор - DrMini
Дата добавления - 08.03.2023 в 10:00
прохожий2019 Дата: Среда, 08.03.2023, 10:19 | Сообщение № 12
Группа: Проверенные
Ранг: Старожил
Сообщений: 1298
Репутация: 327 ±
Замечаний: 0% ±

365 Beta Channel
Цитата китин, 07.03.2023 в 10:16, в сообщении № 6 ()
PQ всемогущий
[vba]
Код
let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    f=(x)=>Text.Format("#{0}=#{1}  ",{Text.Split(x{0}," "){1},x{2}}),
    to = Text.Combine(Table.ToList(from,f))
in
    to
[/vba]

UPD с пустыми и без миллиметров так:
[vba]
Код
let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    sel = Table.SelectRows(from,(i)=>i[Наименование товара]<>null),
    f=(x)=>Text.Format("#{0}=#{1}  ",{Text.SplitAny(x{0}," m"){1},x{2}}),
    to = Text.Combine(Table.ToList(sel,f))
in
    to
[/vba]
К сообщению приложен файл: 4793828.xlsx (17.8 Kb)


Сообщение отредактировал прохожий2019 - Среда, 08.03.2023, 11:16
 
Ответить
Сообщение
Цитата китин, 07.03.2023 в 10:16, в сообщении № 6 ()
PQ всемогущий
[vba]
Код
let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    f=(x)=>Text.Format("#{0}=#{1}  ",{Text.Split(x{0}," "){1},x{2}}),
    to = Text.Combine(Table.ToList(from,f))
in
    to
[/vba]

UPD с пустыми и без миллиметров так:
[vba]
Код
let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    sel = Table.SelectRows(from,(i)=>i[Наименование товара]<>null),
    f=(x)=>Text.Format("#{0}=#{1}  ",{Text.SplitAny(x{0}," m"){1},x{2}}),
    to = Text.Combine(Table.ToList(sel,f))
in
    to
[/vba]
Автор - прохожий2019
Дата добавления - 08.03.2023 в 10:19
bigorq Дата: Среда, 08.03.2023, 10:36 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 197
Репутация: 47 ±
Замечаний: 0% ±

Нет
kepkst1551, попробуйте
Код
=TEXTJOIN("  ";1;TRIM(LEFT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(D4:D18);"'";" ");"mm";" ");" ";REPT(" ";20));20))&"="&F4:F18)
массивная
Написали бы сразу, что наименование краткое, это не все что в столбце наименование
К сообщению приложен файл: 070323_vopros333_na_forum_2.xlsx (6.2 Kb)
 
Ответить
Сообщениеkepkst1551, попробуйте
Код
=TEXTJOIN("  ";1;TRIM(LEFT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(D4:D18);"'";" ");"mm";" ");" ";REPT(" ";20));20))&"="&F4:F18)
массивная
Написали бы сразу, что наименование краткое, это не все что в столбце наименование
Автор - bigorq
Дата добавления - 08.03.2023 в 10:36
kepkst1551 Дата: Среда, 08.03.2023, 11:37 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 2 ±
Замечаний: 20% ±

bigorq, cамое изящное решение.
Но, одно маленькое но: если в перечне товаров в столбце D встречается пустая строка, то в ячейке результа мы получаем в этом месте знак "=" (он,как бы остаётся). Возможно ли избавиться от этого эффекта?
К сообщению приложен файл: 4890935.png (36.3 Kb)


Сообщение отредактировал Serge_007 - Четверг, 09.03.2023, 09:05
 
Ответить
Сообщениеbigorq, cамое изящное решение.
Но, одно маленькое но: если в перечне товаров в столбце D встречается пустая строка, то в ячейке результа мы получаем в этом месте знак "=" (он,как бы остаётся). Возможно ли избавиться от этого эффекта?
Автор - kepkst1551
Дата добавления - 08.03.2023 в 11:37
bigorq Дата: Среда, 08.03.2023, 14:01 | Сообщение № 15
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 197
Репутация: 47 ±
Замечаний: 0% ±

Нет
Цитата kepkst1551, 08.03.2023 в 11:37, в сообщении № 14 ()
Возможно ли избавиться от этого эффекта?
можно
Код
=SUBSTITUTE(TEXTJOIN("  ";1;TRIM(LEFT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(D4:D18);"'";" ");"mm";" ");" ";REPT(" ";20));20))&"="&F4:F18);"  =";"")
 
Ответить
Сообщение
Цитата kepkst1551, 08.03.2023 в 11:37, в сообщении № 14 ()
Возможно ли избавиться от этого эффекта?
можно
Код
=SUBSTITUTE(TEXTJOIN("  ";1;TRIM(LEFT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(D4:D18);"'";" ");"mm";" ");" ";REPT(" ";20));20))&"="&F4:F18);"  =";"")
Автор - bigorq
Дата добавления - 08.03.2023 в 14:01
kepkst1551 Дата: Четверг, 09.03.2023, 10:37 | Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 2 ±
Замечаний: 20% ±

Всех душевно благодарю.
Попробовал все варианты. Остановился на
Цитата bigorq, 08.03.2023 в 14:01, в сообщении № 15 ()
=ПОДСТАВИТЬ(ОБЪЕДИНИТЬ("  ";1;СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(D4:D18);"'";" ");"mm";" ");" ";ПОВТОР(" ";20));20))&"="&F4:F18);"  =";"")


Мой респект и уважение мастеру!
 
Ответить
СообщениеВсех душевно благодарю.
Попробовал все варианты. Остановился на
Цитата bigorq, 08.03.2023 в 14:01, в сообщении № 15 ()
=ПОДСТАВИТЬ(ОБЪЕДИНИТЬ("  ";1;СЖПРОБЕЛЫ(ЛЕВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(D4:D18);"'";" ");"mm";" ");" ";ПОВТОР(" ";20));20))&"="&F4:F18);"  =";"")


Мой респект и уважение мастеру!
Автор - kepkst1551
Дата добавления - 09.03.2023 в 10:37
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формулой вытащить и разместить информацию о заказанных товар (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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