很多时候需要给连续窗体添加条件格式,这个只能通过vba代码设置,所以整理了一个示例供需要的人参考,具体的代码如下:
'添加在窗体的加载事件
Dim ctl As Control
For Each ctl In Me
'设置 字段1 文本框的条件格式
If ctl.Name = "字段1" Then
'清除现有条件格式
ctl.FormatConditions.Delete
'给 字段1 文本框 添加第1个条件格式:字段1>0.7 字体颜色为绿色
ctl.FormatConditions.Add acExpression, , "[字段1] > 0.7"
ctl.FormatConditions(0).ForeColor = vbGreen
'给 字段1 文本框 添加第2个条件格式:字段1<0.3 字体颜色为红色
ctl.FormatConditions.Add acExpression, , "[字段1] < 0.3"
ctl.FormatConditions(1).ForeColor = vbRed
End If
Next
示 例:
点击下载此附件