Номер буквы в алфавите - Страница 3 - Мир MS Excel

Регистрация

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

= Мир MS Excel/Номер буквы в алфавите - Страница 3 - Мир MS Excel

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

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

Номер буквы в алфавите (на формулах определить местоположение символа в алфавите)

Номер буквы в алфавите

Дата: Понедельник, 29.12.2014, 09:18 | Сообщение № 41

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

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

Сообщений: 4517

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

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

Excel 2003

Двадцать девятое, понедельник. Открываемся.
с применением пользовательского формата 0;;
1 - отрицательное значение, ноль или номер буквы (число) 95 символов
2 - ноль или номер буквы (число) 102 символа
без применения пользовательского формата
3 - пустая строка или номер буквы (текст) 108 символов
Формула 1

Код

=КОДСИМВ(СТРОЧН(B2))-ВПР(КОДСИМВ(СТРОЧН(B2));{0;96:123;222:184;177:185;223:230;222};2)*ДЛСТР(B2)

Во второй и третьей эта формула обросла еще функцией МАКС() и ТЕКСТ() соответственно.

К сообщению приложен файл: NumberOfLetters.rar (15.7 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Дата: Понедельник, 29.12.2014, 09:57 | Сообщение № 42

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

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

Сообщений: 1394

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

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

Excel 2010

Пустая строка или номер буквы, 121 знак, по сути - недоработанная версия формулы AlexM:

Код

=ЕСЛИОШИБКА(КОДСИМВ(СТРОЧН(B3))-ВПР((ДЛСТР(B3)=1)*КОДСИМВ(СТРОЧН(B3));{97;96:123;"":184;177:185;"":224;223:230;222};2);"")

С пользовательским форматом, 109 символов:

Код

=КОДСИМВ(СТРОЧН(B3))-ВПР(КОДСИМВ(СТРОЧН(B3));{0;99:97;96:123;999:184;177:185;999:224;223:230;222};2)^ДЛСТР(B3)

QIWI 9173973973

Сообщение отредактировал Russel - Понедельник, 29.12.2014, 09:58

Ответить

Дата: Понедельник, 29.12.2014, 10:47 | Сообщение № 43

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

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

Сообщений: 1394

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

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

Excel 2010

До кучи, принципиально другой вариант, 119 символов, наверняка можно упростить:

Код

=ЕСЛИОШИБКА(НАЙТИ(СТРОЧН(B3);ЕСЛИ(КОДСИМВ(B3)>122;"абвгдеёжзийклмнопрстуфхцчшщьыъэюя";"abcdefghijklmnopqrstuvwxyz"));"")

Минус: неправильно распознает строки типа "абв", "где" и т.д., т.е. те, в которых буквы идут в алфавитном порядке, т.к. нет проверки на длину строки.

QIWI 9173973973

Ответить

Дата: Понедельник, 29.12.2014, 11:20 | Сообщение № 44

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

у меня исходная была аналогичной: 130 знаков

Код

=ЕСЛИОШИБКА(ЕСЛИ(ДЛСТР(B2)=1;КОДСИМВ(СТРОЧН(B2))-ВПР(КОДСИМВ(СТРОЧН(B2));{97;96:123;"":184;177:185;"":224;223:230;222};2;1);"");"")

"принципиально иной вариант" - пытался аналогичное, но вот упростить как-то не вышло

Ответить

Дата: Понедельник, 29.12.2014, 11:22 | Сообщение № 45

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

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

Сообщений: 2793

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Самый честный первоначальный вариант задания - без ЕСЛИОШИБКА, числа и пустая строка:
129 символов, включая =

Код

=ЕСЛИ(И(ДЛСТР(B2)=1;B2>="a";ЕОШ(ПОИСК(B2;"№™ѓґђєѕіїјќљњћўџ")));КОДСИМВ(СТРОЧН(B2))-ВПР(B2;{"a";96:"а";223:"ё";177:"ж";222};2);"")

С форматом 0;;
113 символов, включая =

Код

=(ДЛСТР(B2)=1)*ЕСЛИ(B2="ё";7;КОДСИМВ(СТРОЧН(B2))-ВПР(КОДСИМВ(СТРОЧН(B2));{1;99:97;96:123;999:224;223:230;222};2))

P.S. Хотя мне всё равно наиболее симпатичен мой самый первый честный вариант на 168 символов

Код

=ЕСЛИ((ДЛСТР(B2)=1)*ВПР(КОДСИМВ(СТРОЧН(B2));{1;0:97;1:123;0:184;1:185;0:224;1};2);ОСТАТ(ПОИСК(B2;"абвгдеёжзийклмнопрстуфхцчшщъыьэюяЯabcdefghijklmnopqrstuvwxyz");34);"")

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Понедельник, 29.12.2014, 11:27

Ответить

Дата: Понедельник, 29.12.2014, 11:36 | Сообщение № 46

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

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

Сообщений: 2347

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

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

Excel 2007,2010,2013

мои немного еврейские формулы
1 с ЕСЛИОШИБКА номер числом, пустые строки - 117

Код

=ЕСЛИОШИБКА(ЦЕЛОЕ(ПОИСК("~"&B2;"²aаbбcвdгeдfеgёhжiзjиkйlкmлnмoнpоqпrрsсtтuуvфwхxцyчzшшщщъъыыььээююяя")/2)/(B2>" ");"")

2 номер текстом, пустые строки - 110

Код

=ТЕКСТ(15*(B2="ё")+КОДСИМВ(СТРОЧН(B2))-ПРОСМОТР(КОДСИМВ(B2);{1;123;192};{96;192;223})*ДЛСТР(B2)+(B2>"ё");"0;;")

3 номер числом, все остальное 0 - 102

Код

=МАКС(КОДСИМВ(СТРОЧН(B2))-ПРОСМОТР(КОДСИМВ(B2);{0;123;192};{96;192;223})*ДЛСТР(B2)+(B2>"ё");7*(B2="ё"))

4 со скрытием 0 и минусовых чисел форматом - 97

Код

=[sub]15*(B2="ё")+КОДСИМВ(СТРОЧН(B2))-ПРОСМОТР(КОДСИМВ(B2);{1;123;192};{96;192;223})*ДЛСТР(B2)+(B2>"ё")

5 утром написал, без ЕСЛИОШИБКА номер числом, пустые строки - 162 (массивная)

Код

=ЕСЛИ(ИЛИ(СИМВОЛ(СТРОКА(65:90)+{0;127})=B2;B2>"щ";B2="ё")*(B2=ЛЕВБ(B2));15*(B2="ё")+КОДСИМВ(СТРОЧН(B2))-ПРОСМОТР(КОДСИМВ(B2);{1;123;192};{96;192;223})+(B2>"ё");"")

после просмотра формул Алексея и Руслана путем замены ПРОСМОТР на ВПР 2,3,4,5 формулы уменьшились на 5 символов

К сообщению приложен файл: 5992442.xlsb (89.1 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 29.12.2014, 11:42

Ответить

Дата: Понедельник, 29.12.2014, 11:51 | Сообщение № 47

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

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

Сообщений: 4517

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

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

Excel 2003

krosav4ig, я так и знал.

"ну тогда, после подведения итогов может появится формула меньше 95" (из личной переписки)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Дата: Понедельник, 29.12.2014, 11:57 | Сообщение № 48

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

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

Сообщений: 2347

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

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

Excel 2007,2010,2013

ага

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Дата: Понедельник, 29.12.2014, 12:02 | Сообщение № 49

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

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

Сообщений: 4517

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

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

Excel 2003

После просмотра формулы Андрея (krosav4ig) появилась формула 84 символа

Код

=46*(B2="ё")+КОДСИМВ(СТРОЧН(B2))-ВПР(КОДСИМВ(B2);{1;96:123;223};2)*ДЛСТР(B2)+(B2>"ё")

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Дата: Понедельник, 29.12.2014, 14:37 | Сообщение № 50

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

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

Сообщений: 1394

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

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

Excel 2010

Цитата AlexM, 29.12.2014 в 12:02, в сообщении № 49

формула 84 символа

hands

QIWI 9173973973

Ответить

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

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

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

Сообщений: 2941

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

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

Я как остановился, так дальше и не двигался (130):

Код

=ТЕКСТ(МАКС((B2=ПСТР("aаbбcвdгeдfеgёhжiзjиkйlкmлnмoнpоqпrрsсtтuуvфwхxцyчzшящяъяыяьяэяюя";СТРОКА($1:65);1))*СТРОКА($1:65))/2;"0;;")

Набросок, только для "нужных":

Код

=ОТБР(ПОИСК(B2;" aаbбcвdгeдfеgёhжiзjиkйlкmлnмoнpоqпrрsсtтuуvфwхxцyчzшащаъаыаьаэаюая")/2)

Сообщение отредактировал vikttur - Вторник, 30.12.2014, 10:06

Ответить

Дата: Вторник, 30.12.2014, 10:18 | Сообщение № 52

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

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

Сообщений: 4517

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

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

Excel 2003

Код

=КОДСИМВ(СТРОЧН(B2))-ЕСЛИ(КОДСИМВ(B2)>122;223;96)*ДЛСТР(B2)+46*(B2="ё")+(B2>"ё")

79 символов.

Код

КОДСИМВ(СТРОЧН(B2))-96*ДЛСТР(B2)-127*(КОДСИМВ(B2)>122)+46*(B2="ё")+(B2>"ё")

75 символов.
Формат 0;;

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Вторник, 30.12.2014, 10:54

Ответить

Дата: Вторник, 30.12.2014, 12:50 | Сообщение № 53

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

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

Сообщений: 2347

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

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

Excel 2007,2010,2013

Цитата AlexM, 30.12.2014 в 10:18, в сообщении № 52

79 символов.

Цитата AlexM, 30.12.2014 в 10:18, в сообщении № 52

75 символов.

hands

hands

hands

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Дата: Вторник, 30.12.2014, 17:39 | Сообщение № 54

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

Ранг: Экселист

Сообщений: 8999

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

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

Excel 2010

Я отстал

Не было переодически инета и эл-ва (все без учета знака =)
112 0;;

Код

=(ДЛСТР(B7)=1)*МАКС((B7="ё")*46+(КОДСИМВ(СТРОЧН(B7))<123)*127+КОДСИМВ(СТРОЧН(B7))-222-(КОДСИМВ(СТРОЧН(B7))<230);)

107 с -

Код

(ДЛСТР(B2)=1)*((B2="ё")*46+(КОДСИМВ(СТРОЧН(B2))<123)*127+КОДСИМВ(СТРОЧН(B2))-222-(КОДСИМВ(СТРОЧН(B2))<230))

117 с ЕСЛИОШИБКА

Код

ЕСЛИОШИБКА(ОСТАТ(ПОИСК(B2;" abcdefghijklmnopqrstuvwxyz абвгдеёжзийклмнопрстуфхцчшщъыьэюя")-1;34)^(-1/2)^-2;"")

ЮMoney 41001841029809

Ответить

Дата: Воскресенье, 18.01.2015, 20:40 | Сообщение № 55

Группа: Проверенные

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

Сообщений: 346

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

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

Excel 2007

У меня супер короткий вариант на 839 символов

Код

=ЕСЛИ(ДЛСТР(B2)=1;ПРОСМОТР(КОДСИМВ(B2);{1;65;66;67;68;69;70;71;72;73;74;75;76;77;78;79;80;81;82;83;84;85;86;87;88;89;90;91;97;98;99;100;101;102;103;104;105;106;107;108;109;110;111;112;113;114;115;116;117;118;119;120;121;122;123;168;169;184;185;192;193;194;195;196;197;198;199;200;201;202;203;204;205;206;207;208;209;210;211;212;213;214;215;216;217;218;219;220;221;222;223;224;225;226;227;228;229;230;231;232;233;234;235;236;237;238;239;240;241;242;243;244;245;246;247;248;249;250;251;252;253;254;255};{"";1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25;26;"";1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25;26;"";7;"";7;"";1;2;3;4;5;6;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25;26;27;28;29;30;31;32;33;1;2;3;4;5;6;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25;26;27;28;29;30;31;32;33});"")

С Уважением, Richman

Сообщение отредактировал Richman - Воскресенье, 18.01.2015, 20:43

Ответить

Дата: Понедельник, 19.01.2015, 10:40 | Сообщение № 56

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

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

Сообщений: 1394

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

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

Excel 2010

Richman, это победа! hands

hands

QIWI 9173973973

Ответить

Номер буквы в алфавите (на формулах определить местоположение символа в алфавите)

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

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