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