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

Вход

Регистрация

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

 

= Мир MS Excel/Записи участника (krosav4ig) - Мир MS Excel

Старая форма входа
Мир MS Excel » Записи участника » krosav4ig [2347]
Результаты поиска
krosav4ig Дата: Вторник, 26.11.2019, 08:48 | Сообщение № 2201 | Тема: Габариты двух ящиков
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
для целочисленных значений до 5 знаков - 308 316 306 290 символов без =

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

Сообщение отредактировал krosav4ig - Вторник, 26.11.2019, 21:56
 
Ответить
Сообщениедля целочисленных значений до 5 знаков - 308 316 306 290 символов без =
Автор - krosav4ig
Дата добавления - 26.11.2019 в 08:48
krosav4ig Дата: Вторник, 26.11.2019, 14:30 | Сообщение № 2202 | Тема: Габариты двух ящиков
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
вотжеж, строчн совсем забыл
Цитата MCH, 26.11.2019 в 13:35, в сообщении № 5 ()
у всех формула вида =выражение1 & "x" & выражение2 & "x" & выражение3
неа)

250 240 222 символа с ведущими нулями

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

Сообщение отредактировал krosav4ig - Среда, 27.11.2019, 12:30
 
Ответить
Сообщениевотжеж, строчн совсем забыл
Цитата MCH, 26.11.2019 в 13:35, в сообщении № 5 ()
у всех формула вида =выражение1 & "x" & выражение2 & "x" & выражение3
неа)

250 240 222 символа с ведущими нулями
Автор - krosav4ig
Дата добавления - 26.11.2019 в 14:30
krosav4ig Дата: Среда, 27.11.2019, 12:19 | Сообщение № 2203 | Тема: Габариты двух ящиков
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата Светлый, 27.11.2019 в 09:12, в сообщении № 12 ()
На исходных данных ошибок нет.
ну, если чисто под исходные данные, то уменя формула без ведущих нулей 245, с ведущими нулями 220

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

Сообщение отредактировал krosav4ig - Среда, 27.11.2019, 12:31
 
Ответить
Сообщение
Цитата Светлый, 27.11.2019 в 09:12, в сообщении № 12 ()
На исходных данных ошибок нет.
ну, если чисто под исходные данные, то уменя формула без ведущих нулей 245, с ведущими нулями 220
Автор - krosav4ig
Дата добавления - 27.11.2019 в 12:19
krosav4ig Дата: Среда, 27.11.2019, 13:04 | Сообщение № 2204 | Тема: Автоматическая нумерация по порядку 1.1; 1.2 и тд.
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Если таки надо многоуровневую нумерацию, в столбце B пишем уровень номера,
пустая ячейка или 0 в столбце B = перезапуск нумерации с 1
текстовое значение в столбце B = пропуск номера
Код
=ЕСЛИ(B7<"";ЕСЛИ(B7>1;ПРОСМОТР(;-1/($B$1:ИНДЕКС(B:B;СТРОКА()-1)<B7);$C$1:ИНДЕКС(C:C;СТРОКА()-1))&".";"")&СЧЁТЕСЛИ(ИНДЕКС(B:B;ПОИСКПОЗ(;-1/($B$1:ИНДЕКС(B:B;СТРОКА()-1)<B7))):B7;B7);"")
К сообщению приложен файл: 9305632.xlsx (12.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЕсли таки надо многоуровневую нумерацию, в столбце B пишем уровень номера,
пустая ячейка или 0 в столбце B = перезапуск нумерации с 1
текстовое значение в столбце B = пропуск номера
Код
=ЕСЛИ(B7<"";ЕСЛИ(B7>1;ПРОСМОТР(;-1/($B$1:ИНДЕКС(B:B;СТРОКА()-1)<B7);$C$1:ИНДЕКС(C:C;СТРОКА()-1))&".";"")&СЧЁТЕСЛИ(ИНДЕКС(B:B;ПОИСКПОЗ(;-1/($B$1:ИНДЕКС(B:B;СТРОКА()-1)<B7))):B7;B7);"")
Автор - krosav4ig
Дата добавления - 27.11.2019 в 13:04
krosav4ig Дата: Среда, 27.11.2019, 13:21 | Сообщение № 2205 | Тема: Сравнение ячеек с нулем в начале
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
в диспетчере имен имя Формат с формулой [vba]
Код
=ПОЛУЧИТЬ.ЯЧЕЙКУ(7;!A2)
[/vba] в столбце B формула [vba]
Код
=Формат
[/vba]условное форматирование по формуле
Код
=ПОИСКПОЗ(ТЕКСТ(A2;B2);ТЕКСТ(A$1:A1;B$1:B1);)
К сообщению приложен файл: 1886541.xlsm (9.6 Kb)

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

Сообщение отредактировал krosav4ig - Среда, 27.11.2019, 14:09
 
Ответить
Сообщениев диспетчере имен имя Формат с формулой [vba]
Код
=ПОЛУЧИТЬ.ЯЧЕЙКУ(7;!A2)
[/vba] в столбце B формула [vba]
Код
=Формат
[/vba]условное форматирование по формуле
Код
=ПОИСКПОЗ(ТЕКСТ(A2;B2);ТЕКСТ(A$1:A1;B$1:B1);)
Автор - krosav4ig
Дата добавления - 27.11.2019 в 13:21
krosav4ig Дата: Суббота, 30.11.2019, 00:23 | Сообщение № 2206 | Тема: Отражение информации на 3D-карте
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
для Excel 2013 все еще доступна для скачивания надстройка Power Map Preview, а пайчарты на плоской карте можно построить через Power View

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

Сообщение отредактировал krosav4ig - Суббота, 30.11.2019, 00:48
 
Ответить
Сообщениедля Excel 2013 все еще доступна для скачивания надстройка Power Map Preview, а пайчарты на плоской карте можно построить через Power View
Автор - krosav4ig
Дата добавления - 30.11.2019 в 00:23
krosav4ig Дата: Суббота, 30.11.2019, 11:53 | Сообщение № 2207 | Тема: Габариты двух ящиков
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
однако, можно эту формулу в 3092 символа впихнуть

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеоднако, можно эту формулу в 3092 символа впихнуть
Автор - krosav4ig
Дата добавления - 30.11.2019 в 11:53
krosav4ig Дата: Понедельник, 02.12.2019, 12:16 | Сообщение № 2208 | Тема: Габариты двух ящиков
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Мои не до конца вычищенные формулы, все искал решение короче, а эти до ума не довел
Код
=ЛЕВБ(ТЕКСТ(СУММ(НАИМЕНЬШИЙ(НАИМЕНЬШИЙ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ("1x"&СТРОЧН(A2:B2);"х";"x");"x";ПОВТОР(" ";99));99*{0:1:2:3}+1;99)*10^{0;6};{1:2:3:4}+{0;4})/10^{0;6}*10^{0:8:4:0};{1;4:1;6:7;8}))-2;ПОВТОР("0000x";3));14)

Код
=ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ТЕКСТ(СУММ(НАИМЕНЬШИЙ(НАИМЕНЬШИЙ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ("1x"&СТРОЧН(A2:B2);"х";"x");"x";ПОВТОР(" ";99));99*{0:1:2:3}+1;99)*10^{0;6};{1:2:3:4}+{0;4})/10^{0;6}*10^{0:10:5:0};{1;4:1;6:7;8}))-2;ПОВТОР("x00000";3));"x000";"x");"x00";"x");"x0";"x");2;20)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеМои не до конца вычищенные формулы, все искал решение короче, а эти до ума не довел
Код
=ЛЕВБ(ТЕКСТ(СУММ(НАИМЕНЬШИЙ(НАИМЕНЬШИЙ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ("1x"&СТРОЧН(A2:B2);"х";"x");"x";ПОВТОР(" ";99));99*{0:1:2:3}+1;99)*10^{0;6};{1:2:3:4}+{0;4})/10^{0;6}*10^{0:8:4:0};{1;4:1;6:7;8}))-2;ПОВТОР("0000x";3));14)

Код
=ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ТЕКСТ(СУММ(НАИМЕНЬШИЙ(НАИМЕНЬШИЙ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ("1x"&СТРОЧН(A2:B2);"х";"x");"x";ПОВТОР(" ";99));99*{0:1:2:3}+1;99)*10^{0;6};{1:2:3:4}+{0;4})/10^{0;6}*10^{0:10:5:0};{1;4:1;6:7;8}))-2;ПОВТОР("x00000";3));"x000";"x");"x00";"x");"x0";"x");2;20)
Автор - krosav4ig
Дата добавления - 02.12.2019 в 12:16
krosav4ig Дата: Четверг, 05.12.2019, 23:00 | Сообщение № 2209 | Тема: Подсчет остатков склада и средней цены
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
у меня как-то так получилось
средняя по остаткам
Код
=ОКРУГЛВВЕРХ(СРЗНАЧ(ПРОСМОТР(СТРОКА(ИНДЕКС(A:A;СУММ($D$2:D2)):ИНДЕКС(A:A;СУММ($A$1:A2)))-1;МУМНОЖ(--(СТРОКА($A$1:A2)>=ТРАНСП(СТРОКА($A$1:A2)));Ч(+A$1:A2));C$2:C$3));2)

средняя по продаже
Код
=ОКРУГЛВВЕРХ(ОТБР(СРЗНАЧ(ПРОСМОТР(СТРОКА(ИНДЕКС(A:A;СУММ($D$1:D1)+1):ИНДЕКС(A:A;СУММ($D$1:D1)+D2))-1;МУМНОЖ(--(СТРОКА($A$1:A2)>=ТРАНСП(СТРОКА($A$1:A2)));Ч(+A$1:A2));C$2:C$3));4);2)
К сообщению приложен файл: 0581693.xls (30.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеу меня как-то так получилось
средняя по остаткам
Код
=ОКРУГЛВВЕРХ(СРЗНАЧ(ПРОСМОТР(СТРОКА(ИНДЕКС(A:A;СУММ($D$2:D2)):ИНДЕКС(A:A;СУММ($A$1:A2)))-1;МУМНОЖ(--(СТРОКА($A$1:A2)>=ТРАНСП(СТРОКА($A$1:A2)));Ч(+A$1:A2));C$2:C$3));2)

средняя по продаже
Код
=ОКРУГЛВВЕРХ(ОТБР(СРЗНАЧ(ПРОСМОТР(СТРОКА(ИНДЕКС(A:A;СУММ($D$1:D1)+1):ИНДЕКС(A:A;СУММ($D$1:D1)+D2))-1;МУМНОЖ(--(СТРОКА($A$1:A2)>=ТРАНСП(СТРОКА($A$1:A2)));Ч(+A$1:A2));C$2:C$3));4);2)
Автор - krosav4ig
Дата добавления - 05.12.2019 в 23:00
krosav4ig Дата: Суббота, 07.12.2019, 14:33 | Сообщение № 2210 | Тема: Power Query - Formula.Firewall
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
кросс

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениекросс
Автор - krosav4ig
Дата добавления - 07.12.2019 в 14:33
krosav4ig Дата: Суббота, 07.12.2019, 23:25 | Сообщение № 2211 | Тема: Создание ссылки на диаграмму
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще два варианта
  • VBA Rollover отрабатывает при наведении мыши на ячейку с гиперссылкой


  • именованные диапазоны в качестве источника для диаграммы, отрабатывает при выделении ячейки в соответствующей строки


    Цитата gling, 07.12.2019 в 22:04, в сообщении № 2 ()
    Если листа, против которого стоит выбор, нет, то диаграмма остается та, которую смотрели последней.

    можно это как-то так обойти
    Код
    =ДВССЫЛ(ЕСЛИОШИБКА(Т(Ч(ДВССЫЛ("'"&ИНДЕКС(Перечень!$C$4:$C$8;ПОИСКПОЗ("P";Перечень!$D$4:$D$8;0))&"'!A1")))&"'"&ИНДЕКС(Перечень!$C$4:$C$8;ПОИСКПОЗ("P";Перечень!$D$4:$D$8;0))&"'!$F$3:$M$17";"A1"))
    и скрыть 1 строку или столбец A
    • К сообщению приложен файл: 0984464.xlsm (62.7 Kb)

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

    Сообщение отредактировал krosav4ig - Воскресенье, 08.12.2019, 02:07
     
    Ответить
    Сообщениееще два варианта
  • VBA Rollover отрабатывает при наведении мыши на ячейку с гиперссылкой


  • именованные диапазоны в качестве источника для диаграммы, отрабатывает при выделении ячейки в соответствующей строки


    Цитата gling, 07.12.2019 в 22:04, в сообщении № 2 ()
    Если листа, против которого стоит выбор, нет, то диаграмма остается та, которую смотрели последней.

    можно это как-то так обойти
    Код
    =ДВССЫЛ(ЕСЛИОШИБКА(Т(Ч(ДВССЫЛ("'"&ИНДЕКС(Перечень!$C$4:$C$8;ПОИСКПОЗ("P";Перечень!$D$4:$D$8;0))&"'!A1")))&"'"&ИНДЕКС(Перечень!$C$4:$C$8;ПОИСКПОЗ("P";Перечень!$D$4:$D$8;0))&"'!$F$3:$M$17";"A1"))
    и скрыть 1 строку или столбец A
    • Автор - krosav4ig
    Дата добавления - 07.12.2019 в 23:25
    krosav4ig Дата: Четверг, 12.12.2019, 20:54 | Сообщение № 2212 | Тема: Доступ к сглаженному графику по точкам.
    Группа: Друзья
    Ранг: Старожил
    Сообщений: 2347
    Репутация: 989 ±
    Замечаний: 0% ±

    Excel 2007,2010,2013
    Игра "Угадай степень" :)
    К сообщению приложен файл: 9626764.png (68.7 Kb) · 8366840.xlsm (78.8 Kb)

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

    Сообщение отредактировал krosav4ig - Четверг, 12.12.2019, 21:05
     
    Ответить
    СообщениеИгра "Угадай степень" :)
    Автор - krosav4ig
    Дата добавления - 12.12.2019 в 20:54
    krosav4ig Дата: Четверг, 12.12.2019, 22:32 | Сообщение № 2213 | Тема: Генерация QR кода по данным из таблицы
    Группа: Друзья
    Ранг: Старожил
    Сообщений: 2347
    Репутация: 989 ±
    Замечаний: 0% ±

    Excel 2007,2010,2013
    Найти API, в котором это реализовано
    Документация
    Пример

    email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
     
    Ответить
    СообщениеНайти API, в котором это реализовано
    Документация
    Пример
    Автор - krosav4ig
    Дата добавления - 12.12.2019 в 22:32
    krosav4ig Дата: Среда, 01.01.2020, 01:10 | Сообщение № 2214 | Тема: Вычислить "математический" текст
    Группа: Друзья
    Ранг: Старожил
    Сообщений: 2347
    Репутация: 989 ±
    Замечаний: 0% ±

    Excel 2007,2010,2013
    хоть к excel это не имеет отношения, но, все же, если еще актуально
    Nic70y, есть встроенная функция eval()
    https://www.geeksforgeeks.org/eval-in-python/
    https://towardsdatascience.com/python-....87db191
    реализации алгоритма сортировочной станции
    ну и https://habr.com/ru/post/273253/

    С Новым Годом!

    email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
     
    Ответить
    Сообщениехоть к excel это не имеет отношения, но, все же, если еще актуально
    Nic70y, есть встроенная функция eval()
    https://www.geeksforgeeks.org/eval-in-python/
    https://towardsdatascience.com/python-....87db191
    реализации алгоритма сортировочной станции
    ну и https://habr.com/ru/post/273253/

    С Новым Годом!
    Автор - krosav4ig
    Дата добавления - 01.01.2020 в 01:10
    krosav4ig Дата: Среда, 01.01.2020, 13:55 | Сообщение № 2215 | Тема: С Новым Годом!
    Группа: Друзья
    Ранг: Старожил
    Сообщений: 2347
    Репутация: 989 ±
    Замечаний: 0% ±

    Excel 2007,2010,2013
    С Новым Годом! Здоровья, счастья, успеха, благополучия!
    К сообщению приложен файл: 3666607.jpg (91.7 Kb)

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

    Сообщение отредактировал krosav4ig - Среда, 01.01.2020, 13:56
     
    Ответить
    СообщениеС Новым Годом! Здоровья, счастья, успеха, благополучия!
    Автор - krosav4ig
    Дата добавления - 01.01.2020 в 13:55
    krosav4ig Дата: Воскресенье, 12.01.2020, 23:52 | Сообщение № 2216 | Тема: Сравнение двух массивов с подсчетом совпадений построчно
    Группа: Друзья
    Ранг: Старожил
    Сообщений: 2347
    Репутация: 989 ±
    Замечаний: 0% ±

    Excel 2007,2010,2013
    Добрый вечер
    Для N8 массивная формула
    Код
    =СУММ(СЧЁТЕСЛИ(B8:G8;H8:M8))
    К сообщению приложен файл: 14-14_.xlsx (11.9 Kb)

    email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
     
    Ответить
    СообщениеДобрый вечер
    Для N8 массивная формула
    Код
    =СУММ(СЧЁТЕСЛИ(B8:G8;H8:M8))
    Автор - krosav4ig
    Дата добавления - 12.01.2020 в 23:52
    krosav4ig Дата: Суббота, 18.01.2020, 07:50 | Сообщение № 2217 | Тема: Excel самостоятельно генерирует разрывы страниц при экспорте
    Группа: Друзья
    Ранг: Старожил
    Сообщений: 2347
    Репутация: 989 ±
    Замечаний: 0% ±

    Excel 2007,2010,2013
    Цитата sentinel113, 16.01.2020 в 15:43, в сообщении № 1 ()
    Одна таблица на один лист.

    Печатный или лист Excel?
    Может проще будет разбросать таблицы по 1 на лист Excel и для каждого задать [vba]
    Код
    <x:FitHeight>1</x:FitHeight>
    [/vba]

    email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
     
    Ответить
    Сообщение
    Цитата sentinel113, 16.01.2020 в 15:43, в сообщении № 1 ()
    Одна таблица на один лист.

    Печатный или лист Excel?
    Может проще будет разбросать таблицы по 1 на лист Excel и для каждого задать [vba]
    Код
    <x:FitHeight>1</x:FitHeight>
    [/vba]
    Автор - krosav4ig
    Дата добавления - 18.01.2020 в 07:50
    krosav4ig Дата: Суббота, 15.02.2020, 15:22 | Сообщение № 2218 | Тема: СУММА ПРОПИСЬЮ на русском языкe доллар США
    Группа: Друзья
    Ранг: Старожил
    Сообщений: 2347
    Репутация: 989 ±
    Замечаний: 0% ±

    Excel 2007,2010,2013
    Добрый день
    Суммы и числа прописью
    Код
    =ПОДСТАВИТЬ(ПРОПНАЧ(ИНДЕКС({"";"стоz";"двестиz";"тристаz";"четырестаz";"пятьсотz";"шестьсотz";"семьсотz";"восемьсотz";"девятьсотz"};ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");1;1)+1)&ИНДЕКС(ЕСЛИ({"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}=1;{"десятьz";"одиннадцатьz";"двенадцатьz";"тринадцатьz";"четырнадцатьz";"пятнадцатьz";"шестнадцатьz";"семнадцатьz";"восемнадцатьz";"девятнадцатьz"};{"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}&{"";"одинz";"дваz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"});ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");2;1)+1;ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");3;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");1;3);"миллиард"&ВПР(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");3;1)*И(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");2;1)-1);{0;"овz":1;"z":2;"аz":5;"овz"};2);"")&ИНДЕКС({"";"стоz";"двестиz";"тристаz";"четырестаz";"пятьсотz";"шестьсотz";"семьсотz";"восемьсотz";"девятьсотz"};ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");4;1)+1)&ИНДЕКС(ЕСЛИ({"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}=1;{"десятьz";"одиннадцатьz";"двенадцатьz";"тринадцатьz";"четырнадцатьz";"пятнадцатьz";"шестнадцатьz";"семнадцатьz";"восемнадцатьz";"девятнадцатьz"};{"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}&{"";"одинz";"дваz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"});ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");5;1)+1;ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");6;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");4;3);"миллион"&ВПР(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");6;1)*И(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");5;1)-1);{0;"овz":1;"z":2;"аz":5;"овz"};2);"")&ИНДЕКС({"";"стоz";"двестиz";"тристаz";"четырестаz";"пятьсотz";"шестьсотz";"семьсотz";"восемьсотz";"девятьсотz"};ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");7;1)+1)&ИНДЕКС(ЕСЛИ({"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}=1;{"десятьz";"одиннадцатьz";"двенадцатьz";"тринадцатьz";"четырнадцатьz";"пятнадцатьz";"шестнадцатьz";"семнадцатьz";"восемнадцатьz";"девятнадцатьz"};{"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}&{"";"однаz";"двеz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"});ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");8;1)+1;ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");9;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");7;3);ВПР(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");9;1)*И(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");8;1)-1);{0;"тысячz":1;"тысячаz":2;"тысячиz":5;"тысячz"};2);"")&ИНДЕКС({"";"стоz";"двестиz";"тристаz";"четырестаz";"пятьсотz";"шестьсотz";"семьсотz";"восемьсотz";"девятьсотz"};ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");10;1)+1)&ИНДЕКС(ЕСЛИ({"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}=1;{"десятьz";"одиннадцатьz";"двенадцатьz";"тринадцатьz";"четырнадцатьz";"пятнадцатьz";"шестнадцатьz";"семнадцатьz";"восемнадцатьz";"девятнадцатьz"};{"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}&{"";"одинz";"дваz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"});ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");11;1)+1;ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");12;1)+1));"z";" ")&ЕСЛИ(ОТБР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00"));"";"Ноль ")&"доллар"&ВПР(ОСТАТ(МАКС(ОСТАТ(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");11;2)-11;100);9);10);{0;" ":1;"а ":4;"ов "};2)&ПРАВСИМВ(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");2)&" цент"&ВПР(ОСТАТ(МАКС(ОСТАТ(ПРАВСИМВ(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");2)-11;100);9);10);{0;"":1;"а":4;"ов"};2)

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

    Сообщение отредактировал krosav4ig - Суббота, 15.02.2020, 15:24
     
    Ответить
    СообщениеДобрый день
    Суммы и числа прописью
    Код
    =ПОДСТАВИТЬ(ПРОПНАЧ(ИНДЕКС({"";"стоz";"двестиz";"тристаz";"четырестаz";"пятьсотz";"шестьсотz";"семьсотz";"восемьсотz";"девятьсотz"};ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");1;1)+1)&ИНДЕКС(ЕСЛИ({"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}=1;{"десятьz";"одиннадцатьz";"двенадцатьz";"тринадцатьz";"четырнадцатьz";"пятнадцатьz";"шестнадцатьz";"семнадцатьz";"восемнадцатьz";"девятнадцатьz"};{"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}&{"";"одинz";"дваz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"});ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");2;1)+1;ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");3;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");1;3);"миллиард"&ВПР(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");3;1)*И(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");2;1)-1);{0;"овz":1;"z":2;"аz":5;"овz"};2);"")&ИНДЕКС({"";"стоz";"двестиz";"тристаz";"четырестаz";"пятьсотz";"шестьсотz";"семьсотz";"восемьсотz";"девятьсотz"};ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");4;1)+1)&ИНДЕКС(ЕСЛИ({"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}=1;{"десятьz";"одиннадцатьz";"двенадцатьz";"тринадцатьz";"четырнадцатьz";"пятнадцатьz";"шестнадцатьz";"семнадцатьz";"восемнадцатьz";"девятнадцатьz"};{"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}&{"";"одинz";"дваz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"});ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");5;1)+1;ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");6;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");4;3);"миллион"&ВПР(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");6;1)*И(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");5;1)-1);{0;"овz":1;"z":2;"аz":5;"овz"};2);"")&ИНДЕКС({"";"стоz";"двестиz";"тристаz";"четырестаz";"пятьсотz";"шестьсотz";"семьсотz";"восемьсотz";"девятьсотz"};ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");7;1)+1)&ИНДЕКС(ЕСЛИ({"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}=1;{"десятьz";"одиннадцатьz";"двенадцатьz";"тринадцатьz";"четырнадцатьz";"пятнадцатьz";"шестнадцатьz";"семнадцатьz";"восемнадцатьz";"девятнадцатьz"};{"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}&{"";"однаz";"двеz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"});ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");8;1)+1;ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");9;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");7;3);ВПР(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");9;1)*И(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");8;1)-1);{0;"тысячz":1;"тысячаz":2;"тысячиz":5;"тысячz"};2);"")&ИНДЕКС({"";"стоz";"двестиz";"тристаz";"четырестаz";"пятьсотz";"шестьсотz";"семьсотz";"восемьсотz";"девятьсотz"};ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");10;1)+1)&ИНДЕКС(ЕСЛИ({"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}=1;{"десятьz";"одиннадцатьz";"двенадцатьz";"тринадцатьz";"четырнадцатьz";"пятнадцатьz";"шестнадцатьz";"семнадцатьz";"восемнадцатьz";"девятнадцатьz"};{"":1:"двадцатьz":"тридцатьz":"сорокz":"пятьдесятz":"шестьдесятz":"семьдесятz":"восемьдесятz":"девяностоz"}&{"";"одинz";"дваz";"триz";"четыреz";"пятьz";"шестьz";"семьz";"восемьz";"девятьz"});ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");11;1)+1;ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");12;1)+1));"z";" ")&ЕСЛИ(ОТБР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00"));"";"Ноль ")&"доллар"&ВПР(ОСТАТ(МАКС(ОСТАТ(ПСТР(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");11;2)-11;100);9);10);{0;" ":1;"а ":4;"ов "};2)&ПРАВСИМВ(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");2)&" цент"&ВПР(ОСТАТ(МАКС(ОСТАТ(ПРАВСИМВ(ТЕКСТ(A1;"000000000000"&ПСТР(1/2;2;1)&"00");2)-11;100);9);10);{0;"":1;"а":4;"ов"};2)
    Автор - krosav4ig
    Дата добавления - 15.02.2020 в 15:22
    krosav4ig Дата: Суббота, 15.02.2020, 15:48 | Сообщение № 2219 | Тема: СУММА ПРОПИСЬЮ на русском языкe доллар США
    Группа: Друзья
    Ранг: Старожил
    Сообщений: 2347
    Репутация: 989 ±
    Замечаний: 0% ±

    Excel 2007,2010,2013
    формула массивная, вводится комбинацией Ctrl+Shift+Enter

    email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
     
    Ответить
    Сообщениеформула массивная, вводится комбинацией Ctrl+Shift+Enter
    Автор - krosav4ig
    Дата добавления - 15.02.2020 в 15:48
    krosav4ig Дата: Среда, 26.02.2020, 17:08 | Сообщение № 2220 | Тема: Подсчёт уникальных значений из разных диапазонов по условию
    Группа: Друзья
    Ранг: Старожил
    Сообщений: 2347
    Репутация: 989 ±
    Замечаний: 0% ±

    Excel 2007,2010,2013
    Вариант через Power Query + сводная таблица
    [vba]
    Код
    let
        Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
        #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Цвет1", type text}, {"Цвет2", type text}, {"Цвет3", type text}, {"Цвет4", type text}, {"Цвет5", type text}, {"Цвет6", type text}, {"Цвет7", type text}, {"Цвет8", type any}, {"Цвет9", type any}, {"Цвет10", type any}, {"Цвет11", type any}, {"Цвет12", type any}, {"Параметр1", Int64.Type}}),
        #"Другие столбцы с отмененным свертыванием" = Table.UnpivotOtherColumns(#"Измененный тип", {"Параметр1"}, "Атрибут", "Значение")
    in
        #"Другие столбцы с отмененным свертыванием"
    [/vba]
    К сообщению приложен файл: 4834178.zip (43.9 Kb)

    email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
     
    Ответить
    СообщениеВариант через Power Query + сводная таблица
    [vba]
    Код
    let
        Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
        #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Цвет1", type text}, {"Цвет2", type text}, {"Цвет3", type text}, {"Цвет4", type text}, {"Цвет5", type text}, {"Цвет6", type text}, {"Цвет7", type text}, {"Цвет8", type any}, {"Цвет9", type any}, {"Цвет10", type any}, {"Цвет11", type any}, {"Цвет12", type any}, {"Параметр1", Int64.Type}}),
        #"Другие столбцы с отмененным свертыванием" = Table.UnpivotOtherColumns(#"Измененный тип", {"Параметр1"}, "Атрибут", "Значение")
    in
        #"Другие столбцы с отмененным свертыванием"
    [/vba]
    Автор - krosav4ig
    Дата добавления - 26.02.2020 в 17:08
    Мир MS Excel » Записи участника » krosav4ig [2347]
    Поиск:

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