значение формулы в VBA - Microsoft Office Excel

Jaroslav · 27.10.2014, 15:21

Добрый день. Пишу в ячейке G2 формулу: "=СУММПРОИЗВ((ПСТР($A$2:$A$12000;1; 3)="311")*($B$2:$B$12000=F2);$D$2:$ D$12000)"

Хочу в VBA получить значение вышеописанной формулы.
На VBA пишу следующий код:

Код:

Range("G2") = _
WorksheetFunction.SumProduct((WorksheetFunction.Mid(Range("A2:A12000"), 1, 3) = "311") * (Range("B2:B12000") = Range("F2")), Range("D2:D12000"))

Выдает ошибку 438 Object doesn't support this property or metod

Что я делаю не так?

IgorGO · 27.10.2014, 16:28

Ваша попытка скрестить формулу и ВБА увенчалась рождением не жизнеспособного выражения
пробуйте так

Код:

MsgBox Application.Evaluate("=SUMPRODUCT((MID($A$2:$A$12000,1,3)=""311"")*($B$2:$B$12000=F2),$D$2:$D$12000)")

Jaroslav · 27.10.2014, 16:39

Спасибо, IgorGO. Все получилось

27.10.2014, 15:21	#1
Jaroslav Форумчанин Регистрация: 08.06.2009 Сообщений: 179	значение формулы в VBA Добрый день. Пишу в ячейке G2 формулу: "=СУММПРОИЗВ((ПСТР($A$2:$A$12000;1; 3)="311")($B$2:$B$12000=F2);$D$2:$ D$12000)" Хочу в VBA получить значение вышеописанной формулы. На VBA пишу следующий код: Код: `Range("G2") = _ WorksheetFunction.SumProduct((WorksheetFunction.Mid(Range("A2:A12000"), 1, 3) = "311") (Range("B2:B12000") = Range("F2")), Range("D2:D12000"))` Выдает ошибку 438 Object doesn't support this property or metod Что я делаю не так?

27.10.2014, 16:28	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Ваша попытка скрестить формулу и ВБА увенчалась рождением не жизнеспособного выражения пробуйте так Код: `MsgBox Application.Evaluate("=SUMPRODUCT((MID($A$2:$A$12000,1,3)=""311"")($B$2:$B$12000=F2),$D$2:$D$12000)")` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете Последний раз редактировалось IgorGO; 27.10.2014 в 16:34.*

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Часть формулы = переменное значение определенной ячейки	Старый Лыжник	Microsoft Office Excel	3	21.01.2015 08:46
Аналог формулы СУММЕСЛИ на VBA	bud-dy	Microsoft Office Excel	7	03.02.2014 06:01
Макрос не распознает значение из формулы.	user name	Microsoft Office Excel	45	02.06.2013 19:08
эксел формулы в vba	Kirja23	Microsoft Office Excel	5	27.02.2013 00:34
VBA. Решение формулы	Mnsh	Помощь студентам	1	06.03.2012 19:49

27.10.2014, 16:39	#3
Jaroslav Форумчанин Регистрация: 08.06.2009 Сообщений: 179	Спасибо, IgorGO. Все получилось