xlsx()包，是可以讓R讀、寫、格式化xlsx文件的擴展包（接上篇）。

3.修改單元格底色。

先給出代碼：

    > # 定義淺灰色底填充。
    > fillGrey <- Fill(foregroundColor="GREY_25_PERCENT", 
                     backgroundColor="GREY_25_PERCENT",
                     pattern="SOLID_FOREGROUND") 
    > # 先讀取要改變格式的行數(shù)據(jù)。（在數(shù)據(jù)塊里是第j行(header=TRUE),在excel里就是第j+1行）
    > rows.rr <- readRows(sheet.rr, startRow = j+1, 
                          endRow = j+1, startColumn = 1,  endColumn = 8)
    > # 準備更改數(shù)據(jù)格式的方塊。這一準備，就把選定區(qū)域的數(shù)據(jù)全部清空了,所以要先讀取數(shù)據(jù)。 
    > xiaohulistdata_block <- CellBlock(sheet.rr,startRow = j+1, 
                                        startColumn=1, noRows=1, 
                                        noColumns=8,create=FALSE) 
    > for(i in 1:8)
    > {
    >     # 逐格填充淺灰底色，再寫入數(shù)據(jù)。
    >     CB.setFill(xiaohulistdata_block, fillGrey, colIndex = i, wIndex=1)
    >     # 給每一列貼數(shù)據(jù)
    >     CB.setColData(xiaohulistdata_block, rows.rr[,i], i, rowOffset=0,
                    showNA=F, colStyle=NULL)
    > }

代碼的功能是對sheet.rr第j+1行第1到8列的單元格填充淺灰色。

只能從POI顏色的列表中選擇，用其他單詞或者數(shù)值都顯示為黑色。

第一個數(shù)值表示這個顏色的short值
第二個名字表示 顏色名
第三個是對應的顏色

POI顏色.png