LibreOffice Calc Basic GeneralFunction SUMで合計を計算する実験

LibreOffice Calc Basic  GeneralFunction SUMで合計を計算する実験

　

OS LinuxMint 19 Cinnamon 64bit

LibreOffice6.1.0.3

Sub GFSum()
 'GeneralFunction.SUM
 '
    Dim oRange as Object
   
   
        oRange = ThisComponent.Sheets(0).getCellRangeByName("A1:E5")
                       
        oSUM = oRange.computeFunction(com.sun.star.sheet.GeneralFunction.SUM )
       
    msgbox oSUM
   
End Sub

GeneralFunction {
  NONE, AUTO, SUM, COUNT,
  AVERAGE, MAX, MIN, PRODUCT,
  COUNTNUMS, STDEV, STDEVP, VAR,
  VARP
}