OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki

Editing Spreadsheet Documents 150
variance based on the total population
The following example computes the average value of the A1:C3 range and prints the result
in a message box:
Dim Doc As Object
Dim Sheet As Object
Dim CellRange As Object
Doc = StarDesktop.CurrentComponent
Sheet = Doc.Sheets.getByName("Sheet 1")
CellRange = Sheet.getCellRangeByName("A1:C3")
MsgBox
CellRange.computeFunction(com.sun.star.sheet.GeneralFunction.AVERAGE)
Deleting Cell Contents
The clearContents method simplifies the process of deleting cell contents and cell ranges in
that it deletes one specific type of content from a cell range.
The following example removes all the strings and the direct formatting information from
the B2:C3 range.
Dim Doc As Object
Dim Sheet As Object
Dim CellRange As Object
Dim Flags As Long
Doc = StarDesktop.CurrentComponent
Sheet = Doc.Sheets(0)
CellRange = Sheet.getCellRangeByName("B2:C3")
Flags = com.sun.star.sheet.CellFlags.STRING + _
com.sun.star.sheet.CellFlags.HARDATTR
CellRange.clearContents(Flags)
The flags specified in clearContents come from the
com.sun.star.sheet.CellFlags
constants list. This list provides the following elements:
VALUE
numerical values that are not formatted as date or time
DATETIME