BASIC 运行时错误。未定义子过程或功能过程

Posted 2023-02-24

【中文标题】BASIC 运行时错误。未定义子过程或功能过程

【英文标题】：BASIC runtime error. Sub-procedure or function procedure not defined

【发布时间】：2016-11-29 01:14:05

【问题描述】：

我要做的是计算 LibreOffice Calc 宏中某些单元格的平均值... 通过此代码： REM ***** 基本 *****

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

End Sub

我得到了错误： 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