1

我需要有条件地格式化 24 个文本框，每个文本框有 2 条规则。每个规则都略有不同，基于月份。有什么方法可以在一个屏幕上输入我的条件格式规则，这样我就不必点击这么多按钮了？另外，如果我什至需要编辑规则，这将节省大量时间。伪代码：

Style1 = FontFill.Red
Style2 = FontFill.Yellow

txtField1.ConditionalFormatting.Add("<rule text>", Style1)
txtField1.ConditionalFormatting.Add("<rule text>", Style2)

txtField2.ConditionalFormatting.Add("<rule text>", Style1)
txtField2.ConditionalFormatting.Add("<rule text>", Style2)
4

1 回答 1

1

您可以使用FormatConditions.Add 方法代替您的伪代码。在设计视图中打开“Form3”后，我在立即窗口中执行了以下操作：

Forms("Form3").Controls("txtNote").FormatConditions.Add acFieldValue, acBetween, 10, 100
Forms("Form3").Controls("txtNote").FormatConditions(0).ForeColor = vbRed
' confirm the FormatCondition is enabled ...
? Forms("Form3").Controls("txtNote").FormatConditions(0).Enabled
True

然后从表单属性检查格式条件给了我这个......

条件格式屏幕截图

对于 24 个控件，您可以创建一个应用条件格式的过程。当规则改变时修改程序。或者将规则存储在表中，并让过程从表中读取规则。

于 2013-01-16T09:26:25.157 回答