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

Other Instructions 42
End Sub
Example 2: Case statement
In Cells and Ranges, the following example has the qualifiers in the Case statements
written out completely, for clarity. You can write it more easily, this way:
Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object
Doc = StarDesktop.CurrentComponent
Sheet = Doc.Sheets(0)
Cell = Sheet.getCellByPosition(1,1) 'Cell "B2" (0-based!)
Cell.Value = 1000
With com.sun.star.table.CellContentType
Select Case Cell.Type
Case .EMPTY
MsgBox "Content: Empty"
Case .VALUE
MsgBox "Content: Value"
Case .TEXT
MsgBox "Content: Text"
Case .FORMULA
MsgBox "Content: Formula"
End Select
End With
Notice that the With construct must be entirely outside of the Select construct.
Source: http:/ / wiki. services. openoffice. org/ w/ index. php? title=Documentation/ BASIC_
Guide/ Other_ Instructions&oldid=107794
Principal Authors: TJFrazier