Формула для excel 2007 подсчет кал. дней без праздников
|
|
ASWP |
Дата: Среда, 09.05.2018, 12:07 |
Сообщение № 1 |
|
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 183
Репутация:
24
±
Замечаний:
0% ±
Excel 2007 | |
Добрый день. В excel 2010 можно использовать функцию ЧИСТРАБДНИ.МЕЖД, но ее нет в excel 2007.
Код =ЧИСТРАБДНИ.МЕЖД(A1;B1;"0000011";праздники) Какой формулой это можно реализовать в excel 2007?
Добрый день. В excel 2010 можно использовать функцию ЧИСТРАБДНИ.МЕЖД, но ее нет в excel 2007.
Код =ЧИСТРАБДНИ.МЕЖД(A1;B1;"0000011";праздники) Какой формулой это можно реализовать в excel 2007?ASWP
я знаю что ничего не знаю, но другие не знают и этого
|
|
| Ответить
|
abtextime |
Дата: Среда, 09.05.2018, 12:42 |
Сообщение № 2 |
|
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация:
117
±
Замечаний:
0% ±
Excel 2010 | |
Может я чего-то не понимаю, но
Код =ЧИСТРАБДНИ(A1;B1;праздники)
эквивалентна Вашей формуле, и эта функция есть в Excel 2007
Может я чего-то не понимаю, но
Код =ЧИСТРАБДНИ(A1;B1;праздники)
эквивалентна Вашей формуле, и эта функция есть в Excel 2007abtextime
|
|
| Ответить
|
ASWP |
Дата: Среда, 09.05.2018, 13:39 |
Сообщение № 3 |
|
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 183
Репутация:
24
±
Замечаний:
0% ±
Excel 2007 | |
=ЧИСТРАБДНИ.МЕЖД(A1;B1;"0000011";праздники) Не много ошибся с формулой
Код =ЧИСТРАБДНИ.МЕЖД(A1;B1;"0000000";праздники) Я хочу чтобы считались все дни и выходные тоже , но без праздников.
=ЧИСТРАБДНИ.МЕЖД(A1;B1;"0000011";праздники) Не много ошибся с формулой
Код =ЧИСТРАБДНИ.МЕЖД(A1;B1;"0000000";праздники) Я хочу чтобы считались все дни и выходные тоже , но без праздников.ASWP
я знаю что ничего не знаю, но другие не знают и этого
Сообщение отредактировал ASWP - Среда, 09.05.2018, 15:21 |
|
| Ответить
|
abtextime |
Дата: Среда, 09.05.2018, 13:49 |
Сообщение № 4 |
|
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация:
117
±
Замечаний:
0% ±
Excel 2010 | |
Ну тогда правильным вариантом использования ЧИСТРАБДНИ.МЕЖД в Вашем случае было бы
Код =ЧИСТРАБДНИ.МЕЖД(A1;B1;"0000000";праздники)
а не "0000011"
Ну тогда правильным вариантом использования ЧИСТРАБДНИ.МЕЖД в Вашем случае было бы
Код =ЧИСТРАБДНИ.МЕЖД(A1;B1;"0000000";праздники)
а не "0000011"abtextime
|
|
| Ответить
|
abtextime |
Дата: Среда, 09.05.2018, 13:51 |
Сообщение № 5 |
|
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация:
117
±
Замечаний:
0% ±
Excel 2010 | |
Напишите содержательно, что Вы хотите считать. Разумеется, можно написать UDF - аналог ЧИСТРАБДНИ.МЕЖД
Напишите содержательно, что Вы хотите считать. Разумеется, можно написать UDF - аналог ЧИСТРАБДНИ.МЕЖДabtextime
|
|
| Ответить
|
ASWP |
Дата: Среда, 09.05.2018, 14:06 |
Сообщение № 6 |
|
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 183
Репутация:
24
±
Замечаний:
0% ±
Excel 2007 | |
Вот что я хочу получить в excel 2007, на примере 2010.
Вот что я хочу получить в excel 2007, на примере 2010.ASWP
я знаю что ничего не знаю, но другие не знают и этого
Сообщение отредактировал ASWP - Среда, 09.05.2018, 14:07 |
|
| Ответить
|
abtextime |
Дата: Среда, 09.05.2018, 14:21 |
Сообщение № 7 |
|
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация:
117
±
Замечаний:
0% ±
Excel 2010 | |
Пожалуйста
[vba]Код Public Function БезПраздников(D1, D2 As Date, Celebrations As Range)
БезПраздников = D2 - D1 + 1 For Each R In Celebrations If R.Value >= D1 And R.Value <= D2 Then БезПраздников = БезПраздников - 1 Next R
End Function [/vba]
Пожалуйста
[vba]Код Public Function БезПраздников(D1, D2 As Date, Celebrations As Range)
БезПраздников = D2 - D1 + 1 For Each R In Celebrations If R.Value >= D1 And R.Value <= D2 Then БезПраздников = БезПраздников - 1 Next R
End Function [/vba]abtextime
|
|
| Ответить
|
ASWP |
Дата: Среда, 09.05.2018, 15:22 |
Сообщение № 8 |
|
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 183
Репутация:
24
±
Замечаний:
0% ±
Excel 2007 | |
Спасибо, а просто формулами это можно реализовать?
Спасибо, а просто формулами это можно реализовать?ASWP
я знаю что ничего не знаю, но другие не знают и этого
|
|
| Ответить
|
abtextime |
Дата: Среда, 09.05.2018, 15:37 |
Сообщение № 9 |
|
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация:
117
±
Замечаний:
0% ±
Excel 2010 | |
Лично для меня это сложнее. А в чем проблема UDF использовать?
Лично для меня это сложнее. А в чем проблема UDF использовать?abtextime
|
|
| Ответить
|
Pelena |
Дата: Среда, 09.05.2018, 15:45 |
Сообщение № 10 |
|
Группа: Админы
Ранг: Местный житель
Сообщений: 19145
Репутация:
4410
±
Замечаний:
±
Excel 365 & Mac Excel | |
Варианты [vba]Код =ЕСЛИ(A1*B1;B1-A1+1-СУММПРОИЗВ((A1<=праздники!holidays_dates)*(B1>=праздники!holidays_dates));"") [/vba] [vba]Код =ЕСЛИ(A1*B1;B1-A1+1-СЧЁТЕСЛИМН(праздники!holidays_dates;">="&A1;праздники!holidays_dates;"<="&B1);"") [/vba]
Варианты [vba]Код =ЕСЛИ(A1*B1;B1-A1+1-СУММПРОИЗВ((A1<=праздники!holidays_dates)*(B1>=праздники!holidays_dates));"") [/vba] [vba]Код =ЕСЛИ(A1*B1;B1-A1+1-СЧЁТЕСЛИМН(праздники!holidays_dates;">="&A1;праздники!holidays_dates;"<="&B1);"") [/vba]Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
|
|
| Ответить
|
abtextime |
Дата: Среда, 09.05.2018, 15:56 |
Сообщение № 11 |
|
Группа: Проверенные
Ранг: Ветеран
Сообщений: 828
Репутация:
117
±
Замечаний:
0% ±
Excel 2010 | |
У меня такая формула нарисовалась, на данном примере всё ОК, но головой бы не стал за ее правильность ручаться
[vba]Код =B2-A2+1-ПОИСКПОЗ(ВПР(B2;праздники!holidays_dates;1;1);праздники!holidays_dates;0)+ПОИСКПОЗ(ВПР(A2;праздники!holidays_dates;1;1);праздники!holidays_dates;0)-ЕСЛИ(A2=ВПР(A2;праздники!holidays_dates;1;1);1;0) [/vba]
Вариант уважаемой Pelena намного изящней и наверняка правильный. используйте его. Не формулист я ...
У меня такая формула нарисовалась, на данном примере всё ОК, но головой бы не стал за ее правильность ручаться
[vba]Код =B2-A2+1-ПОИСКПОЗ(ВПР(B2;праздники!holidays_dates;1;1);праздники!holidays_dates;0)+ПОИСКПОЗ(ВПР(A2;праздники!holidays_dates;1;1);праздники!holidays_dates;0)-ЕСЛИ(A2=ВПР(A2;праздники!holidays_dates;1;1);1;0) [/vba]
Вариант уважаемой Pelena намного изящней и наверняка правильный. используйте его. Не формулист я ...abtextime
Сообщение отредактировал abtextime - Среда, 09.05.2018, 15:59 |
|
| Ответить
|
ASWP |
Дата: Среда, 09.05.2018, 17:28 |
Сообщение № 12 |
|
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 183
Репутация:
24
±
Замечаний:
0% ±
Excel 2007 | |
Спасибо всем, все работает
Спасибо всем, все работает ASWP
я знаю что ничего не знаю, но другие не знают и этого
Сообщение отредактировал ASWP - Среда, 09.05.2018, 17:28 |
|
| Ответить
|