具有多个标准的Excel vba sumproduct

时间:2015-06-16 06:28:41

标签: excel vba excel-vba

我正在尝试对从数组中提取的列中的值求和,并使用两个条件来过滤值。公式返回类型不匹配错误,我不知道为什么。查看监视窗口中的数组不会显示任何明显的错误。有什么建议吗?

    Sub TST_SUM_PROD()

    Dim VAL As Variant, DATA As Variant, ARR_PARAM As Variant, ARR_DEAL As Variant, ARR_STRAT As Variant


Set RNGE = Worksheets("BOOK").Range("tbl_BOOK").CurrentRegion
Set ARR_PARAM = RNGE.Columns(PARAM_COL)
Set ARR_DEAL = RNGE.Columns(DEAL_COL)
Set ARR_STRAT = RNGE.Columns(STRAT_COL)

SUM_IFS = Application.WorksheetFunction.SumIfs(ARR_PARAM, ARR_DEAL, DEAL_NO)`
    VAL = Application.WorksheetFunction.SumProduct(--(ARR_STRAT = "CAL"))
    VAL = Application.WorksheetFunction.SumProduct(--(ARR_DEAL = 1))
    VAL = Application.WorksheetFunction.SumProduct(ARR_PARAM, --(ARR_STRAT = "CAL"), --(ARR_DEAL = "1"))

End Sub

SUMPRODUCT DATA

0 个答案:

没有答案