To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=54957
User fst changed the following:
What |Old value |New value
================================================================================
Status|UNCONFIRMED |RESOLVED
--------------------------------------------------------------------------------
Resolution| |INVALID
--------------------------------------------------------------------------------
------- Additional comments from [EMAIL PROTECTED] Thu Sep 22 03:40:23 -0700
2005 -------
Hi,
not a bug and not a feature request. But a support question. Such things are
answered on the mailing lists, especially [EMAIL PROTECTED]
Using the following Macro code will do what you want :
function Correction(CellValue As String, TableCell As String)
Dim I As Integer, CurVal As String
Dim SheetName As String, CellName As String
Dim oDoc As Object, oSheet As Object, oCell As Object
I = InStr(TableCell, ".")
SheetName = Left(TableCell, I - 1)
CellName = Right(TableCell, Len(TableCell) - I)
oDoc = ThisComponent
oSheet = oDoc.Sheets.getByName(SheetName)
oCell = oSheet.getCellRangeByName(CellName)
CurVal = Int(CellValue)
MsgBox "Invalid value '" & CurVal & "' for " & CellName
If CurVal > 100 Then
oCell.Value = 100
oCell.CellBackColor = RGB(255, 0, 0)
ElseIf CurVal < 0 Then
oCell.Value = 0
oCell.CellBackColor = RGB(0, 0, 255)
EndIf
Correction = False
End function
Thanks Niklas for the Help on this.
Frank
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
