DisplayFormat对象模型.docVIP

 HYPERLINK /index.php/2009/08/17/displayformatobjectmodel/ \o Permanent Link to DisplayFormat对象模型 DisplayFormat对象模型 2009年08月17日, 2:14 下午 ?(目前还没有人投票) 条件格式的新功能也扩展到了对象模型。Excel通常允许用户通过对象模型访问单元格的格式，例如用户可以使用Range对象的interior类访问单元格的格式。 Selection.Interior.Color 返回单元格的背景色。然而，Selection.Interior.Color不会考虑应用到单元格的条件格式。在Excel 2010中，引入了名为DisplayFormat的新类，属于Range对象。这个类提供了一种访问由条件格式规则和像表样式格式单元格那样应用到的格式的方式，而不会影响到已有的单元格格式属性。例如，下面的代码获取活动单元格的填充色（在考虑到应用到单元格的任何条件格式之后）： Selection.DisplayFormat.Interior.Color 让我们看一个如何使用DisplayFormat对象的简单示例。一个书店基于销售目标的程度如何给它的雇员提供红利，红利按下列方式发放： 15%红利——销售目标满足了本年每季度的目标。 5%红利——销售目标满足了本年至少一个季度的目标。 没有红利——没有满足任何销售目标。 在每年开始，书店汇总每个雇员的销售目标如下：然后，书店在单独的工作表中记录实际的销售并使用条件格式高亮显示雇员没有满足销售目标的季度。这些季度使用如下所示的红色背景高亮显示：由于红利在每年末取决于销售人员满足其目标来发放，因此可以设想计算红利百分比的公式将相当复杂。使用新的DisplayFormat对象，可以容易地编写自已定义的函数，利用条件格式规则中的智能来计算红利。本例中，计算雇员红利的函数如下： Function BonusAward(quarters As Range) As Double Dim iBelowTarget As Integer 在目标之下的单元格数 初始化变量 BonusAward = 0.15 默认15%红利-满足所有目标 iBelowTarget = 0 遍历每个单元格 For Each qCell In quarters 如果条件格式单元格背景不是红色(255) If qCell.DisplayFormat.Interior.Color 255 Then BonusAward = 0.05 发放更少的红利 (failed quarter) iBelowTarget = iBelowTarget + 1 End If Next qCell 如果所有的季度都在目标之下则发放零红利 If iBelowTarget = quarters.Cells.Count Then BonusAward = 0 End Function DisplayFormat对象使用许多已存在的类和属性，例如Borders、Characters、Font、Interior和Style，提供了对条件格式结果的访问。由于使用现有的类和属性，因此意味着可以容易地扩展现有的代码来使用它。 本文初译自 HYPERLINK /excel/ \t _blank Excel Team Blog，仅供参考。