вычисления в каком-либо диапазоне

[aniutik]

Помогите, пожалуйста, новичку.
У меня такая вот задача.
Нужно, чтобы пользователь выделил какой-либо диапазон, запустил макрос и в макросе произвелись какие-либо вычисления.
(Первое, что нужно сделать - посчитать сумму по строкам и вывести ее в первом свободном столбце справа.)
Как выделять какой-либо диапазон я знаю, но у меня не получается использовать стандартные функции, например sum, не указывая конкретные имена ячеек.

[GSerg]

selection.cells(1,selection.columns.count).offset(0,1).value=application.worksheetfunctions.sum(selection)

[aniutik]

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

[GSerg]

Код: Выделить всё

Dim r As Excel.Range, c As Long

c = Selection.Columns.Count
For Each r In Selection.Rows
  r.Cells(1, c).Offset(0, 1).Value = Application.WorksheetFunction.Sum(r)
Next

[aniutik]

спасибо огромное, все заработало, по аналогии другии функции теперь делать буду