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

使用XFunctionAccess如在Andrew Pitonyak's macro document的6.28. Use FunctionAccess to call Calc Functions中所述。

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