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