Текст через запятую, если соответсвует заданному требованию

Вход

Регистрация

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

= Мир MS Excel/Текст через запятую, если соответсвует заданному требованию - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Текст через запятую, если соответсвует заданному требованию (Формулы/Formulas)

Текст через запятую, если соответсвует заданному требованию

888list

Дата: Воскресенье, 06.12.2015, 17:02 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 1

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

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

Excel 2013

Господа, доброго времени суток!
Без Вашей помощи дилетанту не обойтись!
Есть перечень работ, выполненных в период «с» «по», с использованием определенных строительных материалов по каждому виду. Нужен ежедневный график. Желаемая формула: если дата попадает в период «с» «по», то суммируются (перечисляются через запятую) виды работ, а также перечисляются материалы.
В приложении на 1 листе данные, на 2 листе требуемая таблица.
Заранее благодарна откликнувшимся!

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

Ответить

abtextime

Дата: Понедельник, 07.12.2015, 14:05 | Сообщение № 2

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

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

Сообщений: 828

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

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

Excel 2010

С формулами тяжко, попробуйте с небольшой UDF
[vba]

Код

Public Function MyF(R, D1, D2 As Range, D As Date) As String

MyF = ""

For i = 1 To R.Rows.Count
    If (D >= D1(i, 1).Value) And (D <= D2(i, 1).Value) Then
        MyF = MyF & R(i, 1).Value & ", "
    End If
Next i

If MyF <> "" Then
    MyF = Left(MyF, Len(MyF) - 2)
End If

End Function

[/vba]

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

Ответить

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