Sumprod評估給出名稱vba

Question

我試圖在vba中使用Sumproduct函數。 首先我想這：

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

哪裏交易，TickerD2和ValeurFlux是相同lenght的範圍（這是一整列）。 我在許多論壇上看到，在有標準的情況下，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) 

我覺得更容易建立在分配給一個字符串類型變種片長字符串，然後用在Application Evaluate的變種。