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

Вход

Регистрация

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

 

= Мир MS Excel/Вывод периода дат в табеле сотрудников - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Вывод периода дат в табеле сотрудников
udjin Дата: Пятница, 15.09.2023, 16:41 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 40% ±

2016
Добрый день, есть табель сотрудников в котором стоит задача вывести период дат когда и где находился сотрудник, с подсчетом дней разобрался а вот с датами туго, форум по табелям перечитал но похожей задачи не нашел, файл с примером прикрепляю.
К сообщению приложен файл: tabel_sotrud.xlsx (12.2 Kb)


udjin
 
Ответить
СообщениеДобрый день, есть табель сотрудников в котором стоит задача вывести период дат когда и где находился сотрудник, с подсчетом дней разобрался а вот с датами туго, форум по табелям перечитал но похожей задачи не нашел, файл с примером прикрепляю.

Автор - udjin
Дата добавления - 15.09.2023 в 16:41
Nic70y Дата: Пятница, 15.09.2023, 17:05 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8887
Репутация: 2324 ±
Замечаний: 0% ±

Excel 2010
так
[vba]
Код
Function u_4(u As Range, t As Range, v As Range)
    u_4 = ""
    For b = 1 To u.Count
        If t = u(b) Then
            If u(b + 1) = u(b) And u(b) = u(b - 1) Then
                d = ""
            Else
                c = ""
                If u_4 <> "" Then c = ", "
                If u(b) = u(b - 1) Then c = "-"
                d = c & v(b)
            End If
            u_4 = u_4 & d
        End If
    Next
End Function
[/vba]хотели?
К сообщению приложен файл: 1711.xlsm (17.5 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщениетак
[vba]
Код
Function u_4(u As Range, t As Range, v As Range)
    u_4 = ""
    For b = 1 To u.Count
        If t = u(b) Then
            If u(b + 1) = u(b) And u(b) = u(b - 1) Then
                d = ""
            Else
                c = ""
                If u_4 <> "" Then c = ", "
                If u(b) = u(b - 1) Then c = "-"
                d = c & v(b)
            End If
            u_4 = u_4 & d
        End If
    Next
End Function
[/vba]хотели?

Автор - Nic70y
Дата добавления - 15.09.2023 в 17:05
udjin Дата: Пятница, 15.09.2023, 19:13 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 40% ±

2016
А я над формулами голову ломал)
Благодарю hands
Может еще кому пригодится, такой темы в форуме не находил.
respect


udjin
 
Ответить
СообщениеА я над формулами голову ломал)
Благодарю hands
Может еще кому пригодится, такой темы в форуме не находил.
respect

Автор - udjin
Дата добавления - 15.09.2023 в 19:13
  • Страница 1 из 1
  • 1
Поиск:

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