Принципы подсветки формул в Excel 
				   
 
 
 Serge_007  
 Дата: Понедельник, 07.01.2013, 01:40 | 
 Сообщение № 41   
   
 
   
 
 
 Группа: Админы  
 
 
 Ранг: Местный житель  
 
 Сообщений:  16475 
 
 
 
 
  Репутация:    
 2750    
 ±  
 
  
 Замечаний:
    ±  
       
  
 
 
 Как Экс их подвечивает? 
 
 
 
ЮMoney :41001419691823 |  WMR :126292472390    
  
 Ответить 
Сообщение Как Экс их подвечивает? Автор - Serge_007 07.01.2013  в 01:40   
 
 
 ikki  
 Дата: Понедельник, 07.01.2013, 01:43 | 
 Сообщение № 42   
   
 
   
 
 
 Группа: Друзья  
 
 
 Ранг: Старожил  
 
 Сообщений:  1906 
 
 
 
 
  Репутация:    
 504    
 ±  
 
  
 Замечаний:
 0%   ±  
       
  
 
 
 ессно, ссылки на одну и ту же ячейку - одним цветом, на разные - разными.  
 
 
ессно, ссылки на одну и ту же ячейку - одним цветом, на разные - разными.  ikki К сообщению приложен файл: 
							r1c1.xls 
							(12.5 Kb) 
						 помощь по Excel и VBA  
Сообщение отредактировал ikki  - Понедельник, 07.01.2013, 01:44 
   
  
 Ответить 
Сообщение ессно, ссылки на одну и ту же ячейку - одним цветом, на разные - разными.  Автор - ikki 07.01.2013  в 01:43   
 
 
 nerv  
 Дата: Понедельник, 07.01.2013, 02:46 | 
 Сообщение № 43   
   
 
   
 
 
 Группа: Редакторы  
 
 
 Ранг: Обитатель  
 
 Сообщений:  431 
 
 
 
     
  
 
 
 тогда я предлагаю не замарачиваться с опередлением идентичных ссылок в стиле R1C1, если они не полностью идентичны Цитата  (MCH )
=B1+$B$1+B$1+$B1
Цитата  (ikki )
не вижу (ай! не бейте меня пагалаве! щикотно ж...) серьезного смысла подсвечивать на форуме адреса (имена)
 тогда я предлагаю не замарачиваться с опередлением идентичных ссылок в стиле R1C1, если они не полностью идентичны Цитата  (MCH )
=B1+$B$1+B$1+$B1
Цитата  (ikki )
не вижу (ай! не бейте меня пагалаве! щикотно ж...) серьезного смысла подсвечивать на форуме адреса (имена)
 nerv Чебурашка стал символом олимпийских игр. А чего достиг ты?   YM  41001156540584 / WM  WMR R21924176233 https://github.com/nervgh/vba    
  
 Ответить 
Сообщение тогда я предлагаю не замарачиваться с опередлением идентичных ссылок в стиле R1C1, если они не полностью идентичны Цитата  (MCH )
=B1+$B$1+B$1+$B1
Цитата  (ikki )
не вижу (ай! не бейте меня пагалаве! щикотно ж...) серьезного смысла подсвечивать на форуме адреса (имена)
 Автор - nerv 07.01.2013  в 02:46   
 
 
 ikki  
 Дата: Понедельник, 07.01.2013, 02:55 | 
 Сообщение № 44   
   
 
   
 
 
 Группа: Друзья  
 
 
 Ранг: Старожил  
 
 Сообщений:  1906 
 
 
 
 
  Репутация:    
 504    
 ±  
 
  
 Замечаний:
 0%   ±  
       
  
 
 
 по именам-функциям можно проверять наличие открывающей скобки после последовательности символов. Код
("([\wа-яё_\d]+?)(?=[^(])"
 по именам-функциям можно проверять наличие открывающей скобки после последовательности символов. Код
("([\wа-яё_\d]+?)(?=[^(])"
 ikki помощь по Excel и VBA  
Сообщение отредактировал ikki  - Понедельник, 07.01.2013, 02:59 
   
  
 Ответить 
Сообщение по именам-функциям можно проверять наличие открывающей скобки после последовательности символов. Код
("([\wа-яё_\d]+?)(?=[^(])"
 Автор - ikki 07.01.2013  в 02:55   
 
 
 nerv  
 Дата: Понедельник, 07.01.2013, 03:31 | 
 Сообщение № 45   
   
 
   
 
 
 Группа: Редакторы  
 
 
 Ранг: Обитатель  
 
 Сообщений:  431 
 
 
 
     
  
 
 
 Цитата  (ikki )
ночь на дворе
Цитата  (ikki )
по именам-функциям можно проверять наличие открывающей скобки после последовательности символов
Цитата  (ikki )
нормальные очучения. красивая новогодняя гирлянда выходит. 
Цитата  (ikki )
я в процессе поиска. кстати, пока никак не могу с восклицаками и кавычками разобраться
"главный" код  (см. комменты)Цитата  (ikki )
ночь на дворе
Цитата  (ikki )
по именам-функциям можно проверять наличие открывающей скобки после последовательности символов
Цитата  (ikki )
нормальные очучения. красивая новогодняя гирлянда выходит. 
Цитата  (ikki )
я в процессе поиска. кстати, пока никак не могу с восклицаками и кавычками разобраться
"главный" код  (см. комменты)nerv Чебурашка стал символом олимпийских игр. А чего достиг ты?   YM  41001156540584 / WM  WMR R21924176233 https://github.com/nervgh/vba Сообщение отредактировал nerv  - Понедельник, 07.01.2013, 03:37 
   
  
 Ответить 
Сообщение Цитата  (ikki )
ночь на дворе
Цитата  (ikki )
по именам-функциям можно проверять наличие открывающей скобки после последовательности символов
Цитата  (ikki )
нормальные очучения. красивая новогодняя гирлянда выходит. 
Цитата  (ikki )
я в процессе поиска. кстати, пока никак не могу с восклицаками и кавычками разобраться
"главный" код  (см. комменты)Автор - nerv 07.01.2013  в 03:31   
 
 
 ikki  
 Дата: Понедельник, 07.01.2013, 03:56 | 
 Сообщение № 46   
   
 
   
 
 
 Группа: Друзья  
 
 
 Ранг: Старожил  
 
 Сообщений:  1906 
 
 
 
 
  Репутация:    
 504    
 ±  
 
  
 Замечаний:
 0%   ±  
       
  
 
 
 комментов по кавычкам не нашел, но регу увидел.  комментов по кавычкам не нашел, но регу увидел.  ikki помощь по Excel и VBA  
Сообщение отредактировал ikki  - Понедельник, 07.01.2013, 07:31 
   
  
 Ответить 
Сообщение комментов по кавычкам не нашел, но регу увидел.  Автор - ikki 07.01.2013  в 03:56   
 
 
 ikki  
 Дата: Понедельник, 07.01.2013, 07:25 | 
 Сообщение № 47   
   
 
   
 
 
 Группа: Друзья  
 
 
 Ранг: Старожил  
 
 Сообщений:  1906 
 
 
 
 
  Репутация:    
 504    
 ±  
 
  
 Замечаний:
 0%   ±  
       
  
 
 
 в общем...  в общем...  ikki К сообщению приложен файл: 
							fhl.xls 
							(33.0 Kb) 
						 помощь по Excel и VBA  
Сообщение отредактировал ikki  - Понедельник, 07.01.2013, 07:29 
   
  
 Ответить 
Сообщение в общем...  Автор - ikki 07.01.2013  в 07:25   
 
 
 Serge_007  
 Дата: Понедельник, 07.01.2013, 10:13 | 
 Сообщение № 48   
   
 
   
 
 
 Группа: Админы  
 
 
 Ранг: Местный житель  
 
 Сообщений:  16475 
 
 
 
 
  Репутация:    
 2750    
 ±  
 
  
 Замечаний:
    ±  
       
  
 
 
 Цитата  (ikki )
 после имени не может идти открывающая (круглая) скобка. 
Цитата  (ikki )
 после имени не может идти открывающая (круглая) скобка. 
Serge_007 ЮMoney :41001419691823 |  WMR :126292472390    
  
 Ответить 
Сообщение Цитата  (ikki )
 после имени не может идти открывающая (круглая) скобка. 
Автор - Serge_007 07.01.2013  в 10:13   
 
 
 ikki  
 Дата: Понедельник, 07.01.2013, 12:31 | 
 Сообщение № 49   
   
 
   
 
 
 Группа: Друзья  
 
 
 Ранг: Старожил  
 
 Сообщений:  1906 
 
 
 
 
  Репутация:    
 504    
 ±  
 
  
 Замечаний:
 0%   ±  
       
  
 
 
 продолжаем Цитата  (ikki )
пока - без учета стиля R1C1 и ссылок на один и тот же диапазон. 
предполагается , что ссылки не  содержат синтаксических ошибок, а имена не  содержат символ $  продолжаем Цитата  (ikki )
пока - без учета стиля R1C1 и ссылок на один и тот же диапазон. 
предполагается , что ссылки не  содержат синтаксических ошибок, а имена не  содержат символ $  ikki помощь по Excel и VBA  
Сообщение отредактировал ikki  - Понедельник, 07.01.2013, 12:54 
   
  
 Ответить 
Сообщение продолжаем Цитата  (ikki )
пока - без учета стиля R1C1 и ссылок на один и тот же диапазон. 
предполагается , что ссылки не  содержат синтаксических ошибок, а имена не  содержат символ $  Автор - ikki 07.01.2013  в 12:31   
 
 
 Serge_007  
 Дата: Понедельник, 07.01.2013, 12:49 | 
 Сообщение № 50   
   
 
   
 
 
 Группа: Админы  
 
 
 Ранг: Местный житель  
 
 Сообщений:  16475 
 
 
 
 
  Репутация:    
 2750    
 ±  
 
  
 Замечаний:
    ±  
       
  
 
 
 Ага  
 
 
 
ЮMoney :41001419691823 |  WMR :126292472390    
  
 Ответить 
Сообщение Ага  Автор - Serge_007 07.01.2013  в 12:49   
 
 
 nerv  
 Дата: Среда, 09.01.2013, 01:34 | 
 Сообщение № 51   
   
 
   
 
 
 Группа: Редакторы  
 
 
 Ранг: Обитатель  
 
 Сообщений:  431 
 
 
 
     
  
 
 
 Выделяются ячейки, диапазоны и имена. тут  проект   Выделяются ячейки, диапазоны и имена. тут  проект   nerv Чебурашка стал символом олимпийских игр. А чего достиг ты?   YM  41001156540584 / WM  WMR R21924176233 https://github.com/nervgh/vba    
  
 Ответить 
Сообщение Выделяются ячейки, диапазоны и имена. тут  проект   Автор - nerv 09.01.2013  в 01:34   
 
 
 nerv  
 Дата: Среда, 09.01.2013, 18:16 | 
 Сообщение № 52   
   
 
   
 
 
 Группа: Редакторы  
 
 
 Ранг: Обитатель  
 
 Сообщений:  431 
 
 
 
     
  
 
 
 ikki , объявляю тебе публичную благодарность за файл с примерами. Позаимствовал оттуда тестовые формулы. ИСТИНА ;ПОИСКПОЗ(КОДСИМВ(ПСТР(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) '[Книга1]Лист 3'!$E$16:E$17 +A2+b7 ikki , ты понял о чем я )
 
 
ikki , объявляю тебе публичную благодарность за файл с примерами. Позаимствовал оттуда тестовые формулы. ИСТИНА ;ПОИСКПОЗ(КОДСИМВ(ПСТР(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) '[Книга1]Лист 3'!$E$16:E$17 +A2+b7 ikki , ты понял о чем я )nerv Чебурашка стал символом олимпийских игр. А чего достиг ты?   YM  41001156540584 / WM  WMR R21924176233 https://github.com/nervgh/vba Сообщение отредактировал nerv  - Среда, 09.01.2013, 18:24 
   
  
 Ответить 
Сообщение ikki , объявляю тебе публичную благодарность за файл с примерами. Позаимствовал оттуда тестовые формулы. ИСТИНА ;ПОИСКПОЗ(КОДСИМВ(ПСТР(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) '[Книга1]Лист 3'!$E$16:E$17 +A2+b7 ikki , ты понял о чем я )Автор - nerv 09.01.2013  в 18:16   
 
 
 ikki  
 Дата: Среда, 09.01.2013, 18:27 | 
 Сообщение № 53   
   
 
   
 
 
 Группа: Друзья  
 
 
 Ранг: Старожил  
 
 Сообщений:  1906 
 
 
 
 
  Репутация:    
 504    
 ±  
 
  
 Замечаний:
 0%   ±  
       
  
 
 
 со скобками даже и не думай реги юзать.  со скобками даже и не думай реги юзать.  ikki помощь по Excel и VBA  
   
  
 Ответить 
Сообщение со скобками даже и не думай реги юзать.  Автор - ikki 09.01.2013  в 18:27   
 
 
 nerv  
 Дата: Среда, 09.01.2013, 18:54 | 
 Сообщение № 54   
   
 
   
 
 
 Группа: Редакторы  
 
 
 Ранг: Обитатель  
 
 Сообщений:  431 
 
 
 
     
  
 
 
 все зависит от результата, который необходимо получить. Например, можно так  (регами). Достает из глубины наружу.  все зависит от результата, который необходимо получить. Например, можно так  (регами). Достает из глубины наружу.  nerv Чебурашка стал символом олимпийских игр. А чего достиг ты?   YM  41001156540584 / WM  WMR R21924176233 https://github.com/nervgh/vba Сообщение отредактировал nerv  - Среда, 09.01.2013, 18:55 
   
  
 Ответить 
Сообщение все зависит от результата, который необходимо получить. Например, можно так  (регами). Достает из глубины наружу.  Автор - nerv 09.01.2013  в 18:54   
 
 
 Serge_007  
 Дата: Понедельник, 14.01.2013, 15:25 | 
 Сообщение № 55   
   
 
   
 
 
 Группа: Админы  
 
 
 Ранг: Местный житель  
 
 Сообщений:  16475 
 
 
 
 
  Репутация:    
 2750    
 ±  
 
  
 Замечаний:
    ±  
       
  
 
 
 Первый тест: Код
=ИНДЕКС({"";"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот "};ОСТАТ(ОТБР(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\ коп.;;")
 Первый тест: Код
=ИНДЕКС({"";"сто ";"двести ";"триста ";"четыреста ";"пятьсот ";"шестьсот ";"семьсот ";"восемьсот ";"девятьсот "};ОСТАТ(ОТБР(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 Ю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 
 
 
 
 
  Репутация:    
 2750    
 ±  
 
  
 Замечаний:
    ±  
       
  
 
 
 Сравнение: Код
=СУММ(ЕСЛИ(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))))
 Сравнение: Код
=СУММ(ЕСЛИ(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 Ю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 
 
 
 
 
  Репутация:    
 2750    
 ±  
 
  
 Замечаний:
    ±  
       
  
 
 
 На мой взгляд - отлично получилось, Спасибо Саш!  На мой взгляд - отлично получилось, Спасибо Саш!  Serge_007 ЮMoney :41001419691823 |  WMR :126292472390    
  
 Ответить 
Сообщение На мой взгляд - отлично получилось, Спасибо Саш!  Автор - Serge_007 14.01.2013  в 16:08   
 
 
 _Boroda_  
 Дата: Понедельник, 14.01.2013, 16:38 | 
 Сообщение № 58   
   
 
   
 
 
 Группа: Админы  
 
 
 Ранг: Местный житель  
 
 Сообщений:  16956 
 
 
 
 
  Репутация:    
 6630    
 ±  
 
  
 Замечаний:
    ±  
       
  
 
 
 А у меня в IE не светится, а в лисе нормально все 
 
 
А у меня в IE не светится, а в лисе нормально все _Boroda_ Скажи мне, кудесник, любимец ба’гов...  Платная помощь:  Boroda_Excel@mail.ru  Яндекс-деньги:  41001632713405  |  Webmoney:  R289877159277; Z102172301748; E177867141995    
  
 Ответить 
Сообщение А у меня в IE не светится, а в лисе нормально все Автор - _Boroda_ 14.01.2013  в 16:38   
 
 
 nerv  
 Дата: Понедельник, 14.01.2013, 16:56 | 
 Сообщение № 59   
   
 
   
 
 
 Группа: Редакторы  
 
 
 Ранг: Обитатель  
 
 Сообщений:  431 
 
 
 
     
  
 
 
 Цитата  (Serge_007 )
На мой взгляд - отлично получилось, Спасибо Саш!
Цитата  (_Boroda_ )
А у меня в IE не светится, а в лисе нормально все
https://raw.github.com/nervgh....init.js  был заблокирован из-за несоответствия типа MIME Цитата  (Serge_007 )
Следующей задачей будет сделать подсказку по функциям, при наведении на формулу курсора, как на фото выше постом. Я думаю это будет гораздо проще, чем подсветка синтаксиса
Цитата  (Serge_007 )
На мой взгляд - отлично получилось, Спасибо Саш!
Цитата  (_Boroda_ )
А у меня в IE не светится, а в лисе нормально все
https://raw.github.com/nervgh....init.js  был заблокирован из-за несоответствия типа MIME Цитата  (Serge_007 )
Следующей задачей будет сделать подсказку по функциям, при наведении на формулу курсора, как на фото выше постом. Я думаю это будет гораздо проще, чем подсветка синтаксиса
nerv Чебурашка стал символом олимпийских игр. А чего достиг ты?   YM  41001156540584 / WM  WMR R21924176233 https://github.com/nervgh/vba Сообщение отредактировал nerv  - Понедельник, 14.01.2013, 17:05 
   
  
 Ответить 
Сообщение Цитата  (Serge_007 )
На мой взгляд - отлично получилось, Спасибо Саш!
Цитата  (_Boroda_ )
А у меня в IE не светится, а в лисе нормально все
https://raw.github.com/nervgh....init.js  был заблокирован из-за несоответствия типа MIME Цитата  (Serge_007 )
Следующей задачей будет сделать подсказку по функциям, при наведении на формулу курсора, как на фото выше постом. Я думаю это будет гораздо проще, чем подсветка синтаксиса
Автор - nerv 14.01.2013  в 16:56   
 
 
 nerv  
 Дата: Вторник, 15.01.2013, 01:41 | 
 Сообщение № 60   
   
 
   
 
 
 Группа: Редакторы  
 
 
 Ранг: Обитатель  
 
 Сообщений:  431 
 
 
 
     
  
 
 
 думаю, надо шрифт в формулах поменять. Этот не читаем. Правьте стили ) 
 
 
думаю, надо шрифт в формулах поменять. Этот не читаем. Правьте стили ) nerv Чебурашка стал символом олимпийских игр. А чего достиг ты?   YM  41001156540584 / WM  WMR R21924176233 https://github.com/nervgh/vba    
  
 Ответить 
Сообщение думаю, надо шрифт в формулах поменять. Этот не читаем. Правьте стили ) Автор - nerv 15.01.2013  в 01:41