Цитата:
Сообщение от Leto III
sourse, рекурсию нужно как-то так реализовывать (считает начиная с нижней клетки вверх до первой, где встретит нечисловое значение).
|
А нафига там рекурсия-то? Обычный while.
VB давно не извращался, но навскидку будет что-то вроде
Function MySum(c as Cell)
var sum = 0;
var i = 0;
While(IsNumeric(Cell.Offset(-i).Value)) Then
sum = sum + Cell.Offset(-i).Value;
i++;
End While
Return sum;
End Sub
Как-то, хотя синтаксис могу и наврать.