Найти столбец, где сумма соответствует условию?

Question

Есть лист с ресурсами и неделями вместе с доступностью за неделю (часов). Как это.

Resource 1225 1226 1227 ... 1252
.NET     30   30   15   ... 30
Java     40   40   40   ... 40

В другой таблице у меня есть его данные

Resource PlannedHours StartWeek EndWeek AvailableHours Diff ActualEndWeek
.NET     326          1225      1242    400            76   ?    
Java     100          1225      1242    400            300  ?

Запланированные часы поступают из часов проекта / системы тикетов, начало и конец недели вводятся вручную. Доступные часы и разница рассчитывается по первой таблице.

Я решил все, кроме последней колонки, где мне нужна помощь. Как найти неделю, когда доступные ресурсы в первой таблице суммируются и достаточно велики, чтобы покрыть запланированные часы. Мне нужен этот столбец и поставить неделю в столбце actalendweek?

Answer 1

Function LeastFactors(MyArray As Range, Goal As Double) As Integer
Dim RunningTotal As Double
Dim i As Integer

For i = 1 To MyArray.Count
    RunningTotal = RunningTotal + WorksheetFunction.Large(MyArray, i)
    If RunningTotal >= Goal Then
        LeastFactors = i
        Exit For
    Else
        LeastFactors = 0
    End If
Next i
End Function

использовать будет =LeastFactors(Sheet1!B2:B40,Sheet2!B2) чтобы дать вам сколько недель вам понадобится. Он вернет ноль, если не может найти ответ