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に結果を挿入し、次のマクロ5月には、次のことに役立ちます。

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

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