Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

25 Апрель 2018, 09:33 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Среднее арифметическое в макросе  (Прочитано 281 раз)
0 Пользователей и 1 Гость смотрят эту тему.
baphomet
Новичок
*
Offline Offline

Сообщений: 1


« Стартовое сообщение: 26 Декабрь 2017, 14:24 »

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

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

* fajl1.ods (9.28 Кб - загружено 5 раз.)
Записан
rami
Гуру
*******
Offline Offline

Пол: Мужской
Сообщений: 2 466


MacBook Pro, LibreOffice и Apache OpenOffice


« Ответ #1: 26 Декабрь 2017, 14:51 »

Например, так:
Код:
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
Записан

Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!