多条件格式

半夜罗　发表于：2019-01-19 09:42:27 　

看到了竹笛老师的“用VBA代码实现条件格式示例”，觉得非常实用，但问题是只是一个条件和一个格式，如果需要多个不同的条件，同时显示多个不同的格式，怎么写？比如：完成率小于50%为红色，完成率小于80%为**，完成率100%为绿色，等。虽然用窗体或报表的条件格式能做到，但用VBA代码怎么做？我想请教的就是用VBA代码做的问题。

Top

仙来发表于：2019-01-19 12:46:00

可以用Case函数

Top

半夜罗发表于：2019-01-19 13:27:43

Private Sub Form_Load()

'sfrChild是子窗体控件的名称,me.sfrChild.Form即代表子窗体
SetMyFormat Me.sfrChild.Form, "完成率 < 0.8"
End Sub

Function SetMyFormat(frm As Form, tj As String) As Boolean
'修改正王樵民老师示例中的函数
Dim ctl As Control
Dim fcd As FormatCondition
For Each ctl In frm.Controls
'如果控件是文本框或组合框
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
intCount = 0
'清除条件格式
ctl.FormatConditions.Delete
'添加条件格式
ctl.FormatConditions.Add acExpression, acEqual, tj
Set fcd = ctl.FormatConditions.Item(intCount)
'具体的格式显示
With fcd
.BackColor = 255 '背景色红色
.ForeColor = 0 '前景色黑色
End With
End If
Next ctl
SetMyFormat = True
Set ctl = Nothing
Set fcd = Nothing

End Function

这是原代码，请问在哪里修改？想得出上图中的效果。谢谢！

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

多条件格式