自定义多条件数组函数
来源:百度文库 编辑:神马文学网 时间:2024/09/21 08:51:16
自定义多条件数组函数
Function 累计值求日期值(条件1区域 As Range, 条件1 As String, 条件2区域 As Range, 条件2 As Integer, 返回区域 As Range)
Dim x()
J = 1
For i = 1 To 条件1区域.Cells.Count
If 条件1区域.Cells(i) = 条件1 Then
ReDim Preserve x(1 To 2, 1 To J)
k1 = k1 + 条件2区域.Cells(i)
k2 = 返回区域.Cells(i)
x(1, J) = k1
x(2, J) = k2
J = J + 1
End If
Next
For ii = 1 To J - 1
If x(1, ii) >= 条件2 Then
累计值求日期值 = Format(x(2, ii), "MM月DD日")
Exit Function
End If
Next
End Function
=累计值求日期值(来料表!$A$2:$A$13,A2,来料表!$D$2:$D$13,SUM(($A$2:$A2=A2)*($C$2:$C2)),来料表!$E$2:$E$13)