Sumproduct 评估给出名称 vba

Question

我正在尝试在 vba 中使用 Sumproduct 函数。 首先我尝试了这个：

   sht.Cells(LastRowsht + 1, 6) = Application.SUMPRODUCT((Transaction = "Vente") * (TickerD2 = sht.Cells(LastRowsht + 1, 2)), ValeurFlux))

其中 Transaction、TickerD2 和 ValeurFlux 是相同长度的范围。（它是一整列）。 我在许多论坛上看到，当有标准时，vba 中的 sumproduct 是有问题的。

人们建议使用 .Evaluate

   sht.Cells(LastRowsht + 1, 6) = Application.Evaluate("SOMMEPROD((Transaction = "Vente") * (TickerD2 = sht.Cells(LastRowsht + 1, 2)), ValeurFlux)")

但它给出了名字。 我使用 SOMMEPROD 因为我的 Excel 是法语的，所以我想我需要翻译。 我认为公式中存在拼写错误，但我不熟悉评估。

谢谢。

---

这是我在 excel 中使用的公式，它有效！ 我不知道为什么在 vba 中它不能

   =SOMMEPROD((Data2!D:D="Achat")*(Data2!C:C=B8);Data2!I:I)

Answer 1

我看到的两个主要问题是，在带引号的字符串中使用时必须加倍引号，并且您需要 sht.Cells(LastRowsht + 1, 2) 的 Range.Address property，而不是 Range.Cells property 本身。

  Dim sumproductFormula As String

  sumproductFormula = "SUMPRODUCT((Transaction=""Vente"")*" & _
                               "(TickerD2=" & sht.Cells(LastRowsht + 1, 2).Address & ")," & _
                                "ValeurFlux)"
  sht.Cells(LastRowsht + 1, 6) = Application.Evaluate(sumproductFormula)

我发现在分配给字符串类型 var 的片段中构建一个长字符串更容易，只需使用 Application Evaluate 中的 var。