BASIC運行時錯誤。子程序或功能程序沒有定義

Question

我想要做的是計算LibreOffice Calc宏的一些單元格的平均值... 通過以下代碼： REM ***** BASIC *** **

Private Sub myrange() 
myrange = Range("G31:G42") 
Range("H45") = WorksheetFunction.Average(myrange) 

End Sub 

我得到了錯誤： BASIC運行時錯誤。 子程序或功能程序未定義。 我該怎麼辦？

Answer 1

如果嘗試平均細胞G31：G42和結果插入電池，然後H45以下宏可能幫助你：

Private Sub myrange() 
Dim Doc, myrange, sheet As Object 

Doc = ThisComponent 
sheet = Doc.Sheets(0) 
sheet.getCellRangeByName("H45").Formula = "= AVERAGE(G31:G42)" 
End Sub