Как преобразовать это =СУММ(СЧЁТЕСЛИМН(F4:AN4,{0,1})) в VBA?

Мне нужна помощь в переводе обычной функции Excel в код VBA.

Пожалуйста, посмотрите прикрепленный скриншот кода, который я уже запустил.

Я использую расчеты, показанные на скриншоте, для создания оценочной таблицы/таблицы оценок. Мне нужно будет настроить строки в каждом из них, но не столбцы.

Как только я это выясню, я буду зацикливать их, чтобы повторять их для каждой новой строки по мере их добавления.

изображение моего кода, до сих пор

Снимок экрана


countif vba
person Candice Noelle    schedule 13.04.2017    source источник
comment
Возможный дубликат функции Sum в VBA   -  person M--    schedule 13.04.2017
comment
Разместите код, а не его изображение...   -  person Evan Carslake    schedule 13.04.2017
comment
Сначала погуглите.   -  person M--    schedule 13.04.2017

Ответы (1)


arrow_upward
1
arrow_downward

Когда литеральная строка должна содержать символы двойных кавычек, вам нужно использовать две двойные кавычки подряд для каждой двойной кавычки, которая вам нужна в строке.

Итак, ваша строка

Range("AP4").Formula = "SUM(COUNTIFS(J3:AR3,{"0","1"}))"

нужно выглядеть так:

Range("AP4").Formula = "SUM(COUNTIFS(J3:AR3,{"“0"”,""1""}))"

Вы также можете сделать это, не помещая формулу в содержимое ячейки следующим образом:

Range("AP4") = WorksheetFunction.SUM(WorksheetFunction.COUNTIFS(J3:AR3,{""0"",""1""}))
person Rich Holton    schedule 13.04.2017