Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Расчет объемов работ в заданном временном диапазоне в графике производства работ
 
Добрый день! Прошу помочь с макросом.
Есть график производства работ (файл во вложении). Макрос "ob" заполняет расчетный объем работ на дату.
Нужно, чтобы значения рассчитывались только в диапазоне дат начало-окончание либо расчет останавливался после даты окончания.
 
А лист "Даты" зачем?
 
А лист "Даты" зачем?
Если задача в том, чтобы заполнить ячейки в столбцах под датами, то попробуйте такой макрос:
Код
Sub Macro1()
Dim LastRow As Long, DateStart As Date, DateFinish As Date
Dim Rng As Range, j As Long, DifDays As Long, i As Long
Dim Shag As Long, x As Long, ColStart As Long, LastColumn As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    LastColumn = Cells(3, Columns.Count).End(xlToLeft).Column
    Shag = Cells(2, 7)
    For i = 4 To LastRow
        If Cells(i, 2) <> "" Then
            DateStart = Cells(i, 4)
            DateFinish = Cells(i, 5)
            DifDays = DateFinish - DateStart
            Set Rng = Range(Cells(3, 8), Cells(3, LastColumn)).Find(what:=DateStart, LookIn:=xlValues, LookAt:=xlWhole)
            If Not Rng Is Nothing Then
                ColStart = Rng.Column
                For j = ColStart To ColStart + DifDays
                    Cells(i, j) = x + Shag
                    x = x + Shag
                Next
            End If
        End If
        x = 0
    Next
End Sub


P.S. Про шаг Вы не упомянули, но я на всякий случай его учитываю ))
P.P.S. Заменил формулы на значения в строке с датами.
 
Спасибо за помощь!
Страницы: 1
Читают тему (гостей: 1)