如何用R语言的OpenXLSX将负数格式化为带括号的样式

要实现无美元符号、无小数位，仅用括号显示负数的会计格式，需要使用Excel自定义数字格式替代内置的ACCOUNTING格式，具体实现如下：

核心实现逻辑 #

通过Excel自定义数字格式规则，分别定义正数、负数的显示样式，同时保留单元格的数值类型：

• 正数：以整数形式正常显示
• 负数：用括号包裹整数显示

代码示例 #

library(openxlsx)

# 创建工作簿与工作表
wb <- createWorkbook()
addWorksheet(wb, "Sheet1")

# 写入你的目标数据（此处为示例数据）
target_data <- data.frame(
  ColA = c(100, -200, 350, -480),
  ColB = c(-75, 120, -300, 500)
)
writeData(wb, "Sheet1", target_data, startRow = 4)

# 创建自定义样式：无货币符号、无小数位，负数用括号
# 若需要千分位分隔符，将numFmt改为"#,##0_);(#,##0)"
custom_style <- createStyle(numFmt = "0_);(0)")

# 将样式应用到指定单元格区域
addStyle(wb, sheet = 1, style = custom_style, 
         rows = 4:7, cols = 1:2,  # 替换为你的目标行、列范围
         gridExpand = TRUE, stack = TRUE)

# 保存工作簿
saveWorkbook(wb, "formatted_result.xlsx", overwrite = TRUE)

格式字符串说明 #

0_);(0)的具体含义：

• 0：指定正数以整数形式显示
• _)：添加一个右括号宽度的空白，让正数与负数的显示宽度对齐
• (0)：指定负数以括号包裹整数的形式显示

此设置下，单元格数据始终保持数值类型，同时满足你需要的显示效果。

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