如何在连续窗体中用Conditional Formatting设置字段颜色显示Top and Bottom 20%值？

当然可以实现！在Access的连续窗体里，你完全可以通过条件格式（Conditional Formatting）给目标字段设置不同颜色，轻松实现类似Excel的Top/Bottom百分比高亮效果。下面分享两种实用方案，根据你的场景选择：

方法一：直接用条件格式的表达式设置（快速上手） #

这是最直接的方式，不需要写代码，适合记录量不大的情况：

• 打开连续窗体的设计视图，选中要设置格式的字段控件（比如显示数值的文本框）。
• 右键点击控件，选择「条件格式」，或者在顶部「格式」选项卡找到「条件格式」按钮。
• 添加第一个条件：
  • 条件类型选择「表达式是」
  • 输入表达式：Not IsNull([你的字段名]) And [你的字段名] >= DPercentile("你的字段名", "数据源表/查询名", "", 0.8)
  • 设置高亮样式（比如背景色设为浅绿），这会标记Top 20%的数值（因为80百分位及以上的数值就是前20%）。
• 添加第二个条件：
  • 条件类型选择「表达式是」
  • 输入表达式：Not IsNull([你的字段名]) And [你的字段名] <= DPercentile("你的字段名", "数据源表/查询名", "", 0.2)
  • 设置另一种高亮样式（比如背景色设为浅红），标记Bottom 20%的数值。

小提示：DPercentile是Access的域聚合函数，参数分别是：目标字段名、数据源名称、筛选条件（留空则包含全部记录）、百分位数值（0.2对应20%分位数，0.8对应80%分位数）。如果你的字段有筛选需求，可以在第三个参数里写筛选条件，比如"Category='电子产品'"。

方法二：先计算阈值再引用（性能优化版） #

如果你的窗体数据源记录量很大，反复调用DPercentile可能会让窗体加载变慢。这时候可以先在窗体加载时计算一次阈值，再在条件格式里引用：

1. 打开窗体的VBA编辑器（按Alt+F11），在窗体的Form_Load事件里添加代码：

Private Sub Form_Load()
    Dim topThreshold As Double, bottomThreshold As Double
    ' 计算Top20%和Bottom20%的阈值
    topThreshold = DPercentile("你的字段名", "数据源表/查询名", "", 0.8)
    bottomThreshold = DPercentile("你的字段名", "数据源表/查询名", "", 0.2)
    ' 把阈值存在窗体的Tag属性里，用分隔符分开
    Me.Tag = topThreshold & "|" & bottomThreshold
End Sub

2. 回到条件格式设置，修改表达式：
   • Top20%的表达式：Not IsNull([你的字段名]) And [你的字段名] >= Split(Me.Tag, "|")(0)
   • Bottom20%的表达式：Not IsNull([你的字段名]) And [你的字段名] <= Split(Me.Tag, "|")(1)

这样阈值只在窗体加载时计算一次，每条记录显示时直接引用，能显著提升大数据集下的窗体性能。

额外注意事项 #

• 确保你的字段是数值类型（比如数字、货币），如果是文本类型需要先转换为数值再比较。
• 如果数据源是动态的（比如窗体打开后数据会更新），可以在Form_AfterUpdate事件里重新计算阈值，保证格式始终准确。

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