Среднее арифметическое в макросе

Автор baphomet, 26 декабря 2017, 14:24

0 Пользователи и 1 гость просматривают эту тему.

baphomet

Здравствуйте уважаемые пользователи. Вопрос может будет примитивный, но очень мне зависит на вашей помощи.
Подскажите пожалуйста как написать макрос который подсчитает среднее арифметическое из колон, а результаты впишет в любые ячейки. 

Вот например колона на каринке. Как подсчитать среднее арифметическое для ячеек А2:А25, а результат вписать в А26?

rami

Например, так:
Sub Main
Dim a(), svc, aver#
oSheet=ThisComponent.Sheets(0)
a=oSheet.getCellRangeByName("A2:A25").DataArray
svc=createUnoService("com.sun.star.sheet.FunctionAccess")
aver=svc.callFunction("AVERAGE",Array(a))
oSheet.getCellRangeByName("A26").setValue(aver)
End Sub