Записи участника (krosav4ig)

Страница 23 из 118
«
1
2
…
21
22
23
24
25
…
117
118
»

Результаты поиска

krosav4ig

Дата: Четверг, 25.12.2014, 19:39 | Сообщение № 441 | Тема: тарификация в сауне

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

еще вариант, если весь период нужно делить на тарифные зоны

К сообщению приложен файл: 4171233-.xlsx (26.0 Kb)

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

Сообщение отредактировал krosav4ig - Четверг, 25.12.2014, 19:58

Ответить

krosav4ig

Дата: Четверг, 25.12.2014, 20:45 | Сообщение № 442 | Тема: Номер буквы в алфавите

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

Не-а, утром 1–го

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

Ответить

krosav4ig

Дата: Четверг, 25.12.2014, 23:45 | Сообщение № 443 | Тема: Если число символов среднего слова есть четное число, то...

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

и еще один вариант

Код

=СЖПРОБЕЛЫ(ПСТР(" "&ПОДСТАВИТЬ(A5;" ";ПОВТОР(" ";999));1+999*2*ЕЧЁТН(МУМНОЖ(ДЛСТР(A5)-ПОИСК("_";ПОДСТАВИТЬ(A5;" ";"_";{1;2}));{1:-1}));999))

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

Сообщение отредактировал krosav4ig - Пятница, 26.12.2014, 00:30

Ответить

krosav4ig

Дата: Суббота, 27.12.2014, 02:21 | Сообщение № 444 | Тема: график по курсору

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

сделал для 2013. Как умею

К сообщению приложен файл: 7158306.xlsm (24.6 Kb)

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

Ответить

krosav4ig

Дата: Воскресенье, 28.12.2014, 00:49 | Сообщение № 445 | Тема: как минусовать процент

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

[offtop]

Цитата tommi116, 27.12.2014 в 23:48, в сообщении № 1

мину совать

улыбнуло :)[/offtop]

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

Ответить

krosav4ig

Дата: Понедельник, 29.12.2014, 11:36 | Сообщение № 446 | Тема: Номер буквы в алфавите

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

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

Сообщений: 2348

Репутация: 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

Ответить

krosav4ig

Дата: Понедельник, 29.12.2014, 11:57 | Сообщение № 447 | Тема: Номер буквы в алфавите

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

ага

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

Ответить

krosav4ig

Дата: Вторник, 30.12.2014, 12:47 | Сообщение № 448 | Тема: Как сложить минуты и секунды

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

С Наступающим!
еще вариант

Код

=ОТБР(СУММ(ЛЕВБ(E6:E17;ПОИСК(" ";E6:E17)-1)/МУМНОЖ(Ч(ЕСЛИ(1-ЕОШ(ПОИСК(" "&{"ч";"м";"с"};E6:E17));60^{0;1;2}));{1:1:1})))

формула тоже массивная

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

Сообщение отредактировал krosav4ig - Вторник, 30.12.2014, 12:53

Ответить

krosav4ig

Дата: Вторник, 30.12.2014, 12:50 | Сообщение № 449 | Тема: Номер буквы в алфавите

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

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

79 символов.

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

75 символов.

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

Ответить

krosav4ig

Дата: Среда, 31.12.2014, 03:21 | Сообщение № 450 | Тема: Красивые числа на сайте

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

кругленькая циферка

К сообщению приложен файл: 6022302.jpg (16.0 Kb)

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

Ответить

krosav4ig

Дата: Пятница, 02.01.2015, 02:36 | Сообщение № 451 | Тема: С Новым Годом!

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

Поздравляю всех с Новым Годом!
Счастья, здоровья, успехов, исполнения всех желаний!!!

К сообщению приложен файл: 3033687.jpg (51.4 Kb)

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

Ответить

krosav4ig

Дата: Суббота, 03.01.2015, 04:15 | Сообщение № 452 | Тема: Автоматическое создание таблицы

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

еще вариант с использованием надстройки Power Query
заполняем таблицы городов на 1м листе, жмем Ctrl+Alt+F5 и получаем готовую таблицу Все (в столбцах B:E Листа1) и таблицы городов на соответствующих листах

К сообщению приложен файл: 010115-1-.xlsx (39.3 Kb)

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

Ответить

krosav4ig

Дата: Среда, 07.01.2015, 22:48 | Сообщение № 453 | Тема: Автоматическое создание таблицы

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

Наконец-то дополз до компа

Переписал запрос Все, теперь он выводит сформированную вашу таблицу1 на лист Все (данные берутся из таблиц на Листе1), добавил фильтрацию в запросы по городам.

К сообщению приложен файл: 010115-2-.xlsx (44.4 Kb)

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

Ответить

krosav4ig

Дата: Среда, 07.01.2015, 23:12 | Сообщение № 454 | Тема: Автонумерация

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

а у мну так получилось
для E4

Код

=ЕСЛИОШИБКА(СУММ(A4^{0;1})-1;"")

или

Код

=ЕСЛИОШИБКА(МУМНОЖ(A4;1);"")

или

Код

=ЕСЛИ(A4;СЧЁТ($A$3:A4);"")

для I4

Код

=СЧЁТ($A$3:A4)

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

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

Ответить

krosav4ig

Дата: Пятница, 09.01.2015, 15:08 | Сообщение № 455 | Тема: Функции (UDF) "Курс_Доллара" и "Курс_Евро"

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

вот функция для получения котировок на металлы Сбербанка
1 атрибут функции обязательный - код металла (1 - золото, 6 - серебро, 28 - платина, 29 - палладий)
2 атрибут необязательный- тип курса банка ("buy" , "sell", по умолчанию "buy")
3 атрибут необязательный - дата в числовом или текстовом формате (по умолчанию текущая системная дата) в качестве разделителей между числами дня, месяца и года может использоваться любой символ из " " , "/" , "." , "-" , "," , запись даты в формате "9 янв 15" и "9 января 2015" тоже корректно распознаются
4 атрибут необязательный - код региона (по умолчанию 223 - Москва)
[vba]

Код

Function МетСБР#(CodeMet%, Optional quote$ = "buy", Optional dDate As Date, Optional region% = 223)
        Dim sc: Set sc = CreateObject("ScriptControl"):dDate = IIf(dDate, dDate, Date):sc.Language = "JScript"
        sc.AddCode "function getProperty(jsonObj, propertyName) {return jsonObj[propertyName];}"
        sc.AddCode "function getKeys(jsonObj) {var keys=new Array();for(var i in jsonObj){keys.push(i);}return keys;}"
        strURL = "http://sbrf.ru/common/js/get_quote_values.php?&inf_block=" & region & "&group=2&_date_afrom114=" _
                  & dDate & "&_date_ato114=" & dDate & "&qid[]=" & CodeMet
        Dim XMLhttp: Set XMLhttp = CreateObject("msxml2.xmlhttp"): XMLhttp.Open "POST", strURL, 0: XMLhttp.send
        МетСБР = sc.Run("getProperty", sc.Run("getProperty", sc.Run("getProperty", _
                  sc.Run("getProperty", sc.Eval("(" & XMLhttp.responsetext & ")"), CodeMet), _
                  "quotes"), sc.Run("getKeys", sc.Run("getProperty", sc.Run("getProperty", _
                  sc.Eval("(" & XMLhttp.responsetext & ")"), CodeMet), "quotes"))), quote)
       Set XMLhttp = Nothing: Set sc = Nothing
End Function

[/vba]

Код

[/vba]krosav4ig

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

Сообщение отредактировал krosav4ig - Суббота, 10.01.2015, 01:30

Ответить

Сообщениевот функция для получения котировок на металлы Сбербанка
1 атрибут функции обязательный - код металла (1 - золото, 6 - серебро, 28 - платина, 29 - палладий)
2 атрибут необязательный- тип курса банка ("buy" , "sell", по умолчанию "buy")
3 атрибут необязательный - дата в числовом или текстовом формате (по умолчанию текущая системная дата) в качестве разделителей между числами дня, месяца и года может использоваться любой символ из " " , "/" , "." , "-" , "," , запись даты в формате "9 янв 15" и "9 января 2015" тоже корректно распознаются
4 атрибут необязательный - код региона (по умолчанию 223 - Москва)
[vba]

Код

[/vba]

Автор - krosav4ig
Дата добавления - 09.01.2015 в 15:08

krosav4ig

Дата: Суббота, 10.01.2015, 22:41 | Сообщение № 456 | Тема: Умножение чисел через Слэш ( / )

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

еще один вариант до кучи

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

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

Ответить

krosav4ig

Дата: Воскресенье, 11.01.2015, 00:57 | Сообщение № 457 | Тема: Копирование только числовых значений при условии.

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

еще вариант, без циклов
[vba]

Код

Sub djon2012()
     Dim SH1 As Worksheet, SH2 As Worksheet, rng As Range
     Set SH1 = ThisWorkbook.Sheets("Лист2")
     Set SH2 = ThisWorkbook.Sheets("Лист3")
     Application.ScreenUpdating = 0
     Do: With SH1.[DA:DA].SpecialCells(xlCellTypeFormulas, 1).Offset(, 1)
         .FormulaR1C1 = "=IF(RC[-1]=6,RC[-1])": On Error Resume Next
         Set rng = .SpecialCells(xlCellTypeFormulas, 1)
         If rng Is Nothing Then .ClearContents: Exit Do Else: Intersect(SH1.[M:CZ], rng.EntireRow).Copy
         SH2.[C2].Offset(Application.CountA(SH2.[C:C])).PasteSpecial Paste:=xlPasteAll, Operation:=2
         .ClearContents: Sheets.Select: SH1.[A1].Select: SH1.Select:
     End With: Loop Until True
     Application.ScreenUpdating = 1
End Sub

[/vba]

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

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

Ответить

krosav4ig

Дата: Понедельник, 12.01.2015, 10:57 | Сообщение № 458 | Тема: Дата в таблице соответствовала году назад

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

[offtop]

Цитата Pelena, 12.01.2015 в 08:52, в сообщении № 3

Немного короче

Ога, совсем чуть-чуть :)[/offtop]

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

Ответить

krosav4ig

Дата: Понедельник, 12.01.2015, 16:34 | Сообщение № 459 | Тема: Сортировка в таблице

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

как вариант, сводная по доп. столбцам

К сообщению приложен файл: 5202612.xlsx (37.3 Kb)

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

Сообщение отредактировал krosav4ig - Понедельник, 12.01.2015, 16:47

Ответить

krosav4ig

Дата: Понедельник, 12.01.2015, 18:02 | Сообщение № 460 | Тема: Сортировка в таблице

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

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

Сообщений: 2348

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

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

Excel 2007,2010,2013

vygov, можно потанцевать с бубном

разъединяем заголовки фирм, пишем формулу в доп. строку (в примере 22я)

Код

=СУММ(ИНДЕКС($C21:$N21;;СЧЁТЕСЛИ($B3:B3;C3)*3+1):ИНДЕКС($C21:$N21;;СЧЁТЕСЛИ($B3:B3;C3)*3+3))

выделяем С2:N22 и сортируем диапазон по столбцам: 1 уровень - по 22й строке по убыванию, 2 уровень - по 3й по возрастанию

К сообщению приложен файл: 5202612-1-.xlsx (12.5 Kb)

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

Сообщение отредактировал krosav4ig - Понедельник, 12.01.2015, 18:02

Ответить

Страница 23 из 118
«
1
2
…
21
22
23
24
25
…
117
118
»