【问题标题】：BASIC runtime error. Sub-procedure or function procedure not definedBASIC 运行时错误。未定义子过程或功能过程
【发布时间】：2016-11-29 01:14:05
【问题描述】：
我要做的是计算 LibreOffice Calc 宏中某些单元格的平均值...
通过此代码：
REM ***** 基本 *****
Private Sub myrange()
myrange = Range("G31:G42")
Range("H45") = WorksheetFunction.Average(myrange)
End Sub
我得到了错误：
BASIC 运行时错误。
未定义子过程或功能过程。
我该怎么办？
【问题讨论】：
标签：
macros
libreoffice
basic
【解决方案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