ник: pashulka
Re[1]: Как передать диапазон в функцию VBA ? В случае использования несмежных диапазонов лучше использовать что-то вроде нижеопубликованного примера, так как он будет возвращать действительно корректный результат.
Function dSumm#(Diapazon As Range)
Dim iCell As Range
For Each iCell In Diapazon
If IsNumeric(iCell) = True Then
dSumm# = dSumm# + iCell
End If
Next
End Function
Пример вызова пользовательской функции : =dSumm((A1:B5;A10:F10))
P.S. Сравнение со стандартной функцией рабочего листа =СУММ() не слишком корректно, ибо ей можно передать не только ссылку на ячейку/диапазон ячеек.