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

Вход

Регистрация

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

 

= Мир MS Excel/Табель учёта рабочего времени - Страница 64 - Мир MS Excel

Старая форма входа
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Табель учёта рабочего времени (Формулы)
Табель учёта рабочего времени
gge29 Дата: Понедельник, 21.05.2018, 21:07 | Сообщение № 1261
Группа: Проверенные
Ранг: Обитатель
Сообщений: 302
Репутация: 3 ±
Замечаний: 0% ±

Александр спасибо за помощь,но забыл там вставить буквенные значения например "О-отпуск" (Д;К...)и т.д.Стоит вставить буквы не считает.
UDF-ка то что надо,только считает после обновления
 
Ответить
СообщениеАлександр спасибо за помощь,но забыл там вставить буквенные значения например "О-отпуск" (Д;К...)и т.д.Стоит вставить буквы не считает.
UDF-ка то что надо,только считает после обновления
Автор - gge29
Дата добавления - 21.05.2018 в 21:07
_Boroda_ Дата: Понедельник, 21.05.2018, 21:19 | Сообщение № 1262
Группа: Админы
Ранг: Местный житель
Сообщений: 16734
Репутация: 6534 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Тогда так
Код
=СУММПРОИЗВ(--ТЕКСТ(ПСТР(P10:AE11&"0";1;ПОИСК("/";ПОДСТАВИТЬ(ПОДСТАВИТЬ(P10:AE11;".";",");"я";)&"0/")-1);"0;;0;\0"))

Цитата gge29, 21.05.2018 в 21:07, в сообщении № 1261 ()
UDF-ка то что надо,только считает после обновления

Если Вы имеете последовательность действий Покрасил текст в ячейке - Сумма пересчитывается сама, то так и не будет. Дело в том, что покраска ячейки (или текста в ячейке) не является событием и по нему не происходит пересчет
Можно повесить пересчет на выделение любой ячейки, но это уже Вам выбирать. В приложенном файле так и сделал

*Но я бы так делать не стал
К сообщению приложен файл: _2018-1_2.xlsm (48.9 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТогда так
Код
=СУММПРОИЗВ(--ТЕКСТ(ПСТР(P10:AE11&"0";1;ПОИСК("/";ПОДСТАВИТЬ(ПОДСТАВИТЬ(P10:AE11;".";",");"я";)&"0/")-1);"0;;0;\0"))

Цитата gge29, 21.05.2018 в 21:07, в сообщении № 1261 ()
UDF-ка то что надо,только считает после обновления

Если Вы имеете последовательность действий Покрасил текст в ячейке - Сумма пересчитывается сама, то так и не будет. Дело в том, что покраска ячейки (или текста в ячейке) не является событием и по нему не происходит пересчет
Можно повесить пересчет на выделение любой ячейки, но это уже Вам выбирать. В приложенном файле так и сделал

*Но я бы так делать не стал
Автор - _Boroda_
Дата добавления - 21.05.2018 в 21:19
gge29 Дата: Понедельник, 21.05.2018, 21:41 | Сообщение № 1263
Группа: Проверенные
Ранг: Обитатель
Сообщений: 302
Репутация: 3 ±
Замечаний: 0% ±

Цитата _Boroda_, 21.05.2018 в 21:19, в сообщении № 1262 ()
*Но я бы так делать не стал

Ну да,постоянный пересчёт не даёт копирование.Завтра потестирую на других табелях,а вроде не считал если просто "8" в ячейке
 
Ответить
Сообщение
Цитата _Boroda_, 21.05.2018 в 21:19, в сообщении № 1262 ()
*Но я бы так делать не стал

Ну да,постоянный пересчёт не даёт копирование.Завтра потестирую на других табелях,а вроде не считал если просто "8" в ячейке
Автор - gge29
Дата добавления - 21.05.2018 в 21:41
gge29 Дата: Понедельник, 21.05.2018, 21:45 | Сообщение № 1264
Группа: Проверенные
Ранг: Обитатель
Сообщений: 302
Репутация: 3 ±
Замечаний: 0% ±

Цитата gge29, 21.05.2018 в 21:41, в сообщении № 1263 ()
а вроде не считал если просто "8" в ячейке

Да,не то,стоит поставить 7 или 8
 
Ответить
Сообщение
Цитата gge29, 21.05.2018 в 21:41, в сообщении № 1263 ()
а вроде не считал если просто "8" в ячейке

Да,не то,стоит поставить 7 или 8
Автор - gge29
Дата добавления - 21.05.2018 в 21:45
_Boroda_ Дата: Понедельник, 21.05.2018, 21:50 | Сообщение № 1265
Группа: Админы
Ранг: Местный житель
Сообщений: 16734
Репутация: 6534 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Цитата gge29, 21.05.2018 в 21:41, в сообщении № 1263 ()
вроде не считал если просто "8" в ячейке

А вроде в примере этого не было. Да, я понимаю, я должен был догадаться
Код
=СУММПРОИЗВ(--ТЕКСТ(ПСТР(P10:AE11&ЕСЛИ(ЕПУСТО(P10:AE11);"";);1;ПОИСК("/";ПОДСТАВИТЬ(ПОДСТАВИТЬ(P10:AE11;".";",");"я";)&"0/")-1);"0;;0;\0"))

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Цитата gge29, 21.05.2018 в 21:41, в сообщении № 1263 ()
вроде не считал если просто "8" в ячейке

А вроде в примере этого не было. Да, я понимаю, я должен был догадаться
Код
=СУММПРОИЗВ(--ТЕКСТ(ПСТР(P10:AE11&ЕСЛИ(ЕПУСТО(P10:AE11);"";);1;ПОИСК("/";ПОДСТАВИТЬ(ПОДСТАВИТЬ(P10:AE11;".";",");"я";)&"0/")-1);"0;;0;\0"))
Автор - _Boroda_
Дата добавления - 21.05.2018 в 21:50
gge29 Дата: Понедельник, 21.05.2018, 21:56 | Сообщение № 1266
Группа: Проверенные
Ранг: Обитатель
Сообщений: 302
Репутация: 3 ±
Замечаний: 0% ±

Цитата _Boroda_, 21.05.2018 в 21:50, в сообщении № 1265 ()
А вроде в примере этого не было. Да, я понимаю, я должен был догадаться

Александр согласен,мой косяк,я забыл про эти нюансы.
А ещё теперь и красная 8 на SumTsv не срабатывает!!!


Сообщение отредактировал gge29 - Понедельник, 21.05.2018, 21:59
 
Ответить
Сообщение
Цитата _Boroda_, 21.05.2018 в 21:50, в сообщении № 1265 ()
А вроде в примере этого не было. Да, я понимаю, я должен был догадаться

Александр согласен,мой косяк,я забыл про эти нюансы.
А ещё теперь и красная 8 на SumTsv не срабатывает!!!
Автор - gge29
Дата добавления - 21.05.2018 в 21:56
_Boroda_ Дата: Понедельник, 21.05.2018, 22:22 | Сообщение № 1267
Группа: Админы
Ранг: Местный житель
Сообщений: 16734
Репутация: 6534 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Блин, да что ж такое-то, а?
В следующий раз с таким примером сильно ругаться буду
[vba]
Код
Function SumTsv(Mass As Range, tsv As Range)
    Application.Volatile
    s_ = 0
    col_ = tsv(1).Font.Color
    For Each d_ In Mass
        If d_.Font.Color = col_ And d_ <> "" Then
            For i = 1 To Len(d_) + 1
                If Not IsNumeric(Mid(d_ & "z", i, 1)) Then
                    s_ = s_ + Mid(d_, 1, i - 1)
                    Exit For
                End If
            Next i
        End If
    Next d_
    SumTsv = s_
End Function
[/vba]
К сообщению приложен файл: _2018-1_3.xlsm (49.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеБлин, да что ж такое-то, а?
В следующий раз с таким примером сильно ругаться буду
[vba]
Код
Function SumTsv(Mass As Range, tsv As Range)
    Application.Volatile
    s_ = 0
    col_ = tsv(1).Font.Color
    For Each d_ In Mass
        If d_.Font.Color = col_ And d_ <> "" Then
            For i = 1 To Len(d_) + 1
                If Not IsNumeric(Mid(d_ & "z", i, 1)) Then
                    s_ = s_ + Mid(d_, 1, i - 1)
                    Exit For
                End If
            Next i
        End If
    Next d_
    SumTsv = s_
End Function
[/vba]
Автор - _Boroda_
Дата добавления - 21.05.2018 в 22:22
gge29 Дата: Понедельник, 21.05.2018, 22:41 | Сообщение № 1268
Группа: Проверенные
Ранг: Обитатель
Сообщений: 302
Репутация: 3 ±
Замечаний: 0% ±

Цитата _Boroda_, 21.05.2018 в 22:22, в сообщении № 1267 ()
Блин, да что ж такое-то, а?
В следующий раз с таким примером сильно ругаться буду

Александр,извиняюсь за мои косяки,за такое даже не ругаться надо,а пороть)))"Но увы,мысля приходит опосля"
 
Ответить
Сообщение
Цитата _Boroda_, 21.05.2018 в 22:22, в сообщении № 1267 ()
Блин, да что ж такое-то, а?
В следующий раз с таким примером сильно ругаться буду

Александр,извиняюсь за мои косяки,за такое даже не ругаться надо,а пороть)))"Но увы,мысля приходит опосля"
Автор - gge29
Дата добавления - 21.05.2018 в 22:41
ekut Дата: Воскресенье, 27.01.2019, 08:56 | Сообщение № 1269
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 195
Репутация: 3 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте уважаемые Модераторы форума! Подскажите, пожалуйста! Как атоматизировать праздничные дни в табеле учета рабочего времени. Меняется месяц, меняется норма и…… хотелось бы, чтобы и менялись автоматически праздничные дни месяца, при этом, конечно же и автоматически считалось! Благодарю заранее!
К сообщению приложен файл: 7470559.xlsx (26.8 Kb)
 
Ответить
СообщениеЗдравствуйте уважаемые Модераторы форума! Подскажите, пожалуйста! Как атоматизировать праздничные дни в табеле учета рабочего времени. Меняется месяц, меняется норма и…… хотелось бы, чтобы и менялись автоматически праздничные дни месяца, при этом, конечно же и автоматически считалось! Благодарю заранее!
Автор - ekut
Дата добавления - 27.01.2019 в 08:56
Nic70y Дата: Воскресенье, 27.01.2019, 11:25 | Сообщение № 1270
Группа: Друзья
Ранг: Экселист
Сообщений: 9028
Репутация: 2374 ±
Замечаний: 0% ±

Excel 2010
Цитата ekut, 27.01.2019 в 08:56, в сообщении № 1269 ()
Модераторы
остальным нельзя?
+ случайно вляпал (старый стал - промахиваюсь)
доп.строка + СУММЕСЛИ
К сообщению приложен файл: 2742477.xlsx (24.1 Kb)

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата ekut, 27.01.2019 в 08:56, в сообщении № 1269 ()
Модераторы
остальным нельзя?
+ случайно вляпал (старый стал - промахиваюсь)
доп.строка + СУММЕСЛИ
Автор - Nic70y
Дата добавления - 27.01.2019 в 11:25
ekut Дата: Воскресенье, 27.01.2019, 13:23 | Сообщение № 1271
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 195
Репутация: 3 ±
Замечаний: 0% ±

Excel 2007
Уважаемый Nic, спасибо огромное за оперативность....
Нооооо, ночные не считает как праздничные (у меня они помечены 4н, 12н,8н)
 
Ответить
СообщениеУважаемый Nic, спасибо огромное за оперативность....
Нооооо, ночные не считает как праздничные (у меня они помечены 4н, 12н,8н)
Автор - ekut
Дата добавления - 27.01.2019 в 13:23
Nic70y Дата: Воскресенье, 27.01.2019, 13:30 | Сообщение № 1272
Группа: Друзья
Ранг: Экселист
Сообщений: 9028
Репутация: 2374 ±
Замечаний: 0% ±

Excel 2010
массивная
Код
=СУММ(ЕСЛИОШИБКА(--ПОДСТАВИТЬ(D12:AH12;"н";);)*(D$9:AH$9=2))
К сообщению приложен файл: 3106199.xlsx (24.3 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Воскресенье, 27.01.2019, 13:30
 
Ответить
Сообщениемассивная
Код
=СУММ(ЕСЛИОШИБКА(--ПОДСТАВИТЬ(D12:AH12;"н";);)*(D$9:AH$9=2))
Автор - Nic70y
Дата добавления - 27.01.2019 в 13:30
ekut Дата: Воскресенье, 27.01.2019, 16:00 | Сообщение № 1273
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 195
Репутация: 3 ±
Замечаний: 0% ±

Excel 2007
Спасибо огромное! Работает!!!!!!!!!!!!!
 
Ответить
СообщениеСпасибо огромное! Работает!!!!!!!!!!!!!
Автор - ekut
Дата добавления - 27.01.2019 в 16:00
_Boroda_ Дата: Понедельник, 28.01.2019, 11:29 | Сообщение № 1274
Группа: Админы
Ранг: Местный житель
Сообщений: 16734
Репутация: 6534 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Еще вариант. Обычная
Код
=СУММПРОИЗВ((D$9:AH$9=AT$11:AT$29)*ТЕКСТ(ПОДСТАВИТЬ(D11:AH11;"н";);"0,00;;0;\0"))
К сообщению приложен файл: 1-21-1-1-3.xlsx (24.1 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕще вариант. Обычная
Код
=СУММПРОИЗВ((D$9:AH$9=AT$11:AT$29)*ТЕКСТ(ПОДСТАВИТЬ(D11:AH11;"н";);"0,00;;0;\0"))
Автор - _Boroda_
Дата добавления - 28.01.2019 в 11:29
ekut Дата: Понедельник, 28.01.2019, 11:39 | Сообщение № 1275
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 195
Репутация: 3 ±
Замечаний: 0% ±

Excel 2007
Спасибо огромное! hands
 
Ответить
СообщениеСпасибо огромное! hands
Автор - ekut
Дата добавления - 28.01.2019 в 11:39
ekut Дата: Вторник, 29.01.2019, 15:10 | Сообщение № 1276
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 195
Репутация: 3 ±
Замечаний: 0% ±

Excel 2007
Уважаемый Boroda! А если в графике будет стоять 8/4 (считается как 12 ночных) , как будет выглядеть Ваша формула праздничных ?
Код
=SUMPRODUCT((D$9:AH$9=AT$11:AT$29)*TEXT(SUBSTITUTE(D11:AH11,"н",),"0,00;;0;\0"))

Благодарю заранее!!!!!!
К сообщению приложен файл: 333333.xlsx (25.6 Kb)


Сообщение отредактировал ekut - Вторник, 29.01.2019, 16:03
 
Ответить
СообщениеУважаемый Boroda! А если в графике будет стоять 8/4 (считается как 12 ночных) , как будет выглядеть Ваша формула праздничных ?
Код
=SUMPRODUCT((D$9:AH$9=AT$11:AT$29)*TEXT(SUBSTITUTE(D11:AH11,"н",),"0,00;;0;\0"))

Благодарю заранее!!!!!!
Автор - ekut
Дата добавления - 29.01.2019 в 15:10
китин Дата: Вторник, 29.01.2019, 15:30 | Сообщение № 1277
Группа: Модераторы
Ранг: Экселист
Сообщений: 7030
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Елена, 34 сообщения, а посты оформлять не научились, исправляйте

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеЕлена, 34 сообщения, а посты оформлять не научились, исправляйте
Автор - китин
Дата добавления - 29.01.2019 в 15:30
ekut Дата: Понедельник, 04.02.2019, 10:04 | Сообщение № 1278
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 195
Репутация: 3 ±
Замечаний: 0% ±

Excel 2007
Уважаемые коллеги! Подскажите пожалуйста! Можно ли как-нибудь уменьшить формулы в первом варианте!!!!больно они у меня громоздкие и неудобные! Второй вариант очень удобный ( спасибо огромное Borode).Может кто-то для себя возьмет! Во втором варианте праздничные меняются автоматически с месяцем и нормой. Посмотрите, пожалуйста, своим умным взглядом на первый вариант, как еще мне автоматизировать мои расчеты, используя формулу для праздничных второго варианта, как у Boroda? Спасибо заранее, если не трудно, с объяснениями.
К сообщению приложен файл: 333333.xls (62.5 Kb)
 
Ответить
СообщениеУважаемые коллеги! Подскажите пожалуйста! Можно ли как-нибудь уменьшить формулы в первом варианте!!!!больно они у меня громоздкие и неудобные! Второй вариант очень удобный ( спасибо огромное Borode).Может кто-то для себя возьмет! Во втором варианте праздничные меняются автоматически с месяцем и нормой. Посмотрите, пожалуйста, своим умным взглядом на первый вариант, как еще мне автоматизировать мои расчеты, используя формулу для праздничных второго варианта, как у Boroda? Спасибо заранее, если не трудно, с объяснениями.
Автор - ekut
Дата добавления - 04.02.2019 в 10:04
китин Дата: Понедельник, 04.02.2019, 10:12 | Сообщение № 1279
Группа: Модераторы
Ранг: Экселист
Сообщений: 7030
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
ekut, вы до сих пор не исправили свой пост № 1276. помогающих прошу воздержаться от ответов
исправил за вас, так как вы сами уже не сможете. в следующий раз за игнорирование замечаний будет ата-та

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеekut, вы до сих пор не исправили свой пост № 1276. помогающих прошу воздержаться от ответов
исправил за вас, так как вы сами уже не сможете. в следующий раз за игнорирование замечаний будет ата-та
Автор - китин
Дата добавления - 04.02.2019 в 10:12
_Boroda_ Дата: Понедельник, 04.02.2019, 12:14 | Сообщение № 1280
Группа: Админы
Ранг: Местный житель
Сообщений: 16734
Репутация: 6534 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так нужно?
Код
=СУММПРОИЗВ(--ТЕКСТ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(D11:AH11;"8/4";12);"н";);"0,00;;;\0"))

Код
=СУММПРОИЗВ((D$9:AH$9=AT$11:AT$29)*ТЕКСТ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(D11:AH11;"8/4";12);"н";);"0,00;;0;\0"))
К сообщению приложен файл: 333333_1.xls (77.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
Код
=СУММПРОИЗВ(--ТЕКСТ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(D11:AH11;"8/4";12);"н";);"0,00;;;\0"))

Код
=СУММПРОИЗВ((D$9:AH$9=AT$11:AT$29)*ТЕКСТ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(D11:AH11;"8/4";12);"н";);"0,00;;0;\0"))
Автор - _Boroda_
Дата добавления - 04.02.2019 в 12:14
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Табель учёта рабочего времени (Формулы)
Поиск:

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