' now set color to Odd (number) rows (are even indexes)ĪctRange = actSheet.getCellRangeByPosition(0,i,lCols,i)ĪctRange.
' set range to one color (performance issue)ĪctRange = actSheet.getCellRangeByPosition(0,lStartRow,lCols,lRows)ĪtPropertyValue("CellBackColor", lEvenColor) ' style heading found: increase start row If INSTR(oCell.CellStyle, "Heading") > 0 then ' watch out on first 4 rows if they might be formatted as heading
MsgBox(sQuestion ,35, sModulSubName & " - " & sModulVersion)ĪctSheet = & CHR(10) & "No: apply to actual sheet only" & CHR(10) & "Should all sheets be affected?" _ "Applying alternating background colors to used cell range."_ ' more than 1 sheet, ask if macro should work on all sheets
#Openoffice conditional formatting color how to#
LEvenColor = RGB(255,200,200) ' kinda red Well organized and easy to understand Web building tutorials with lots of examples of how to use HTML, CSS, JavaScript, SQL, PHP, Python, Bootstrap, Java and XML. & "Macro " & sModulSubName & " will terminate now." _ & CHR(10) & "range in CALC Documents and will only work there."_ & CHR(10) & "background colors to the rows of the used cell"_ & CHR(10) & "This Macro applies alternating, pre-definied" _ "Macro not called from CALC Document." & CHR(10) _
#Openoffice conditional formatting color manual#
Sub colorCalcTableRowsEnglish ' manual extension ' =ĭim sModulName, sModulSubName, sModulVersion 'this program if not, write to the Free Software Foundation, Inc., 59 Temple 'You should have received a copy of the GNU General Public License along with See the GNU General Public License for more details.
'WARRANTY without even the implied warranty of MERCHANTABILITY or FITNESS FOR 'This program is distributed in the hope that it will be useful, but WITHOUT ANY 'Foundation either version 2 of the License, or (at your option) any later 'the terms of the GNU General Public License as published by the Free Software 'This program is free software you can redistribute it and/or modify it under HTH 'Copyright (c) 2004, 2016 Winfried Rohr, re-Solutions Software Test Engineering