Difference between revisions of "RU/kb/00000366"
From Wiki
Jump to navigationJump to searchm (moved RU/kb/61000003 to RU/kb/00000366) |
|||
| (12 intermediate revisions by 2 users not shown) | |||
| Line 1: | Line 1: | ||
| − | {{DISPLAYTITLE:База Знаний: Программирование. StarBASIC. Использование функций | + | <section begin=title /><noinclude>{{DISPLAYTITLE:База Знаний: Программирование. StarBASIC. </noinclude>Calc. Использование функций в коде макросов<noinclude>}}</noinclude><section end=title /> |
| − | + | {{BreadCrumbL10n|RU/kb/common/programming/macros}} | |
| − | __NOTOC__ | + | __NOTOC__ |
Для использования функций Calc в макросе можно воспользоваться функцией из проекта [http://codesnippets.services.openoffice.org/Calc/Calc.UsingBuiltinFunctions.snip Code Snippets]: | Для использования функций Calc в макросе можно воспользоваться функцией из проекта [http://codesnippets.services.openoffice.org/Calc/Calc.UsingBuiltinFunctions.snip Code Snippets]: | ||
| Line 27: | Line 27: | ||
| − | |||
| − | {{ | + | |
| − | {{ | + | {{SignYear|rail|Р. А. Алиев|2010}} |
| + | {{RUkbMacrosBottom}} | ||
Latest revision as of 17:34, 17 September 2011
Для использования функций 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Данная функция требуется два аргумента:
- Первый — имя функции,
- Второй — её параметры, содержащиеся в массиве.
