[已解决]求助：帮改一下vba语句。

007feiren

Sub test4()
Dim mon As Integer, mon1 As String
mon = 2
mon1 = "A"
[d16] = Application.Evaluate("SUMPRODUCT((MONTH(A$2:A$8)=" & mon & ")*(B$2:B$8=" & mon1 & ")*C$2:C$8)")
End Sub
我要定义一个变量等于“A",但是不会写，请vba同事帮改一下。 sumproduct函数多条件求和.rar (7.15 KB, 下载次数: 6)

2011-9-16 14:38 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

mxg825

2011-9-16 15:19

[d16] = Application.Evaluate("SUMPRODUCT((MONTH(A$2:A$8)=" & mon & ")*(B$2:B$8=" ""& mon1 & """)*C$2:C$8)")

引用文本时 加多四个双引号

跳转到最佳答案楼层

mxg825

[d16] = Application.Evaluate("SUMPRODUCT((MONTH(A$2:A$8)=" & mon & ")*(B$2:B$8=" ""& mon1 & """)*C$2:C$8)")

引用文本时 加多四个双引号