Домашняя страница 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
Группа: Проверенные
Ранг: Старожил
Сообщений: 1075
Репутация: 204 ±
Замечаний: 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
Группа: Проверенные
Ранг: Старожил
Сообщений: 1609
Репутация: 195 ±
Замечаний: 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
Группа: Друзья
Ранг: Обитатель
Сообщений: 364
Репутация: 50 ±
Замечаний: 0% ±

Excel 2013
Код
TEXTJOIN

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


Умное лицо это еще не признак ума. Все глупости на земле делаются именно с этим выражением лица
 
Ответить
Сообщение
Код
TEXTJOIN

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

Автор - elovkov
Дата добавления - 07.03.2023 в 09:58
Nic70y Дата: Вторник, 07.03.2023, 10:16 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8709
Репутация: 2260 ±
Замечаний: 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
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 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% ±

=ОБЪЕДИНИТЬ("  ";1;D4:D18&"="&F4:F18)


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


Ошибка #ЗНАЧ!
Версия офиса: 16.61.1

Автор - kepkst1551
Дата добавления - 08.03.2023 в 07:31
DrMini Дата: Среда, 08.03.2023, 08:16 | Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 1609
Репутация: 195 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Ошибка

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

Попробуйте так:
Код
=ОБЪЕДИНИТЬ("  ";1;D4:D18;"=";F4:F18)

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

=ОБЪЕДИНИТЬ("  ";1;D4:D18;"=";F4:F18)

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


Сообщение отредактировал kepkst1551 - Среда, 08.03.2023, 09:11
 
Ответить
Сообщение
=ОБЪЕДИНИТЬ("  ";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
Группа: Проверенные
Ранг: Старожил
Сообщений: 1609
Репутация: 195 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Но если в столбце столбце D встречается пустая сторока, то мы получаем ошибку.

А если вот так:
Код
=ЕСЛИОШИБКА(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ЛЕВБ(D4;ЕСЛИОШИБКА(ПОИСК("`";D4);ПОИСК("(";D4))-1))&"="&F4&ЕСЛИ(G5="";"";"  "&G5);"mm";);ЕСЛИ(ЕЧИСЛО(ПОИСК("x*x";D4));"";"D"););"")
 
Ответить
Сообщение
Но если в столбце столбце 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
Группа: Проверенные
Ранг: Старожил
Сообщений: 1241
Репутация: 317 ±
Замечаний: 0% ±

365 Beta Channel
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
 
Ответить
Сообщение
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% ±

Нет
Возможно ли избавиться от этого эффекта?
можно
Код
=SUBSTITUTE(TEXTJOIN("  ";1;TRIM(LEFT(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TRIM(D4:D18);"'";" ");"mm";" ");" ";REPT(" ";20));20))&"="&F4:F18);"  =";"")
 
Ответить
Сообщение
Возможно ли избавиться от этого эффекта?
можно
Код
=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% ±

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


Мой респект и уважение мастеру!
 
Ответить
СообщениеВсех душевно благодарю.
Попробовал все варианты. Остановился на
=ПОДСТАВИТЬ(ОБЪЕДИНИТЬ("  ";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 обязательна!