Фрукты, размножение - Страница 2

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

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

Фрукты, размножение

MCH

Дата: Понедельник, 11.02.2013, 19:35 | Сообщение № 21

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

Ранг: Старожил

Сообщений: 2003

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

Замечаний: ±

мои решения:
для окна Immediate, 73 знака
[vba]

Код

j=4:For k=1to 3:For i=1To Cells(k,2):j=j+1:Cells(j,1)=Cells(k,1):Next i,k

[/vba]
формула, 57

Код

=СМЕЩ(A$1;СЧЁТ(0^(СЧЁТЕСЛИ(A$1:A4;A$1:A$3)-B$1:B$3));)&""

остальные варианты в файле

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

Ответить

ZORRO2005

Дата: Понедельник, 11.02.2013, 23:43 | Сообщение № 22

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

Ранг: Обитатель

Сообщений: 382

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

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

Excel2010

А мой с нулями был такой:

Код

=СМЕЩ(A$1;СУММ(Ч(СТРОКА(A1)>=СУММЕСЛИ(СМЕЩ(B$1;;;СТРОКА(B$1:B$3));"<>")+1));)

Ответить

MCH

Дата: Вторник, 12.02.2013, 10:28 | Сообщение № 23

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

Ранг: Старожил

Сообщений: 2003

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

Замечаний: ±

Цитата (kim)

Я первый наверное вскроюсь

Игорь, очень интересное решение с ПОИСКПОЗ(...;-1), совершенно не предсказуемое поведение функции ПОИСКПОЗ с "-1", отличное от "1", нужно будет запомнить

Ответить

Pelena

Дата: Вторник, 12.02.2013, 11:13 | Сообщение № 24

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

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

Сообщений: 19208

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

Замечаний: ±

Excel 365 & Mac Excel

Лирическое отступление

Честно признаюсь: я тоже пробовала решить эту задачу. И функции вроде те же использовала, и так и сяк пыталась - результат нулевой

Посмотрела, ребята, на ваши формулы - красиво! В каждой есть свои интересные нестандартные приёмы, свой индивидуальный подход. По-видимому, этим и отличается обычный ремесленник от Мастера

Извиняюсь за оффтоп - не удержалась

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

АННА-ЕАО

Дата: Вторник, 12.02.2013, 14:08 | Сообщение № 25

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

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

Сообщений: 12

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

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

Я хоть и не размножаю фрукты, но очень полезная тема для меня, спасибо, утащила в копилку.

Ответить

Rioran

Дата: Вторник, 17.06.2014, 15:26 | Сообщение № 26

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

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

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

Excel 2013

Просто попробовал. Не самая универсальная формула на 109 знаков:

Код

=ЕСЛИ(СТРОКА()=5;A1;ЕСЛИ(СЧЁТЕСЛИ(A$4:A4;A4)=ВПР(A4;A$1:B$3;2;0);ИНДЕКС(A$1:A$3;1+ПОИСКПОЗ(A4;A$1:A$3;0));A4))

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Ответить

Rioran

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

Группа: Авторы

Ранг: Ветеран

Сообщений: 903

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

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

Excel 2013

MCH, расскажи, пожалуйста, как работает твоя чудо формула? Зачем нам ноль в степени причудливой? Зачем в конце клеешь пустую строку?

Код

=СМЕЩ(A$1;СЧЁТ(0^(СЧЁТЕСЛИ(A$1:A4;A$1:A$3)-B$1:B$3));)&""

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Сообщение отредактировал Rioran - Вторник, 17.06.2014, 15:30

Ответить

MCH

Дата: Пятница, 20.06.2014, 00:05 | Сообщение № 28

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

Ранг: Старожил

Сообщений: 2003

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

Замечаний: ±

Цитата Rioran, 17.06.2014 в 15:30, в сообщении № 27

Зачем нам ноль в степени причудливой?

0 в степени любого числа >0 = 0,
0^0 - #ЧИСЛО!
0^(отрицательно число) - #ДЕЛ/0!
СЧЕТ считает только числа (в данном случае нули), т.е. когда степень положительна
&"" нужно для того, чтобы получалась пустая строка вместо нуля, т.к. происходит ссылка на ячейку A4

Ответить

Фрукты, размножение

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