Difference between revisions of "RU/kb/00000366"

From Wiki
Jump to navigationJump to search
(основной текст)
 
 
(15 intermediate revisions by 2 users not shown)
Line 1: Line 1:
{{DISPLAYTITLE:База Знаний: Настройка. Использование функций Calc в коде макросов}}
+
<section begin=title /><noinclude>{{DISPLAYTITLE:База Знаний: Программирование. StarBASIC. </noinclude>Calc. Использование функций в коде макросов<noinclude>}}</noinclude><section end=title />
[[RU/kb/macros|База Знаний: Настройка. Макросы {{OOo}}]]
+
{{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:
  
  
[[RU/kb/index/70|Индекс: Настройка]]
 
  
{{RU/documentation/signyear|rail|Р. А. Алиев|2010}}
+
 
{{KbSettingsВottom}}
+
{{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

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

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











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