Страницы: 1
RSS
Суммпроизв в VBA с диапазоном по условию
 
Добрый день ,

Прошу помочь перенести формулу суммпроизв и сумм с диапазоном по условию в UDF , формула работает достаточно хорошо , но очень громоздкая получается .

Применена стандартная формулу суммпроизв, но добавлено условие для автоматического определения диапазона суммирования с учетом первой строки для  суммирования строго после формулы , для исключения потери диапазона при добавке в начало или конец новой строки , так же настроена формула суммирования  , через двссыл и прочее.
 
SSL, из описания задачу не понял, из формулы тем более не стал выуживать, но вот SP работает такая:
Код
Function SP(aData1, aData2)
Dim i As Long, x
    aData1 = aData1.Value
    aData2 = aData2.Value
    
    For i = 1 To UBound(aData1)
    x = x + aData1(i, 1) * aData2(i, 1)
    Next
    
   SP = x
    
End Function
 
Hugo, в формуле задается диапазон колонки а , в пределах которого действует формула + должно соблюдаться условие , суммпроизв при условии что в колонке а уровень (число ) больше чем в строке с формулой в колонке А
 
Вообще в суммпроизв() можно добавлять сколько угодно проверок условий суммируемого умножаемого, но как остановиться на какой-то строке не скажу, но в UDF это сделать просто.
 
SSL, в файле два варианта - СУММПРОИЗВ() и UDF, надеюсь угадал.
 
Hugo, но результат с примером не совпадает же , диапазоны при добавлении 1 строки не меняет , а еще имя выдает ошибку
 
SSL, Я делал как понял, не видел пример правильного результата, с чем сравнивать.
Ошибка если макросы не включены, думал раз там уже есть другие UDF то не будет проблем в использовании.
 
Версия2, похоже что нужно так.
UDF тоже работает аналогично.
Страницы: 1
Читают тему
Наверх