RU/kb/00000366

Для использования функций Calc в макросе можно воспользоваться функцией из проекта Code Snippets:

Sub callFunction

       svc = createUnoService( "com.sun.star.sheet.FunctionAccess" )

       ' Calculate min of numbers.
       arg = array( 10, 23, 5, 345 )
       print svc.callFunction( "MIN", arg )

       ' Calculate min of values in cell range A1:A17
       oSheet = ThisComponent.Sheets(0) ' Get leftmost sheet
       oCellRange = oSheet.getCellRangeByPosition( 0, 0, 0, 16 ) 'A1:A17
       arg = array( oCellRange )
       print svc.callFunction( "MIN", arg )

End Sub

Данная функция требуется два аргумента:

• Первый — имя функции,
• Второй — её параметры, содержащиеся в массиве.

Template:RUsignyear

---

---

К началу страницы