Добрый вечер! ОЧЕНЬ нужна помощь в написании формулы или макроса. Образец файла во вложении. Суть в том что нужно написать формулу (в ячейку D2) которая бы сравнивала дату из столбца "фактическая дата прибытия посылки на склад", например 11.05.2013 с массивом дат, указанных на листе "даты", выбирала дату согласно дню недели из столбца "дни недели отправления" и указывала бы дату в ячейку D2. Например, фактическая дата прибытия посылки на склад - 11.05.13, дни недели отправления для региона "Москва" - понедельник-среда-пятница, на листе "даты" формула должна найти следующую дату отправления, в нашем случае - следующий рейс на Москву 13.05.13 понедельник, и указывала это значение в ячейку D2. Заранее спасибо
Добрый вечер! ОЧЕНЬ нужна помощь в написании формулы или макроса. Образец файла во вложении. Суть в том что нужно написать формулу (в ячейку D2) которая бы сравнивала дату из столбца "фактическая дата прибытия посылки на склад", например 11.05.2013 с массивом дат, указанных на листе "даты", выбирала дату согласно дню недели из столбца "дни недели отправления" и указывала бы дату в ячейку D2. Например, фактическая дата прибытия посылки на склад - 11.05.13, дни недели отправления для региона "Москва" - понедельник-среда-пятница, на листе "даты" формула должна найти следующую дату отправления, в нашем случае - следующий рейс на Москву 13.05.13 понедельник, и указывала это значение в ячейку D2. Заранее спасибоDM123
Сообщение отредактировал DM123 - Воскресенье, 12.05.2013, 20:47
Function myDate(rDP As Range, sDays$) x = Split(sDays, "-") For i = 1 To 7 s = Format(rDP.Value + i, "dddd") For j = 0 To UBound(x) If s = x(j) Then myDate = rDP.Value + i: Exit Function Next Next End Function
[/vba]
[vba]
Код
Function myDate(rDP As Range, sDays$) x = Split(sDays, "-") For i = 1 To 7 s = Format(rDP.Value + i, "dddd") For j = 0 To UBound(x) If s = x(j) Then myDate = rDP.Value + i: Exit Function Next Next End Function
сорри, не получается прикрепить файл (маленький). в общем, это пользовательская функция, написанная на VBA добавляете в свой файл стандартный модуль, копируете туда этот код, а на листе просто вызываете функцию. напр.. в яч. D2 пишете формулу
Код
=myDate(C2;B2)
сорри, не получается прикрепить файл (маленький). в общем, это пользовательская функция, написанная на VBA добавляете в свой файл стандартный модуль, копируете туда этот код, а на листе просто вызываете функцию. напр.. в яч. D2 пишете формулу
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
