Установка даты согласно времени

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Установка даты согласно времени (Формулы/Formulas)

dndndn

Дата: Понедельник, 07.03.2022, 15:36 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 38

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

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

Excel 2010

Добрый день! Помогите создать формулу, прилагаю образец. Необходимо в столбце РЕЗУЛЬТАТ отображать по порядку даты тех дней которые были рабочими. То есть если в столбце ВРЕМЯ я указал время значит дата будет отображаться в столбце РЕЗУЛЬТАТ, если стоит прочерк то дата не отображается, и так по каждой строке. Спасибо заранее!

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

Сообщение отредактировал dndndn - Понедельник, 07.03.2022, 15:37

Ответить

Egyptian

Дата: Понедельник, 07.03.2022, 16:21 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 514

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

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

Excel 2013/2016

Формула:

Код

=IFERROR(AGGREGATE(15;6;$D$2:$D$16/ISNUMBER($E$2:$E$16);ROW(A1));"")

Для Excel 2007 (массивная):

Код

=IFERROR(SMALL(IF(ISNUMBER($E$2:$E$16);$D$2:$D$16);ROW(A1));"")

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

Сообщение отредактировал Egyptian - Понедельник, 07.03.2022, 16:28

Ответить

dndndn

Дата: Понедельник, 07.03.2022, 17:58 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 38

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

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

Excel 2010

Egyptian, Спасибо огромное, то что нужно! Еще вопрос, при копировании ячейки А2 с формулой допустим в ячейку А50 смещается строка на эти количество строк. А как можно скопировать ячейку А2 в ячейку А50 чтоб в формуле строка стала А3 а не А50?

Ответить

Egyptian

Дата: Понедельник, 07.03.2022, 18:39 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 514

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

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

Excel 2013/2016

Цитата dndndn, 07.03.2022 в 17:58, в сообщении № 3 (

)

А как можно скопировать ячейку А2 в ячейку А50 чтоб в формуле строка стала А3 а не А50?

Стандартными методами, видимо, никак. Макросом, видимо, но увы, не силен в VBA. Записал макрорекордером, с небольшой правкой получилось, что-то такое:
[vba]

Код

Sub CopyCell()
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.ScrollRow = ActiveCell.Row
    Range("A50").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(AGGREGATE(15,6,R2C4:R16C4/ISNUMBER(R2C5:R16C5),ROW(R[-48]C)),"""")"
    Range("A50").Select
End Sub

[/vba]
Код нужно поместить в модуль.

Ответить

dndndn

Дата: Понедельник, 07.03.2022, 19:17 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 38

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

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

Excel 2010

Egyptian, Понял, спасибо еще раз!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Установка даты согласно времени (Формулы/Formulas)

Страница 1 из 1
1