☰

合計が条件を満たす列を見つけますか?

tag-icon • tag-icon microsoft-excel microsoft-excel-2010
合計が条件を満たす列を見つけますか?

リソースと週、および週あたりの可用性 (時間) が記載されたシートがあります。次のようになります。

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を返します。

関連情報