R语言openxlsx包基于规则的条件格式设置问题咨询

该需求完全可以通过openxlsx包的conditionalFormatting()函数实现，你之前编写的代码存在参数配置错误，无法达到预期效果。

• 列索引配置错误：目标格式化列是B列，对应Excel列序号为2，原代码中cols=12指向的是第12列（L列），未匹配到目标操作列。
• 条件规则写法错误：conditionalFormatting()遵循Excel原生条件格式的引用规则，直接传入B<A属于无效名称引用，无法触发逐行的单元格值对比逻辑。

前置确认 #

• 已通过createWorkbook()或loadWorkbook()生成可用的工作簿对象wb
• 已通过createStyle()定义好需要应用的样式对象myStyle
• 写入Excel的A、B两列为标准日期格式（非文本型日期，否则会按字符串规则对比导致结果错误，若R中存储为字符串需先转为Date类型再写入工作表）

可直接运行的代码 #

如果数据从工作表第1行开始存储（无单独表头行），代码如下：

# 样式示例：B列日期小于同行A列时，单元格填充浅红色、字体显示深红色
myStyle <- createStyle(bgFill = "#FFC7CE", fontColour = "#9C0006")

# 应用条件格式
conditionalFormatting(
  wb = wb,
  sheet = "Sheet1",
  cols = 2, # 固定匹配B列
  rows = 1:nrow(data), # 若第1行为列名表头，将此处改为2:(nrow(data)+1)即可
  rule = "B1<A1", # 以选中区域左上角单元格为基准写相对引用，应用时会自动逐行匹配
  style = myStyle
)

条件格式的规则以选中区域的左上角单元格为基准使用相对引用：当选中B列1到N行作为格式化区域时，左上角单元格为B1，规则B1<A1会在格式应用时自动偏移，逐行判断B行号 < A行号是否成立，完全匹配“仅当B列单元格日期小于A列同行日期时应用样式”的需求。

内容的提问来源于stack exchange，提问作者Cez2020