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 回答