On Tue, 2005-02-15 at 01:17, Filip Ruymen wrote:
> Since I know nothing about scripting, is it possible that anyone can
> convert it for me so that it works with OpenOffice?
[remainder snipped]
I assume that the purpose of the macro is that there are more than 3
conditions for changing the cells background colour and thus conditional
formatting does not have sufficient conditions.
I have not converted the commented out turning on and off of sheet
protection. I have left the original VBA code but commented out so that
direct comparisons can be made between VBA and OOo BASIC.
Sub Colors()
'ActiveSheet.Unprotect Password:=""
'Application.ScreenUpdating = False
thisComponent.lockControllers
oController = ThisComponent.CurrentController
oSheet = oController.ActiveSheet
oCells = oSheet.getCellRangeByName("B4:AF15")
'for each cell in selection
For i = 0 to oCells.rows.count - 1
for j = 0 to OCells.columns.count - 1
oCell = oCells.getCellByPosition(j, i)
Select Case UCase(oCell.string)
Case "B"
'cell.Interior.ColorIndex = 1
oCell.CellBackColor = 0 'Black
Case "F"
'cell.Interior.ColorIndex = 45
oCell.CellBackColor = 16750848 'Orange
Case "SV"
'cell.Interior.ColorIndex = 4
oCell.CellBackColor = 65280 'Green
Case "V"
'cell.Interior.ColorIndex = 33
oCell.CellBackColor = 52479 'Blue
Case "Z"
'cell.Interior.ColorIndex = 26
oCell.CellBackColor = 16711935 'Magenta
Case "R"
'cell.Interior.ColorIndex = 36
oCell.CellBackColor = 1677713 'Yellow
Case Else
'cell.Interior.ColorIndex = 50
oCell.CellBackColor = 3381606 'Dark green
End Select
Next
next
' Range("K21").Select
oController.select(oSheet.getCellRangeByName("K21"))
' Application.ScreenUpdating = False This should have been true!
thisComponent.unlockControllers
'ActiveSheet.Protect Password:="", DrawingObjects:=True,
'Contents:=True, Scenarios:=True
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
