自定义多条件数组函数

来源:百度文库 编辑:神马文学网 时间:2024/04/27 21:02:19
自定义多条件数组函数

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)