Как включить логические символы в строку «application.worksheetfunction.sumifs» в vba?

Question

Очень жаль, если на этот вопрос был дан ответ, но я не могу найти ответ. У меня есть некоторые данные на листе, и я пытаюсь суммировать значения в столбце «H» на основе даты в столбце «G». Если дата находится между 1-м числом месяца и сегодняшним днем, а столбец «C» содержит определенный текст, то значения суммируются. Ниже моя строка кода.

Обратите внимание, что MCFws и DCFws являются переменными листа

Спасибо !!

MCFws.Range("D4") = Format(Application.WorksheetFunction.SumIfs(DCFws.Range("H:H"), _
DCFws.Range("G:G"), DateSerial(Year(Date), Month(Date), 1) <= DCFws.Range("G:G"), DCFws.Range("G:G"), _
DCFws.Range("G:G") <= Date, DCFws.Range("C:C"), "ERISA") / 1000, "$#,##0")

Answer 1

DateSerial(Year(Date), Month(Date), 1) <= DCFws.Range("G:G")

Должно быть

">=" & DateSerial(Year(Date), Month(Date), 1)

А

DCFws.Range("G:G") <= Date

Должно быть

"<=" & Date

Итак:

MCFws.Range("D4") = Format(Application.WorksheetFunction.SumIfs(DCFws.Range("H:H"), _
    DCFws.Range("G:G"),">=" & DateSerial(Year(Date), Month(Date), 1), DCFws.Range("G:G"), _
    "<=" & Date, DCFws.Range("C:C"), "ERISA") / 1000, "$#,##0")