xlsx()包，是可以让R读、写、格式化xlsx文件的扩展包（接上篇）。
3.修改单元格底色。
先给出代码：
> # 定义浅灰色底填充。
> fillGrey <- Fill(foregroundColor="GREY_25_PERCENT",
backgroundColor="GREY_25_PERCENT",
pattern="SOLID_FOREGROUND")
> # 先读取要改变格式的行数据。（在数据块里是第j行(header=TRUE),在excel里就是第j+1行）
> rows.rr <- readRows(sheet.rr, startRow = j+1,
endRow = j+1, startColumn = 1, endColumn = 8)
> # 准备更改数据格式的方块。这一准备，就把选定区域的数据全部清空了,所以要先读取数据。
> xiaohulistdata_block <- CellBlock(sheet.rr,startRow = j+1,
startColumn=1, noRows=1,
noColumns=8,create=FALSE)
> for(i in 1:8)
> {
> # 逐格填充浅灰底色，再写入数据。
> CB.setFill(xiaohulistdata_block, fillGrey, colIndex = i, wIndex=1)
> # 给每一列贴数据
> CB.setColData(xiaohulistdata_block, rows.rr[,i], i, rowOffset=0,
showNA=F, colStyle=NULL)
> }
代码的功能是对sheet.rr第j+1行第1到8列的单元格填充浅灰色。
只能从POI颜色的列表中选择，用其他单词或者数值都显示为黑色。
第一个数值表示这个颜色的short值
第二个名字表示 颜色名
第三个是对应的颜色
POI颜色.png
