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

Вход

Регистрация

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

 

= Мир MS Excel/Перечень - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Перечень
Гость Дата: Вторник, 24.07.2012, 08:57 | Сообщение № 1
Группа: Гости
Здравствуйте! Есть к вам просьба!
каждый день количество нарядов разное
необходимо сделать перечень нарядов
по 6 в ячейку через запятую последний
с точкой, ячеек максимум 11 если все
наряды не влазят в конце многоточие.
разделять ячейку на множество ячеек
вариант не подходит
 
Ответить
СообщениеЗдравствуйте! Есть к вам просьба!
каждый день количество нарядов разное
необходимо сделать перечень нарядов
по 6 в ячейку через запятую последний
с точкой, ячеек максимум 11 если все
наряды не влазят в конце многоточие.
разделять ячейку на множество ячеек
вариант не подходит

Автор - Гость
Дата добавления - 24.07.2012 в 08:57
vikttur Дата: Вторник, 24.07.2012, 09:20 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

Есть 11 ячеек, в которые нужно внести наряды, не более 6 в 1 ячейку. Правильно понял?

Что вносим? Номера, описания, суммы?
Длина записей для каждого отдельного наряда одинакова?

Лучше с Вашим небольшим примером.
 
Ответить
СообщениеЕсть 11 ячеек, в которые нужно внести наряды, не более 6 в 1 ячейку. Правильно понял?

Что вносим? Номера, описания, суммы?
Длина записей для каждого отдельного наряда одинакова?

Лучше с Вашим небольшим примером.

Автор - vikttur
Дата добавления - 24.07.2012 в 09:20
Serge_007 Дата: Вторник, 24.07.2012, 12:48 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
[vba]
Code
=ЕСЛИ(СТРОКА(A1)<D$1/6;ДВССЫЛ("A"&3+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&4+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&5+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&6+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&7+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&8+(СТРОКА(A1)-1)*6)&",";ЕСЛИ(ОСТАТ(D$1;6);ВЫБОР(ОСТАТ(D$1;6);ДВССЫЛ("A"&3+(СТРОКА(A1)-1)*6)&".";ДВССЫЛ("A"&3+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&4+(СТРОКА(A1)-1)*6)&".";ДВССЫЛ("A"&3+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&4+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&5+(СТРОКА(A1)-1)*6)&".";ДВССЫЛ("A"&3+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&4+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&5+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&6+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&7+(СТРОКА(A1)-1)*6)&".";ДВССЫЛ("A"&3+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&4+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&5+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&6+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&7+(СТРОКА(A1)-1)*6)&".");ДВССЫЛ("A"&3+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&4+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&5+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&6+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&7+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&8+(СТРОКА(A1)-1)*6)&"."))
[/vba]

Это без многоточий...
К сообщению приложен файл: DemoN-Zelva.xls (27.5 Kb)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение[vba]
Code
=ЕСЛИ(СТРОКА(A1)<D$1/6;ДВССЫЛ("A"&3+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&4+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&5+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&6+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&7+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&8+(СТРОКА(A1)-1)*6)&",";ЕСЛИ(ОСТАТ(D$1;6);ВЫБОР(ОСТАТ(D$1;6);ДВССЫЛ("A"&3+(СТРОКА(A1)-1)*6)&".";ДВССЫЛ("A"&3+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&4+(СТРОКА(A1)-1)*6)&".";ДВССЫЛ("A"&3+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&4+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&5+(СТРОКА(A1)-1)*6)&".";ДВССЫЛ("A"&3+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&4+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&5+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&6+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&7+(СТРОКА(A1)-1)*6)&".";ДВССЫЛ("A"&3+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&4+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&5+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&6+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&7+(СТРОКА(A1)-1)*6)&".");ДВССЫЛ("A"&3+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&4+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&5+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&6+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&7+(СТРОКА(A1)-1)*6)&","&ДВССЫЛ("A"&8+(СТРОКА(A1)-1)*6)&"."))
[/vba]

Это без многоточий...

Автор - Serge_007
Дата добавления - 24.07.2012 в 12:48
Jhonson Дата: Вторник, 24.07.2012, 16:06 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Репутация: 169 ±
Замечаний: 0% ±

Чуть попроще:
Code
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(СМЕЩ(A3;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A4;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A5;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A6;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A7;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A8;(СТРОКА(A1)-1)*5;)&",";",,";"")&ЕСЛИ((СТРОКА(A1)-1)=ОТБР($D$1/6);"... ";"");",.";".")

с многоточием...
К сообщению приложен файл: DemoN-Zelva_1.xls (26.5 Kb)


"Ничто не приносит людям столько неприятностей, как разум."
 
Ответить
СообщениеЧуть попроще:
Code
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(СМЕЩ(A3;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A4;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A5;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A6;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A7;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A8;(СТРОКА(A1)-1)*5;)&",";",,";"")&ЕСЛИ((СТРОКА(A1)-1)=ОТБР($D$1/6);"... ";"");",.";".")

с многоточием...

Автор - Jhonson
Дата добавления - 24.07.2012 в 16:06
Serge_007 Дата: Вторник, 24.07.2012, 16:17 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (Jhonson)
с многоточием...

Немного не верно. После 720 должна быть точка, а многоточие - если все наряды не влазят в 11 ячеек


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (Jhonson)
с многоточием...

Немного не верно. После 720 должна быть точка, а многоточие - если все наряды не влазят в 11 ячеек

Автор - Serge_007
Дата добавления - 24.07.2012 в 16:17
Jhonson Дата: Вторник, 24.07.2012, 18:38 | Сообщение № 6
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Репутация: 169 ±
Замечаний: 0% ±

Quote (Serge_007)
Немного не верно.

Упс... facepalm исправляюсь:
Code
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(СМЕЩ(A13;(СТРОКА(A11)-1)*5;)&","&СМЕЩ(A14;(СТРОКА(A11)-1)*5;)&","&СМЕЩ(A15;(СТРОКА(A11)-1)*5;)&","&СМЕЩ(A16;(СТРОКА(A11)-1)*5;)&","&СМЕЩ(A17;(СТРОКА(A11)-1)*5;)&","&СМЕЩ(A18;(СТРОКА(A11)-1)*5;)&",";",,";"")&ЕСЛИ((СТРОКА(A11)-1)=ОТБР($D$1/6);". ";ЕСЛИ(И(СТРОКА()=13;$D$1>=66);ЕСЛИ($D$1=66;". ";"... ");ЕСЛИ(И($D$1=60;СТРОКА()=12);".";"")));",.";".")
К сообщению приложен файл: 4156586.xls (28.0 Kb)


"Ничто не приносит людям столько неприятностей, как разум."
 
Ответить
Сообщение
Quote (Serge_007)
Немного не верно.

Упс... facepalm исправляюсь:
Code
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(СМЕЩ(A13;(СТРОКА(A11)-1)*5;)&","&СМЕЩ(A14;(СТРОКА(A11)-1)*5;)&","&СМЕЩ(A15;(СТРОКА(A11)-1)*5;)&","&СМЕЩ(A16;(СТРОКА(A11)-1)*5;)&","&СМЕЩ(A17;(СТРОКА(A11)-1)*5;)&","&СМЕЩ(A18;(СТРОКА(A11)-1)*5;)&",";",,";"")&ЕСЛИ((СТРОКА(A11)-1)=ОТБР($D$1/6);". ";ЕСЛИ(И(СТРОКА()=13;$D$1>=66);ЕСЛИ($D$1=66;". ";"... ");ЕСЛИ(И($D$1=60;СТРОКА()=12);".";"")));",.";".")

Автор - Jhonson
Дата добавления - 24.07.2012 в 18:38
Serge_007 Дата: Вторник, 24.07.2012, 19:46 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Если очистить все наряды ниже 50-го, то в D11 будет только точка, а в D10, где она должна быть - её не будет...


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЕсли очистить все наряды ниже 50-го, то в D11 будет только точка, а в D10, где она должна быть - её не будет...

Автор - Serge_007
Дата добавления - 24.07.2012 в 19:46
Jhonson Дата: Вторник, 24.07.2012, 20:46 | Сообщение № 8
Группа: Друзья
Ранг: Ветеран
Сообщений: 514
Репутация: 169 ±
Замечаний: 0% ±

Serge_007, biggrin надеюсь в последний раз...
Code
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СМЕЩ(A3;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A4;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A5;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A6;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A7;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A8;(СТРОКА(A1)-1)*5;)&",";",,";"")&ЕСЛИ(СТРОКА(A1)=ОКРУГЛВВЕРХ($D$1/6;);". ";"");",. ";".")&ЕСЛИ(И(СТРОКА()=13;$D$1>66);"##";"");",##";"...")
К сообщению приложен файл: 0129768.xls (28.0 Kb)


"Ничто не приносит людям столько неприятностей, как разум."

Сообщение отредактировал Jhonson - Вторник, 24.07.2012, 21:53
 
Ответить
СообщениеSerge_007, biggrin надеюсь в последний раз...
Code
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СМЕЩ(A3;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A4;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A5;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A6;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A7;(СТРОКА(A1)-1)*5;)&","&СМЕЩ(A8;(СТРОКА(A1)-1)*5;)&",";",,";"")&ЕСЛИ(СТРОКА(A1)=ОКРУГЛВВЕРХ($D$1/6;);". ";"");",. ";".")&ЕСЛИ(И(СТРОКА()=13;$D$1>66);"##";"");",##";"...")

Автор - Jhonson
Дата добавления - 24.07.2012 в 20:46
vikttur Дата: Среда, 25.07.2012, 10:23 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

Может, я последний smile
Нелетучая:
Code
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ИНДЕКС($A$3:$A$69;СТРОКА(A1)*6-5)&" "&ИНДЕКС($A$3:$A$69;СТРОКА(A1)*6-4)&" "&ИНДЕКС($A$3:$A$69;СТРОКА(A1)*6-3)&" "&ИНДЕКС($A$3:$A$69;СТРОКА(A1)*6-2)&" "&ИНДЕКС($A$3:$A$69;СТРОКА(A1)*6-1)&" "&ИНДЕКС($A$3:$A$69;СТРОКА(A1)*6));" ";",")&ВЫБОР(ПОИСКПОЗ($D$1-СТРОКА(A1)*6;{-70;-5;1};1);"";".";ЕСЛИ(СТРОКА(A1)=11;"...";","))


Автору уже не нужно?


Сообщение отредактировал vikttur - Среда, 25.07.2012, 10:34
 
Ответить
СообщениеМожет, я последний smile
Нелетучая:
Code
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ИНДЕКС($A$3:$A$69;СТРОКА(A1)*6-5)&" "&ИНДЕКС($A$3:$A$69;СТРОКА(A1)*6-4)&" "&ИНДЕКС($A$3:$A$69;СТРОКА(A1)*6-3)&" "&ИНДЕКС($A$3:$A$69;СТРОКА(A1)*6-2)&" "&ИНДЕКС($A$3:$A$69;СТРОКА(A1)*6-1)&" "&ИНДЕКС($A$3:$A$69;СТРОКА(A1)*6));" ";",")&ВЫБОР(ПОИСКПОЗ($D$1-СТРОКА(A1)*6;{-70;-5;1};1);"";".";ЕСЛИ(СТРОКА(A1)=11;"...";","))


Автору уже не нужно?

Автор - vikttur
Дата добавления - 25.07.2012 в 10:23
Serge_007 Дата: Среда, 25.07.2012, 11:07 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (vikttur)
Автору уже не нужно?

Нет...

http://forum.msexcel.ru/microsoft_excel/perechen-t8327.0.html
http://www.planetaexcel.ru/forum.php?thread_id=43510

Это скорее мне нужно было, Jhonson, vikttur, спасибо за интересные решения


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (vikttur)
Автору уже не нужно?

Нет...

http://forum.msexcel.ru/microsoft_excel/perechen-t8327.0.html
http://www.planetaexcel.ru/forum.php?thread_id=43510

Это скорее мне нужно было, Jhonson, vikttur, спасибо за интересные решения

Автор - Serge_007
Дата добавления - 25.07.2012 в 11:07
Гость Дата: Среда, 25.07.2012, 11:15 | Сообщение № 11
Группа: Гости
Интересно, автор заявки понимает назначение функций, использованных в формулах?

А если вдруг задача упрется не в 11, а в 5 ячеек?
И не по 6 нарядов, а по 10?

Ну, а формулы - шедевры.
 
Ответить
СообщениеИнтересно, автор заявки понимает назначение функций, использованных в формулах?

А если вдруг задача упрется не в 11, а в 5 ячеек?
И не по 6 нарядов, а по 10?

Ну, а формулы - шедевры.

Автор - Гость
Дата добавления - 25.07.2012 в 11:15
vikttur Дата: Среда, 25.07.2012, 11:32 | Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

Quote (Гость)
И не по 6 нарядов, а по 10?

Тогда уж лучше макросом

Quote (Гость)
А если вдруг задача упрется не в 11, а в 5 ячеек?

У меня этим заведует ВЫБОР()
 
Ответить
Сообщение
Quote (Гость)
И не по 6 нарядов, а по 10?

Тогда уж лучше макросом

Quote (Гость)
А если вдруг задача упрется не в 11, а в 5 ячеек?

У меня этим заведует ВЫБОР()

Автор - vikttur
Дата добавления - 25.07.2012 в 11:32
  • Страница 1 из 1
  • 1
Поиск:

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