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

Вход

Регистрация

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

 

= Мир MS Excel/Принципы подсветки формул в Excel - Страница 3 - Мир MS Excel

Старая форма входа
Модератор форума: китин  
Принципы подсветки формул в Excel
Serge_007 Дата: Понедельник, 07.01.2013, 01:40 | Сообщение № 41
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Как Экс их подвечивает?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеКак Экс их подвечивает?

Автор - Serge_007
Дата добавления - 07.01.2013 в 01:40
ikki Дата: Понедельник, 07.01.2013, 01:43 | Сообщение № 42
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
ессно, ссылки на одну и ту же ячейку - одним цветом, на разные - разными.
всё по фен-шую.
можете убедиться
К сообщению приложен файл: r1c1.xls (12.5 Kb)


помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki


Сообщение отредактировал ikki - Понедельник, 07.01.2013, 01:44
 
Ответить
Сообщениеессно, ссылки на одну и ту же ячейку - одним цветом, на разные - разными.
всё по фен-шую.
можете убедиться

Автор - ikki
Дата добавления - 07.01.2013 в 01:43
nerv Дата: Понедельник, 07.01.2013, 02:46 | Сообщение № 43
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

тогда я предлагаю не замарачиваться с опередлением идентичных ссылок в стиле R1C1, если они не полностью идентичны

итого:
R1C1 полностью идентичные светим одинаково
Цитата (MCH)
=B1+$B$1+B$1+$B1

светим одинаково

еще я солидарен с
Цитата (ikki)
не вижу (ай! не бейте меня пагалаве! щикотно ж...) серьезного смысла подсвечивать на форуме адреса (имена)

если в именах разрешены рус., тогда все названия функций (на рус) повыделяет, если попытаться выделять имена eng, тогда повыделяет функции на eng

В целом как очучения от подсветки?


Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук


YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba
 
Ответить
Сообщениетогда я предлагаю не замарачиваться с опередлением идентичных ссылок в стиле R1C1, если они не полностью идентичны

итого:
R1C1 полностью идентичные светим одинаково
Цитата (MCH)
=B1+$B$1+B$1+$B1

светим одинаково

еще я солидарен с
Цитата (ikki)
не вижу (ай! не бейте меня пагалаве! щикотно ж...) серьезного смысла подсвечивать на форуме адреса (имена)

если в именах разрешены рус., тогда все названия функций (на рус) повыделяет, если попытаться выделять имена eng, тогда повыделяет функции на eng

В целом как очучения от подсветки?

Автор - nerv
Дата добавления - 07.01.2013 в 02:46
ikki Дата: Понедельник, 07.01.2013, 02:55 | Сообщение № 44
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
по именам-функциям можно проверять наличие открывающей скобки после последовательности символов.
т.е. как-то так:
[vba]
Код
("([\wа-яё_\d]+?)(?=[^(])"
[/vba]
только надо еще учесть, что первый символ не м.б. цифрой (подчёркиванием - может)

нормальные очучения. красивая новогодняя гирлянда выходит.
да и задачка интересная, хоть и бессмысленная
biggrin (мне пофиг, я в каске)

пс. шаблон неправильный, но идея, надеюсь, понятна.
я в процессе поиска. кстати, пока никак не могу с восклицаками и кавычками разобраться - ночь на дворе biggrin


помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki


Сообщение отредактировал ikki - Понедельник, 07.01.2013, 02:59
 
Ответить
Сообщениепо именам-функциям можно проверять наличие открывающей скобки после последовательности символов.
т.е. как-то так:
[vba]
Код
("([\wа-яё_\d]+?)(?=[^(])"
[/vba]
только надо еще учесть, что первый символ не м.б. цифрой (подчёркиванием - может)

нормальные очучения. красивая новогодняя гирлянда выходит.
да и задачка интересная, хоть и бессмысленная
biggrin (мне пофиг, я в каске)

пс. шаблон неправильный, но идея, надеюсь, понятна.
я в процессе поиска. кстати, пока никак не могу с восклицаками и кавычками разобраться - ночь на дворе biggrin

Автор - ikki
Дата добавления - 07.01.2013 в 02:55
nerv Дата: Понедельник, 07.01.2013, 03:31 | Сообщение № 45
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

Цитата (ikki)
ночь на дворе

аналогично smile

Цитата (ikki)
по именам-функциям можно проверять наличие открывающей скобки после последовательности символов

ничего не понял )

Цитата (ikki)
нормальные очучения. красивая новогодняя гирлянда выходит.

biggrin

Цитата (ikki)
я в процессе поиска. кстати, пока никак не могу с восклицаками и кавычками разобраться

про кавычки. Вот весь "главный" код (см. комменты)


Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук


YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba


Сообщение отредактировал nerv - Понедельник, 07.01.2013, 03:37
 
Ответить
Сообщение
Цитата (ikki)
ночь на дворе

аналогично smile

Цитата (ikki)
по именам-функциям можно проверять наличие открывающей скобки после последовательности символов

ничего не понял )

Цитата (ikki)
нормальные очучения. красивая новогодняя гирлянда выходит.

biggrin

Цитата (ikki)
я в процессе поиска. кстати, пока никак не могу с восклицаками и кавычками разобраться

про кавычки. Вот весь "главный" код (см. комменты)

Автор - nerv
Дата добавления - 07.01.2013 в 03:31
ikki Дата: Понедельник, 07.01.2013, 03:56 | Сообщение № 46
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
комментов по кавычкам не нашел, но регу увидел.
спасибо, хотя я уже успел и сам к этому прийти.
по восклицакам - аналогично м. сделать.
это я так, для себя, на VBA пиликаю.
а твой код для меня местами непонятен sad

по поводу имен и скобки:
т.к. мы не можем проверить, имеется ли какое-либо имя в книге или Ex нам выдаст ошибку #ИМЯ?, то любую последовательность символов, похожую на имя, будем считать именем.
небольшая засада состоит в том, что имена могут полностью или частично совпадать с названиями функций.
и, в общем-то, неважно, функции из какой локали использованы в формуле.
важно, чтобы функции НЕ подсвечивались, а имена - подсвечивались.

мне кажется, что в формуле после имени не может идти открывающая (круглая) скобка.
а после функции она идет обязательно.
и это можно использовать.
как думаешь?


помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki


Сообщение отредактировал ikki - Понедельник, 07.01.2013, 07:31
 
Ответить
Сообщениекомментов по кавычкам не нашел, но регу увидел.
спасибо, хотя я уже успел и сам к этому прийти.
по восклицакам - аналогично м. сделать.
это я так, для себя, на VBA пиликаю.
а твой код для меня местами непонятен sad

по поводу имен и скобки:
т.к. мы не можем проверить, имеется ли какое-либо имя в книге или Ex нам выдаст ошибку #ИМЯ?, то любую последовательность символов, похожую на имя, будем считать именем.
небольшая засада состоит в том, что имена могут полностью или частично совпадать с названиями функций.
и, в общем-то, неважно, функции из какой локали использованы в формуле.
важно, чтобы функции НЕ подсвечивались, а имена - подсвечивались.

мне кажется, что в формуле после имени не может идти открывающая (круглая) скобка.
а после функции она идет обязательно.
и это можно использовать.
как думаешь?

Автор - ikki
Дата добавления - 07.01.2013 в 03:56
ikki Дата: Понедельник, 07.01.2013, 07:25 | Сообщение № 47
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
в общем...
наваял я тут со скуки и в рамках повышенных обязательств по освоению новых методов и средств.
пока - без учета стиля R1C1 и ссылок на один и тот же диапазон.
и о скобках даже не начинал еще думать.

но... можть пригодится wink
К сообщению приложен файл: fhl.xls (33.0 Kb)


помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki


Сообщение отредактировал ikki - Понедельник, 07.01.2013, 07:29
 
Ответить
Сообщениев общем...
наваял я тут со скуки и в рамках повышенных обязательств по освоению новых методов и средств.
пока - без учета стиля R1C1 и ссылок на один и тот же диапазон.
и о скобках даже не начинал еще думать.

но... можть пригодится wink

Автор - ikki
Дата добавления - 07.01.2013 в 07:25
Serge_007 Дата: Понедельник, 07.01.2013, 10:13 | Сообщение № 48
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата (ikki)
после имени не может идти открывающая (круглая) скобка.
а после функции она идет обязательно

Именно
Скобки вообще недопустимы в имени, а в названии функции они будут всегда


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата (ikki)
после имени не может идти открывающая (круглая) скобка.
а после функции она идет обязательно

Именно
Скобки вообще недопустимы в имени, а в названии функции они будут всегда

Автор - Serge_007
Дата добавления - 07.01.2013 в 10:13
ikki Дата: Понедельник, 07.01.2013, 12:31 | Сообщение № 49
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
продолжаем biggrin
Цитата (ikki)
пока - без учета стиля R1C1 и ссылок на один и тот же диапазон.

вроде получилось учесть 1eye
предполагается, что ссылки не содержат синтаксических ошибок, а имена не содержат символ $
в принципе, можно ещё навертеть...
но, имхо, не стоит.
К сообщению приложен файл: 5771886.xls (43.5 Kb)


помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki


Сообщение отредактировал ikki - Понедельник, 07.01.2013, 12:54
 
Ответить
Сообщениепродолжаем biggrin
Цитата (ikki)
пока - без учета стиля R1C1 и ссылок на один и тот же диапазон.

вроде получилось учесть 1eye
предполагается, что ссылки не содержат синтаксических ошибок, а имена не содержат символ $
в принципе, можно ещё навертеть...
но, имхо, не стоит.

Автор - ikki
Дата добавления - 07.01.2013 в 12:31
Serge_007 Дата: Понедельник, 07.01.2013, 12:49 | Сообщение № 50
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Ага
Похоже на правду)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеАга
Похоже на правду)

Автор - Serge_007
Дата добавления - 07.01.2013 в 12:49
nerv Дата: Среда, 09.01.2013, 01:34 | Сообщение № 51
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

Выделяются ячейки, диапазоны и имена.
Из обработки исключены текстовые строки и абсолютные ссылки.
Одинаковые ссылки подсвечиваются одинаково.

пробуем тут

проект

p.s.: скобки на сладкое


Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук


YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba
 
Ответить
СообщениеВыделяются ячейки, диапазоны и имена.
Из обработки исключены текстовые строки и абсолютные ссылки.
Одинаковые ссылки подсвечиваются одинаково.

пробуем тут

проект

p.s.: скобки на сладкое

Автор - nerv
Дата добавления - 09.01.2013 в 01:34
nerv Дата: Среда, 09.01.2013, 18:16 | Сообщение № 52
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

ikki, объявляю тебе публичную благодарность за файл с примерами. Позаимствовал оттуда тестовые формулы.

Вообщем, задача не тривиальная, 100 результата не будет, это надо понимать.

=ПСТР(A1;ПОИСКПОЗ(ИСТИНА;ПОИСКПОЗ(КОДСИМВ(ПСТР(A1;СТРОКА($1:$99);1));{65;122})=1;);ПРОСМОТР(2;1/(ПОИСКПОЗ(КОДСИМВ(ПСТР(A1;СТРОКА($1:$99);1));{65;122})=1);СТРОКА($1:$99))-ПОИСКПОЗ(ИСТИНА;ПОИСКПОЗ(КОДСИМВ(ПСТР(A1;СТРОКА($1:$99);1));{65;122})=1;)+1)

='D:\прочее\планета\[Книга 2.xls]Лист 2'!$A$1+'[Книга1]Лист 3'!$E$16:E$17+A2+b7

(эти два случая я пофиксил, просто на сервер не пушил (push))

и т.д.

Со скобками тоже не айс: придется проверять вложенность, складывать в массив или еще куда-то. Благо, изначально пошел по пути наименьшего сопротивления. ikki, ты понял о чем я )


Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук


YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba


Сообщение отредактировал nerv - Среда, 09.01.2013, 18:24
 
Ответить
Сообщениеikki, объявляю тебе публичную благодарность за файл с примерами. Позаимствовал оттуда тестовые формулы.

Вообщем, задача не тривиальная, 100 результата не будет, это надо понимать.

=ПСТР(A1;ПОИСКПОЗ(ИСТИНА;ПОИСКПОЗ(КОДСИМВ(ПСТР(A1;СТРОКА($1:$99);1));{65;122})=1;);ПРОСМОТР(2;1/(ПОИСКПОЗ(КОДСИМВ(ПСТР(A1;СТРОКА($1:$99);1));{65;122})=1);СТРОКА($1:$99))-ПОИСКПОЗ(ИСТИНА;ПОИСКПОЗ(КОДСИМВ(ПСТР(A1;СТРОКА($1:$99);1));{65;122})=1;)+1)

='D:\прочее\планета\[Книга 2.xls]Лист 2'!$A$1+'[Книга1]Лист 3'!$E$16:E$17+A2+b7

(эти два случая я пофиксил, просто на сервер не пушил (push))

и т.д.

Со скобками тоже не айс: придется проверять вложенность, складывать в массив или еще куда-то. Благо, изначально пошел по пути наименьшего сопротивления. ikki, ты понял о чем я )

Автор - nerv
Дата добавления - 09.01.2013 в 18:16
ikki Дата: Среда, 09.01.2013, 18:27 | Сообщение № 53
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
со скобками даже и не думай реги юзать.
на хабре это сто раз обсуждали.
если не веришь - могу ссылки дать smile
обычный перебор по порядку, открывающая - увеличиваем счетчик, закрывающая - уменьшаем.


помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщениесо скобками даже и не думай реги юзать.
на хабре это сто раз обсуждали.
если не веришь - могу ссылки дать smile
обычный перебор по порядку, открывающая - увеличиваем счетчик, закрывающая - уменьшаем.

Автор - ikki
Дата добавления - 09.01.2013 в 18:27
nerv Дата: Среда, 09.01.2013, 18:54 | Сообщение № 54
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

все зависит от результата, который необходимо получить. Например, можно так (регами). Достает из глубины наружу.

задача со скобками почти аналогична парсингу bbcode : )


Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук


YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba


Сообщение отредактировал nerv - Среда, 09.01.2013, 18:55
 
Ответить
Сообщениевсе зависит от результата, который необходимо получить. Например, можно так (регами). Достает из глубины наружу.

задача со скобками почти аналогична парсингу bbcode : )

Автор - nerv
Дата добавления - 09.01.2013 в 18:54
Serge_007 Дата: Понедельник, 14.01.2013, 15:25 | Сообщение № 55
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Первый тест:
Код
=ИНДЕКС({"";"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот "};ОСТАТ(ОТБР(A1/10^8);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10^7);10)+1;"";ИНДЕКС({"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "};ОСТАТ(ОТБР(A1/10^6);10)+1);"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^7);10)<>1;ИНДЕКС({"";"один ";"два ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять "};ОСТАТ(ОТБР(A1/10^6);10)+1);"")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^6);1000);"миллион"&ЕСЛИ(ОСТАТ(ОТБР(A1/10^7);10)=1;"ов ";ВПР(ОСТАТ(ОТБР(A1/10^6);10);{0;"ов ":1;" ":2;"а ":5;"ов "};2));"")&ИНДЕКС({"";"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот "};ОСТАТ(ОТБР(A1/10^5);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10^4);10)+1;"";ИНДЕКС({"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "};ОСТАТ(ОТБР(A1/1000);10)+1);"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^4);10)<>1;ИНДЕКС({"";"одна ";"две ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять "};ОСТАТ(ОТБР(A1/1000);10)+1);"")&ЕСЛИ(ОСТАТ(ОТБР(A1/1000);1000);"тысяч"&ЕСЛИ(ОСТАТ(ОТБР(A1/10^4);10)=1;" ";ВПР(ОСТАТ(ОТБР(A1/1000);10);{0;" ":1;"а ":2;"и ":5;" "};2));"")&ИНДЕКС({"";"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот "};ОСТАТ(ОТБР(A1/100);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10);10)+1;"";ИНДЕКС({"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "};ОСТАТ(ОТБР(A1);10)+1);"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(ОТБР(A1)=0;"ноль ";ЕСЛИ(ОСТАТ(ОТБР(A1/10);10)<>1;ИНДЕКС({"";"один ";"два ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять "};ОСТАТ(ОТБР(A1);10)+1);""))&"рубл"&ЕСЛИ(ОСТАТ(ОТБР(A1/10);10)=1;"ей";ВПР(ОСТАТ(ОТБР(A1);10);{0;"ей":1;"ь":2;"я":5;"ей"};2))&ТЕКСТ(ОТБР((A1-ОТБР(A1)+0,00001)*100);" 00\ коп.;;")


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеПервый тест:
Код
=ИНДЕКС({"";"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот "};ОСТАТ(ОТБР(A1/10^8);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10^7);10)+1;"";ИНДЕКС({"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "};ОСТАТ(ОТБР(A1/10^6);10)+1);"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^7);10)<>1;ИНДЕКС({"";"один ";"два ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять "};ОСТАТ(ОТБР(A1/10^6);10)+1);"")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^6);1000);"миллион"&ЕСЛИ(ОСТАТ(ОТБР(A1/10^7);10)=1;"ов ";ВПР(ОСТАТ(ОТБР(A1/10^6);10);{0;"ов ":1;" ":2;"а ":5;"ов "};2));"")&ИНДЕКС({"";"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот "};ОСТАТ(ОТБР(A1/10^5);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10^4);10)+1;"";ИНДЕКС({"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "};ОСТАТ(ОТБР(A1/1000);10)+1);"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(ОСТАТ(ОТБР(A1/10^4);10)<>1;ИНДЕКС({"";"одна ";"две ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять "};ОСТАТ(ОТБР(A1/1000);10)+1);"")&ЕСЛИ(ОСТАТ(ОТБР(A1/1000);1000);"тысяч"&ЕСЛИ(ОСТАТ(ОТБР(A1/10^4);10)=1;" ";ВПР(ОСТАТ(ОТБР(A1/1000);10);{0;" ":1;"а ":2;"и ":5;" "};2));"")&ИНДЕКС({"";"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот "};ОСТАТ(ОТБР(A1/100);10)+1)&ВЫБОР(ОСТАТ(ОТБР(A1/10);10)+1;"";ИНДЕКС({"десять ";"одиннадцать ";"двенадцать ";"тринадцать ";"четырнадцать ";"пятнадцать ";"шестнадцать ";"семнадцать ";"восемнадцать ";"девятнадцать "};ОСТАТ(ОТБР(A1);10)+1);"двадцать ";"тридцать ";"сорок ";"пятьдесят ";"шестьдесят ";"семьдесят ";"восемьдесят ";"девяносто ")&ЕСЛИ(ОТБР(A1)=0;"ноль ";ЕСЛИ(ОСТАТ(ОТБР(A1/10);10)<>1;ИНДЕКС({"";"один ";"два ";"три ";"четыре ";"пять ";"шесть ";"семь ";"восемь ";"девять "};ОСТАТ(ОТБР(A1);10)+1);""))&"рубл"&ЕСЛИ(ОСТАТ(ОТБР(A1/10);10)=1;"ей";ВПР(ОСТАТ(ОТБР(A1);10);{0;"ей":1;"ь":2;"я":5;"ей"};2))&ТЕКСТ(ОТБР((A1-ОТБР(A1)+0,00001)*100);" 00\ коп.;;")

Автор - Serge_007
Дата добавления - 14.01.2013 в 15:25
Serge_007 Дата: Понедельник, 14.01.2013, 15:40 | Сообщение № 56
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Сравнение:

Код
=СУММ(ЕСЛИ(B$4:AF$4;ЕСЛИ(B8:AF8>(B$4:AF$4*8+2);2;ЕСЛИ(B8:AF8>B$4:AF$4*8;B8:AF8-B$4:AF$4*8))))

К сообщению приложен файл: 5272887.gif (6.4 Kb)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеСравнение:

Код
=СУММ(ЕСЛИ(B$4:AF$4;ЕСЛИ(B8:AF8>(B$4:AF$4*8+2);2;ЕСЛИ(B8:AF8>B$4:AF$4*8;B8:AF8-B$4:AF$4*8))))


Автор - Serge_007
Дата добавления - 14.01.2013 в 15:40
Serge_007 Дата: Понедельник, 14.01.2013, 16:08 | Сообщение № 57
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
На мой взгляд - отлично получилось, Спасибо Саш!

О мелких различиях написал в личку

Следующей задачей будет сделать подсказку по функциям, при наведении на формулу курсора, как на фото выше постом. Я думаю это будет гораздо проще, чем подсветка синтаксиса biggrin


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеНа мой взгляд - отлично получилось, Спасибо Саш!

О мелких различиях написал в личку

Следующей задачей будет сделать подсказку по функциям, при наведении на формулу курсора, как на фото выше постом. Я думаю это будет гораздо проще, чем подсветка синтаксиса biggrin

Автор - Serge_007
Дата добавления - 14.01.2013 в 16:08
_Boroda_ Дата: Понедельник, 14.01.2013, 16:38 | Сообщение № 58
Группа: Админы
Ранг: Местный житель
Сообщений: 16730
Репутация: 6527 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
А у меня в IE не светится, а в лисе нормально все


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА у меня в IE не светится, а в лисе нормально все

Автор - _Boroda_
Дата добавления - 14.01.2013 в 16:38
nerv Дата: Понедельник, 14.01.2013, 16:56 | Сообщение № 59
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

Цитата (Serge_007)
На мой взгляд - отлично получилось, Спасибо Саш!

тебе спасибо wink

Цитата (_Boroda_)
А у меня в IE не светится, а в лисе нормально все

это временное явление. Консоль IE сообщает

SEC7112: Сценарий из https://raw.github.com/nervgh....init.js был заблокирован из-за несоответствия типа MIME

Скрипт инициализации плагина сейчас лежит на сервере GitHub и ссылку на него можно давать только так. А вообще, IE must die smile

Цитата (Serge_007)
Следующей задачей будет сделать подсказку по функциям, при наведении на формулу курсора, как на фото выше постом. Я думаю это будет гораздо проще, чем подсветка синтаксиса

можно. Но пока я не готов smile (там сервер + клиент)


Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук


YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba


Сообщение отредактировал nerv - Понедельник, 14.01.2013, 17:05
 
Ответить
Сообщение
Цитата (Serge_007)
На мой взгляд - отлично получилось, Спасибо Саш!

тебе спасибо wink

Цитата (_Boroda_)
А у меня в IE не светится, а в лисе нормально все

это временное явление. Консоль IE сообщает

SEC7112: Сценарий из https://raw.github.com/nervgh....init.js был заблокирован из-за несоответствия типа MIME

Скрипт инициализации плагина сейчас лежит на сервере GitHub и ссылку на него можно давать только так. А вообще, IE must die smile

Цитата (Serge_007)
Следующей задачей будет сделать подсказку по функциям, при наведении на формулу курсора, как на фото выше постом. Я думаю это будет гораздо проще, чем подсветка синтаксиса

можно. Но пока я не готов smile (там сервер + клиент)

Автор - nerv
Дата добавления - 14.01.2013 в 16:56
nerv Дата: Вторник, 15.01.2013, 01:41 | Сообщение № 60
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

думаю, надо шрифт в формулах поменять. Этот не читаем. Правьте стили )


Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук


YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba
 
Ответить
Сообщениедумаю, надо шрифт в формулах поменять. Этот не читаем. Правьте стили )

Автор - nerv
Дата добавления - 15.01.2013 в 01:41
Поиск:

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