LibreOfficeのマクロ平均計算

Question

REM ***** BASIC *****

Sub hell_world 
    dim hell_world as object 
    hell_world = Range("G31:G42") 
    Range("H45") = WorksheetFunction.Average(hell_world) 
End Sub 

私はそれを持っていると私はエラーを取得：

BASIC runtime error. 
Sub-procedure or function procedure not defined. 

私は何をすべきか？おかげさまで

Answer 1

6.28. Use FunctionAccess to call Calc FunctionsAndrew Pitonyak's macro documentに記載されているようにXFunctionAccessを使用してください。

Sub CallAverage 
    Dim oSheet, oRange, oCell, nResult, oFuncAcc 
    oSheet = ThisComponent.CurrentController.ActiveSheet 
    oRange = oSheet.getCellRangeByName("G31:G42") 
    oCell = oSheet.getCellRangeByName("H45") 
    oFuncAcc = CreateUnoService("com.sun.star.sheet.FunctionAccess") 
    nResult = oFuncAcc.callFunction("Average", Array(oRange)) 
    oCell.setValue(nResult) 
End Sub