Результаты поиска
krosav4ig
Дата: Среда, 28.11.2018, 17:49 |
Сообщение № 1701 | Тема: Нахождение среднего значения суммы из диапазона значений??
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
MAXIMUS_GREEK , допустим, имеем 4 ячейки, в одной ячейке 100%, в остальных трех н/д. В вашем понимании срелнее по этим ячейкам должно быть 100% или 25%? Если все три ячейки = н/д, то среднее должно быть 0 или н/д?
MAXIMUS_GREEK , допустим, имеем 4 ячейки, в одной ячейке 100%, в остальных трех н/д. В вашем понимании срелнее по этим ячейкам должно быть 100% или 25%? Если все три ячейки = н/д, то среднее должно быть 0 или н/д?krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение MAXIMUS_GREEK , допустим, имеем 4 ячейки, в одной ячейке 100%, в остальных трех н/д. В вашем понимании срелнее по этим ячейкам должно быть 100% или 25%? Если все три ячейки = н/д, то среднее должно быть 0 или н/д?Автор - krosav4ig Дата добавления - 28.11.2018 в 17:49
krosav4ig
Дата: Среда, 28.11.2018, 18:32 |
Сообщение № 1702 | Тема: Отмена проверки правописания (макрос)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
пробуйте так [vba]Код
Sub Macro1() With ActiveDocument .ShowGrammaticalErrors = False .ShowSpellingErrors = False .GrammarChecked = True .Saved = True End With End Sub
[/vba]
пробуйте так [vba]Код
Sub Macro1() With ActiveDocument .ShowGrammaticalErrors = False .ShowSpellingErrors = False .GrammarChecked = True .Saved = True End With End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение пробуйте так [vba]Код
Sub Macro1() With ActiveDocument .ShowGrammaticalErrors = False .ShowSpellingErrors = False .GrammarChecked = True .Saved = True End With End Sub
[/vba] Автор - krosav4ig Дата добавления - 28.11.2018 в 18:32
krosav4ig
Дата: Четверг, 29.11.2018, 15:06 |
Сообщение № 1703 | Тема: Нахождение среднего значения суммы из диапазона значений??
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
для E5 формулаКод
=СРЗНАЧA(E6:ИНДЕКС(E:E;СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:A999;)))
для E110 массивная формулаКод
=СУММПРОИЗВ(СУММЕСЛИ($A$5:$A109;A110+1-СТРОКА(A$1:ИНДЕКС(A:A;A110));E$5:E109))
Должны (вроде) работать везде, но андроиде по непонятным причинам обе формулы ругаются на цикличность, на одной машине (если можно это так назвать - Xin XP SP3, Excel 2007) намертво вешают Excel вот так работают и на андроиде и на той машине для E5Код
=СРЗНАЧА(E6:ИНДЕКС(E$1:ИНДЕКС(E:E;ПОИСКПОЗ(МАКС(A:A);A:A;)-1);СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:ИНДЕКС(A:A;ПОИСКПОЗ(МАКС(A:A);A:A;)-1);)))
для E110 с немассивным вводомКод
=СУММПРОИЗВ(($A$5:$A109=A109+1-СТОЛБЕЦ($A1:ИНДЕКС(1:1;A109)))*Ч(+E$5:E109))/A109
для E5 формулаКод
=СРЗНАЧA(E6:ИНДЕКС(E:E;СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:A999;)))
для E110 массивная формулаКод
=СУММПРОИЗВ(СУММЕСЛИ($A$5:$A109;A110+1-СТРОКА(A$1:ИНДЕКС(A:A;A110));E$5:E109))
Должны (вроде) работать везде, но андроиде по непонятным причинам обе формулы ругаются на цикличность, на одной машине (если можно это так назвать - Xin XP SP3, Excel 2007) намертво вешают Excel вот так работают и на андроиде и на той машине для E5Код
=СРЗНАЧА(E6:ИНДЕКС(E$1:ИНДЕКС(E:E;ПОИСКПОЗ(МАКС(A:A);A:A;)-1);СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:ИНДЕКС(A:A;ПОИСКПОЗ(МАКС(A:A);A:A;)-1);)))
для E110 с немассивным вводомКод
=СУММПРОИЗВ(($A$5:$A109=A109+1-СТОЛБЕЦ($A1:ИНДЕКС(1:1;A109)))*Ч(+E$5:E109))/A109
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 29.11.2018, 15:13
Ответить
Сообщение для E5 формулаКод
=СРЗНАЧA(E6:ИНДЕКС(E:E;СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:A999;)))
для E110 массивная формулаКод
=СУММПРОИЗВ(СУММЕСЛИ($A$5:$A109;A110+1-СТРОКА(A$1:ИНДЕКС(A:A;A110));E$5:E109))
Должны (вроде) работать везде, но андроиде по непонятным причинам обе формулы ругаются на цикличность, на одной машине (если можно это так назвать - Xin XP SP3, Excel 2007) намертво вешают Excel вот так работают и на андроиде и на той машине для E5Код
=СРЗНАЧА(E6:ИНДЕКС(E$1:ИНДЕКС(E:E;ПОИСКПОЗ(МАКС(A:A);A:A;)-1);СТРОКА(E4)+ПОИСКПОЗ(A5+1;A6:ИНДЕКС(A:A;ПОИСКПОЗ(МАКС(A:A);A:A;)-1);)))
для E110 с немассивным вводомКод
=СУММПРОИЗВ(($A$5:$A109=A109+1-СТОЛБЕЦ($A1:ИНДЕКС(1:1;A109)))*Ч(+E$5:E109))/A109
Автор - krosav4ig Дата добавления - 29.11.2018 в 15:06
krosav4ig
Дата: Суббота, 01.12.2018, 00:20 |
Сообщение № 1704 | Тема: SpecialCells для одной ячейки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
StoTisteg , для одной ячейки SpecialCells работает так же, как и F5>Выделить, и как поиск и замена
StoTisteg , для одной ячейки SpecialCells работает так же, как и F5>Выделить, и как поиск и заменаkrosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение StoTisteg , для одной ячейки SpecialCells работает так же, как и F5>Выделить, и как поиск и заменаАвтор - krosav4ig Дата добавления - 01.12.2018 в 00:20
krosav4ig
Дата: Воскресенье, 02.12.2018, 00:25 |
Сообщение № 1705 | Тема: Как добавить кнопку - в контекстное меню
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
ну дык ViewDocumentMap [vba]Код
CommandBars("text").Controls.Add(1, 1714, , , True).FaceId = 1714
[/vba]
ну дык ViewDocumentMap [vba]Код
CommandBars("text").Controls.Add(1, 1714, , , True).FaceId = 1714
[/vba]krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение ну дык ViewDocumentMap [vba]Код
CommandBars("text").Controls.Add(1, 1714, , , True).FaceId = 1714
[/vba]Автор - krosav4ig Дата добавления - 02.12.2018 в 00:25
krosav4ig
Дата: Воскресенье, 02.12.2018, 00:36 |
Сообщение № 1706 | Тема: Объединение в выпадающем списке 2х ячеек
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Maksimys07 , нечто подобное можно изобразить с помощью условного форматирования, правда, весьма коряво.
Maksimys07 , нечто подобное можно изобразить с помощью условного форматирования, правда, весьма коряво.krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Maksimys07 , нечто подобное можно изобразить с помощью условного форматирования, правда, весьма коряво.Автор - krosav4ig Дата добавления - 02.12.2018 в 00:36
krosav4ig
Дата: Вторник, 04.12.2018, 04:30 |
Сообщение № 1707 | Тема: Добавление шаблона даты
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
у мну вот так получилось [vba]Код
{quote \«__\»\ {set m {date \@ M}}{if m = 5 мая {date \@ MMM}}{if m = 1 аря {if m = 2 раля {if m = 3 та {if m = 4 еля {if m < 8 я {if m = 8 уста "{if m = 9 тя {if m = 10 я {if m = 12 а}}}бря}}}}}}\ {date \@ "yyyy г.}}
[/vba]
у мну вот так получилось [vba]Код
{quote \«__\»\ {set m {date \@ M}}{if m = 5 мая {date \@ MMM}}{if m = 1 аря {if m = 2 раля {if m = 3 та {if m = 4 еля {if m < 8 я {if m = 8 уста "{if m = 9 тя {if m = 10 я {if m = 12 а}}}бря}}}}}}\ {date \@ "yyyy г.}}
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение у мну вот так получилось [vba]Код
{quote \«__\»\ {set m {date \@ M}}{if m = 5 мая {date \@ MMM}}{if m = 1 аря {if m = 2 раля {if m = 3 та {if m = 4 еля {if m < 8 я {if m = 8 уста "{if m = 9 тя {if m = 10 я {if m = 12 а}}}бря}}}}}}\ {date \@ "yyyy г.}}
[/vba] Автор - krosav4ig Дата добавления - 04.12.2018 в 04:30
krosav4ig
Дата: Вторник, 04.12.2018, 21:38 |
Сообщение № 1708 | Тема: Макрос по поиску и выделению найденных слов
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
MulleR , не совсем понятно, что и как должно выделяться. Выделите вручную в примере как должно получиться
MulleR , не совсем понятно, что и как должно выделяться. Выделите вручную в примере как должно получитьсяkrosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение MulleR , не совсем понятно, что и как должно выделяться. Выделите вручную в примере как должно получитьсяАвтор - krosav4ig Дата добавления - 04.12.2018 в 21:38
krosav4ig
Дата: Вторник, 04.12.2018, 23:50 |
Сообщение № 1709 | Тема: Добавление шаблона даты
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Maksimys07 , вам нужно поля, приведенные мной и Александром добавить в коллекцию экспресс-блоков. Для этого нужно выделить поле, жмакнуть по кнопке на ленте Вставка->Текст->Экспресс-блоки и выбрать Сохранить выделенный фрагмент в коллекцию экспресс-блоков. В появившемся окне вписать имя для этого блока, категорию (по желанию) и нажать Ок. После этого этот блок можно вставлять жмакая по кнопке Экспресс-блоки и выбирая его из списка.
Maksimys07 , вам нужно поля, приведенные мной и Александром добавить в коллекцию экспресс-блоков. Для этого нужно выделить поле, жмакнуть по кнопке на ленте Вставка->Текст->Экспресс-блоки и выбрать Сохранить выделенный фрагмент в коллекцию экспресс-блоков. В появившемся окне вписать имя для этого блока, категорию (по желанию) и нажать Ок. После этого этот блок можно вставлять жмакая по кнопке Экспресс-блоки и выбирая его из списка.krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Вторник, 04.12.2018, 23:53
Ответить
Сообщение Maksimys07 , вам нужно поля, приведенные мной и Александром добавить в коллекцию экспресс-блоков. Для этого нужно выделить поле, жмакнуть по кнопке на ленте Вставка->Текст->Экспресс-блоки и выбрать Сохранить выделенный фрагмент в коллекцию экспресс-блоков. В появившемся окне вписать имя для этого блока, категорию (по желанию) и нажать Ок. После этого этот блок можно вставлять жмакая по кнопке Экспресс-блоки и выбирая его из списка.Автор - krosav4ig Дата добавления - 04.12.2018 в 23:50
krosav4ig
Дата: Среда, 05.12.2018, 01:09 |
Сообщение № 1710 | Тема: Кошмар на улице вязов :)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение уж не tcpvpn ли это?Автор - krosav4ig Дата добавления - 05.12.2018 в 01:09
krosav4ig
Дата: Четверг, 06.12.2018, 00:15 |
Сообщение № 1711 | Тема: Условное форматирование выходных дней в графике
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
для выходных СБ, ВС и праздников можно проще Код
=РАБДЕНЬ(B$7-1;1;$AI$1:$AI$14)>B$7
для выходных СБ, ВС и праздников можно проще Код
=РАБДЕНЬ(B$7-1;1;$AI$1:$AI$14)>B$7
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение для выходных СБ, ВС и праздников можно проще Код
=РАБДЕНЬ(B$7-1;1;$AI$1:$AI$14)>B$7
Автор - krosav4ig Дата добавления - 06.12.2018 в 00:15
krosav4ig
Дата: Четверг, 06.12.2018, 02:01 |
Сообщение № 1712 | Тема: Importxml как прописать xPath для собра цен
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
как-то такКод
=IMPORTXML("https://www.taen.ru/catalog/vanny/vanny-akrilovye/roca-easy-1707545-bez-gidromassazha/";"//*[@itemprop='price']/@content")
как-то такКод
=IMPORTXML("https://www.taen.ru/catalog/vanny/vanny-akrilovye/roca-easy-1707545-bez-gidromassazha/";"//*[@itemprop='price']/@content")
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение как-то такКод
=IMPORTXML("https://www.taen.ru/catalog/vanny/vanny-akrilovye/roca-easy-1707545-bez-gidromassazha/";"//*[@itemprop='price']/@content")
Автор - krosav4ig Дата добавления - 06.12.2018 в 02:01
krosav4ig
Дата: Суббота, 08.12.2018, 17:32 |
Сообщение № 1713 | Тема: Как добавить кнопку - в контекстное меню
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
[vba]Код
Sub Remove_() On Error Resume Next With CommandBars("Text") Do .FindControl(, 1).Delete Loop Until Err.Number End With End Sub
[/vba]
[vba]Код
Sub Remove_() On Error Resume Next With CommandBars("Text") Do .FindControl(, 1).Delete Loop Until Err.Number End With End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение [vba]Код
Sub Remove_() On Error Resume Next With CommandBars("Text") Do .FindControl(, 1).Delete Loop Until Err.Number End With End Sub
[/vba] Автор - krosav4ig Дата добавления - 08.12.2018 в 17:32
krosav4ig
Дата: Воскресенье, 09.12.2018, 02:37 |
Сообщение № 1714 | Тема: Отправка письма когда значения в одной ячейке выше чем в дру
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
ТАМИК , вы бы хоть табличку показали
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение ТАМИК , вы бы хоть табличку показалиАвтор - krosav4ig Дата добавления - 09.12.2018 в 02:37
krosav4ig
Дата: Понедельник, 10.12.2018, 23:02 |
Сообщение № 1715 | Тема: Подсчет количества одинаковых ячеек
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Здравствуйте Добавляем заголовок столбца и строим сводную
Здравствуйте Добавляем заголовок столбца и строим сводную krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Здравствуйте Добавляем заголовок столбца и строим сводную Автор - krosav4ig Дата добавления - 10.12.2018 в 23:02
krosav4ig
Дата: Среда, 12.12.2018, 17:10 |
Сообщение № 1716 | Тема: Принудительное обновление Importxml
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Я тут немного поизвращался над кодом [vba]Код
function RefreshImports() { var s=SpreadsheetApp, e=s.getUi(), t=e.prompt("","Укажите Spreadsheet id",e.ButtonSet.OK_CANCEL); if(t.getSelectedButton()==e.Button.OK) { var r=t.getResponseText(), n=LockService.getScriptLock(); n.tryLock(5e3) && (SpreadsheetApp.openById(r).getSheets().forEach(function(t){ var r=/.*[^a-z0-9]import(?:xml|data|feed|html|range)\(.*/gi, n=[t.getDataRange()].map(function(e){ return {r:e.getRow(),c:e.getColumn(),f:e.getFormulas()} })[0], e = [].concat.apply([],n.f.map(function(e,r){ return e.map(function(e,t){ return {f:e,r:r+n.c,c:t+n.r}}) })).filter(function(e){return -1!==e.f.search(r)}); e.forEach(function(e){t.getRange(e.r,e.c).setFormula("")}); Utilities.sleep(5e3); e.forEach(function(e){t.getRange(e.r,e.c).setFormula(e.f)}) }),s.flush(),n.releaseLock()) } }
[/vba]
Я тут немного поизвращался над кодом [vba]Код
function RefreshImports() { var s=SpreadsheetApp, e=s.getUi(), t=e.prompt("","Укажите Spreadsheet id",e.ButtonSet.OK_CANCEL); if(t.getSelectedButton()==e.Button.OK) { var r=t.getResponseText(), n=LockService.getScriptLock(); n.tryLock(5e3) && (SpreadsheetApp.openById(r).getSheets().forEach(function(t){ var r=/.*[^a-z0-9]import(?:xml|data|feed|html|range)\(.*/gi, n=[t.getDataRange()].map(function(e){ return {r:e.getRow(),c:e.getColumn(),f:e.getFormulas()} })[0], e = [].concat.apply([],n.f.map(function(e,r){ return e.map(function(e,t){ return {f:e,r:r+n.c,c:t+n.r}}) })).filter(function(e){return -1!==e.f.search(r)}); e.forEach(function(e){t.getRange(e.r,e.c).setFormula("")}); Utilities.sleep(5e3); e.forEach(function(e){t.getRange(e.r,e.c).setFormula(e.f)}) }),s.flush(),n.releaseLock()) } }
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Среда, 12.12.2018, 19:37
Ответить
Сообщение Я тут немного поизвращался над кодом [vba]Код
function RefreshImports() { var s=SpreadsheetApp, e=s.getUi(), t=e.prompt("","Укажите Spreadsheet id",e.ButtonSet.OK_CANCEL); if(t.getSelectedButton()==e.Button.OK) { var r=t.getResponseText(), n=LockService.getScriptLock(); n.tryLock(5e3) && (SpreadsheetApp.openById(r).getSheets().forEach(function(t){ var r=/.*[^a-z0-9]import(?:xml|data|feed|html|range)\(.*/gi, n=[t.getDataRange()].map(function(e){ return {r:e.getRow(),c:e.getColumn(),f:e.getFormulas()} })[0], e = [].concat.apply([],n.f.map(function(e,r){ return e.map(function(e,t){ return {f:e,r:r+n.c,c:t+n.r}}) })).filter(function(e){return -1!==e.f.search(r)}); e.forEach(function(e){t.getRange(e.r,e.c).setFormula("")}); Utilities.sleep(5e3); e.forEach(function(e){t.getRange(e.r,e.c).setFormula(e.f)}) }),s.flush(),n.releaseLock()) } }
[/vba] Автор - krosav4ig Дата добавления - 12.12.2018 в 17:10
krosav4ig
Дата: Четверг, 13.12.2018, 00:04 |
Сообщение № 1717 | Тема: Рассчитать конец работы с учетом праздников (дата, время)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Немассивная монстроформула (в диспетчере имен)Код
=ЕСЛИ(BB<0;AA+D3+(ЧАС(AA+D3)>12)/24;РАБДЕНЬ(AA;1+ОТБР(BB/"8:");ПР)+"9:"+ОСТАТ(BB;"8:")+(ОСТАТ(BB;"8:")>4/24)/24)
[vba]Код
AA =ЕСЛИ(РАБДЕНЬ(!E3-1;1;ПР)>!E3;РАБДЕНЬ(!E3;1;ПР)+"9:";!E3)
[/vba] [vba]Код
BB =!D3-"18:"+ОСТАТ(AA;1)+(ЧАС(AA)<14)/24
[/vba] [vba][/vba]
Немассивная монстроформула (в диспетчере имен)Код
=ЕСЛИ(BB<0;AA+D3+(ЧАС(AA+D3)>12)/24;РАБДЕНЬ(AA;1+ОТБР(BB/"8:");ПР)+"9:"+ОСТАТ(BB;"8:")+(ОСТАТ(BB;"8:")>4/24)/24)
[vba]Код
AA =ЕСЛИ(РАБДЕНЬ(!E3-1;1;ПР)>!E3;РАБДЕНЬ(!E3;1;ПР)+"9:";!E3)
[/vba] [vba]Код
BB =!D3-"18:"+ОСТАТ(AA;1)+(ЧАС(AA)<14)/24
[/vba] [vba][/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 13.12.2018, 00:06
Ответить
Сообщение Немассивная монстроформула (в диспетчере имен)Код
=ЕСЛИ(BB<0;AA+D3+(ЧАС(AA+D3)>12)/24;РАБДЕНЬ(AA;1+ОТБР(BB/"8:");ПР)+"9:"+ОСТАТ(BB;"8:")+(ОСТАТ(BB;"8:")>4/24)/24)
[vba]Код
AA =ЕСЛИ(РАБДЕНЬ(!E3-1;1;ПР)>!E3;РАБДЕНЬ(!E3;1;ПР)+"9:";!E3)
[/vba] [vba]Код
BB =!D3-"18:"+ОСТАТ(AA;1)+(ЧАС(AA)<14)/24
[/vba] [vba][/vba] Автор - krosav4ig Дата добавления - 13.12.2018 в 00:04
krosav4ig
Дата: Четверг, 13.12.2018, 03:43 |
Сообщение № 1718 | Тема: Рассчитать конец работы с учетом праздников (дата, время)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
за место того, чтобы получилось 14 часов 10 минут, получается 15 часов 10 минут.
исправил, в ячейкеКод
=ЕСЛИ(BB<0;AA+D3+((ЧАС(AA+D3)>12)-(ЧАС(AA)>13))/24;РАБДЕНЬ(AA;1+ОТБР(BB/"8:");ПР)+"9:"+ОСТАТ(BB;"8:")+(ОСТАТ(BB;"8:")>4/24)/24)
работы продолжается вечером до половины 7-ого.
тоже, вроде, само собой отпало (если нет - покажите в файле)
за место того, чтобы получилось 14 часов 10 минут, получается 15 часов 10 минут.
исправил, в ячейкеКод
=ЕСЛИ(BB<0;AA+D3+((ЧАС(AA+D3)>12)-(ЧАС(AA)>13))/24;РАБДЕНЬ(AA;1+ОТБР(BB/"8:");ПР)+"9:"+ОСТАТ(BB;"8:")+(ОСТАТ(BB;"8:")>4/24)/24)
работы продолжается вечером до половины 7-ого.
тоже, вроде, само собой отпало (если нет - покажите в файле)krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 13.12.2018, 11:26
Ответить
Сообщение за место того, чтобы получилось 14 часов 10 минут, получается 15 часов 10 минут.
исправил, в ячейкеКод
=ЕСЛИ(BB<0;AA+D3+((ЧАС(AA+D3)>12)-(ЧАС(AA)>13))/24;РАБДЕНЬ(AA;1+ОТБР(BB/"8:");ПР)+"9:"+ОСТАТ(BB;"8:")+(ОСТАТ(BB;"8:")>4/24)/24)
работы продолжается вечером до половины 7-ого.
тоже, вроде, само собой отпало (если нет - покажите в файле)Автор - krosav4ig Дата добавления - 13.12.2018 в 03:43
krosav4ig
Дата: Четверг, 13.12.2018, 11:32 |
Сообщение № 1719 | Тема: Рассчитать конец работы с учетом праздников (дата, время)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
krosav4ig
Дата: Четверг, 13.12.2018, 15:01 |
Сообщение № 1720 | Тема: Рассчитать конец работы с учетом праздников (дата, время)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
dude , а если в список праздников добавить 3.12.2018?
dude , а если в список праздников добавить 3.12.2018?krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение dude , а если в список праздников добавить 3.12.2018?Автор - krosav4ig Дата добавления - 13.12.2018 в 15:01