Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Разбивка таблицы операций по дням, Есть таблица операций на n-дней. нужно разбить таблицу по суткам с учетом длительности операций
 
Доброе время суток форумчане. У меня стоит такая задача: Есть таблица операций со временем операции на n-колличество дней. Нужно сделать разбивку данной таблицы по суткам. Если операция началась в одни сутки а закончилась в другие сутки, то необходимо в первом дне просчитать остаток времени до суточной а остатки времени перенести на второй день. и т.д. Пример прикладываю. Есть мысли так сказать по деревянному разложить таблицу с помощью функций "если" и "впр", но тогда таблица получается емкой и ограниченной по дням. А есть ли другой способ как это сделать? Подскажите или натолкните на мысль.
Изменено: DEN_ZH - 15 Май 2019 17:01:30
 
Цитата
DEN_ZH написал:
другой способ
это макросы
навскидку без оптимизации:
Код
Sub g()
    r = [a1000000].End(xlUp).Row
    r1 = 2
    c1 = 4
    s = 0
    j = -1
    k = 1
    For i = 2 To r
        j = j + 1
        Cells(r1 - 1, c1) = "День " & k
        Cells(r1 + j, c1) = Cells(i, 1)
        Cells(r1 + j, c1 + 1) = Cells(i, 2)
        s = s + Cells(i, 2)
        If s > 24 Then
            Cells(r1 + j, c1 + 1) = Cells(r1 + j, c1 + 1) + 24 - s
            c1 = c1 + 2
            r1 = 2
            j = 0
            Cells(r1, c1) = Cells(i, 1)
            Cells(r1, c1 + 1) = s - 24
            s = s - 24
            k = k + 1
        End If
    Next i
End Sub
Изменено: buchlotnik - 16 Май 2019 00:31:42
Каждому For свой Next
Страницы: 1
Читают тему (гостей: 1)
Наверх