Sumproduct на другом листе

Question

Я новичок в vba, я хочу знать, как реализовать формулу (sumproduct) на excel to vba. Формула получает значение из других листов в книге. Формула такова:

=((SUMPRODUCT(-(Details!$C$7:$C$1182=A3),-(Details!$E$7:$E$1182=B3), -(Details!$S$7:$S$1182="Delivered"), -(Details!$G$7:$G$1182=C3), Details!$N$7:$N$1182))) 

Это мой код;

Private Sub ATO() 

Dim ws1 As Worksheet 
Dim wb1 As Workbook 
Dim last As Long 
Dim i As Integer 

Set wb1 = ThisWorkbook 
Set ws1 = wb1.Worksheets("Summary") 

last = ws1.Cells(Rows.Count, "A").End(xlUp).Row 

ws1.Range("I2:I" & last) = Application.SumProduct(?) 

End Sub 

Действительно ли мой код на правильном пути? Любой ответ будет оценен по достоинству.

Answer 1

Да вы на правильном пути, однако, если вы звоните функцию первенствовать в VBA, вы должны использовать Application.WorksheetFunction Например для вашей проблемы Application.WorksheetFunction.sumif() Существует одно исключение, имейте в виду, что, если та же функция существует в VBA, то вы не может использовать версию excel с WorksheetFunction. Поэтому, если вы не найдете функцию в рабочей таблице, попробуйте ее без нее. Удачи! Если что-то не работает, и я постараюсь помочь!