Question

我有一个宏，它应该返回E列中的值，如果它与A列，B列和D列中的值匹配。输入Excel的以下公式非常有用：

=SUMPRODUCT(--(A1:A180="Category Name"),--(B1:B180="Specific Type"),--(D1:D180=2015),(E1:E180))

但是以下VBA程序返回＆＃34;类型不匹配错误＆＃34;。该程序作为一个模块而不是特定的表格下。我已经确认了表格的名称＆＃34;范围也存在。谁能看出错误是什么？

对于记录，列a和b是文本，列d和e是数字。

Function LocateFirstCell()
Dim FirstCell

Dim ColA
Dim ColB
Dim ColD
Dim ColE

Dim Name As String
Dim BOD As String
Dim Year As Integer

Set ColA = Worksheets("Sheet Name").Range("A1:A180")
Set ColB = Worksheets("Sheet Name").Range("B1:B180")
Set ColD = Worksheets("Sheet Name").Range("D1:D180")
Set ColE = Worksheets("Sheet Name").Range("E1:E180")


Name = "Category Name"
BOD = "Specific Type"
Year = 2015


FirstCell = [SUMPRODUCT(--(ColA=Name),--(ColB=BOD),--(ColD=Year),(ColE))]
'=SUMPRODUCT(--(A1:A180="Category Name"),--(B1:B180="Specific Type"),--(D1:D180=2015),(E1:E180))

MsgBox ("FirstCell is " & FirstCell)
End Function

Answer 1

您不能在Evaluate的简写中使用vba变量; []是ActiveSheet.Evaluate

的简写

您必须将其写出并将变量连接成一个字符串：

FirstCell = Worksheets("Sheet Name").Evaluate("SUMPRODUCT(--(" & ColA.Address & "=""" & Name & """),--(" & ColB.Address & "=""" & BOD & """),--(" & ColD.Address & "=" & Year & "),(" & ColE.Address & "))")

VBA返回＆＃34;类型不匹配＆＃34;当配方工作得很好

1 个答案: