VBA自定义单元格格式问题：箭头显示异常与百分比格式错误求助

问题1：箭头显示为方框 #

原因：你使用的ChrW(24)、ChrW(25)并非标准上下箭头的Unicode编码，且格式代码中的方括号未转义，Excel会将其解析为格式规则而非普通文本，导致显示异常。
修复：直接使用字符串"↑"和"↓"（或对应Unicode编码ChrW(&H2191)、ChrW(&H2193)），同时将方括号及内部内容用双引号括起来（VBA中用两个双引号表示一个），确保Excel将其视为文本后缀。

问题2：百分比显示错误（0.6显示6%而非60%） #

原因：格式代码中的方括号未转义，干扰了百分比格式的正常解析；另外需确认单元格赋值的是正确的0-1之间的销售比率数值。
修复：修正格式代码的转义逻辑，同时确保单元格Value赋值正确。

修正后的完整代码 #

' 先给单元格赋值从另一张表查到的销售比率（0到1之间的数值）
Cells(i, j).Value = sales_ratio

' 根据sales_thershold设置格式
If sales_thershold > 10 Then
    Cells(i, j).NumberFormat = "0%""[↑" & sales_thershold & "]"""
ElseIf sales_thershold < 0 Then
    Cells(i, j).NumberFormat = "0%""[↓" & (sales_thershold * -1) & "]"""
Else
    Cells(i, j).NumberFormat = "0%""[" & sales_thershold & "]"""
End If

代码说明 #

• ""用于在VBA中表示格式代码里的单个双引号，让Excel将[↑15]这类内容识别为普通文本，而非格式规则的一部分。
• 直接使用↑、↓字符串，避免Unicode编码错误，更直观可靠。
• 确保sales_ratio是0到1之间的数值，比如0.6会被0%格式正确显示为60%，0.61显示为61%。

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