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

Вход

Регистрация

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

 

= Мир MS Excel/Установка даты согласно времени - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Установка даты согласно времени (Формулы/Formulas)
Установка даты согласно времени
dndndn Дата: Понедельник, 07.03.2022, 15:36 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

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


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

Автор - dndndn
Дата добавления - 07.03.2022 в 15:36
Egyptian Дата: Понедельник, 07.03.2022, 16:21 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 386
Репутация: 132 ±
Замечаний: 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
 
Ответить
СообщениеФормула:
Код
=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));"")

Автор - Egyptian
Дата добавления - 07.03.2022 в 16:21
dndndn Дата: Понедельник, 07.03.2022, 17:58 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - dndndn
Дата добавления - 07.03.2022 в 17:58
Egyptian Дата: Понедельник, 07.03.2022, 18:39 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 386
Репутация: 132 ±
Замечаний: 0% ±

Excel 2013/2016
А как можно скопировать ячейку А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]
Код нужно поместить в модуль.
 
Ответить
Сообщение
А как можно скопировать ячейку А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]
Код нужно поместить в модуль.

Автор - Egyptian
Дата добавления - 07.03.2022 в 18:39
dndndn Дата: Понедельник, 07.03.2022, 19:17 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 36
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Egyptian, Понял, спасибо еще раз!
 
Ответить
СообщениеEgyptian, Понял, спасибо еще раз!

Автор - dndndn
Дата добавления - 07.03.2022 в 19:17
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Установка даты согласно времени (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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