합계가 조건을 충족하는 열을 찾으시겠습니까?

합계가 조건을 충족하는 열을 찾으시겠습니까?

A에는 주별 가용성(시간)과 함께 리소스와 주가 포함된 시트가 있습니다. 이와 같이.

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  ?

계획된 시간은 프로젝트/티켓 시스템 시간에서 가져오며, 시작 및 종료 주는 수동으로 입력됩니다. 사용 가능한 시간과 차이는 첫 번째 테이블에서 계산됩니다.

도움이 필요한 마지막 열을 제외하고 모든 것을 해결했습니다. 첫 번째 테이블의 사용 가능한 리소스가 합산되어 계획된 시간을 포괄할 만큼 큰 주를 어떻게 찾을 수 있습니까? 해당 열이 필요하고 실제주말 열에 주를 입력해야 합니까?

답변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)사용하는 방법 은 몇 주가 필요한지 알려주는 것입니다 . 답을 찾을 수 없으면 0을 반환합니다.

관련 정보