Оценка Sumprod дает имя vba

Question

Я пытаюсь использовать функцию Sumproduct в vba. Сначала я попытался это:

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

Где Транзакция, TickerD2 и ValeurFlux диапазоны той же длины (это целая колонка).. Я видел на многих форумах, что sumproduct в vba проблематичен, когда есть критерии.

Люди предлагают использовать .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

Две основные проблемы, которые я видел, что вы должны удвоить кавычки при использовании в кавычках, и вы нуждались в Range.Address property из sht.Cells(LastRowsht + 1, 2), а не 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.