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

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

19 Ноябрь 2018, 14:39 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Здесь можно поблагодарить участников форума Улыбка
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Среднее арифметическое в макросе  (Прочитано 570 раз)
0 Пользователей и 1 Гость смотрят эту тему.
rami
Гуру
*******
Online Online

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


MacBook Pro, LibreOffice и Apache OpenOffice


« Ответ #44535: 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!