excel学习库

excel表格_excel函数公式大全_execl从入门到精通

VBA编程,设置单元格条件格式方法介绍,FormatCondition对象

Excel中条件格式的运用是一个很快捷的方法,在数据查询或一些特殊数据显示方面有很强大的作用。

既然是条件格式,那么就会涉及到各类条件运算,如大小多少比较,等于比较。

前提是,要了解和掌握一个基本的格式对象FormatConditions

代表一个区域内所有条件格式的集合

如下图所示,了解一下如何新建一个FormatCondition对象。

方法是利用FormatConditions的Add方法来实现。

具体参数如下图所示:

新建格式对象

Range.FormatConditions.Add(xlCellValue, xlEqual, xAddr)

上述代码表示,在Range单元格建立一个条件格式,xlCellValue是以单元格值为指定条件。

xlEqual表示条件判断为"等于","=$A$8"表示与条件格式关联的单元格。

如下示例,设置了一个条件格式,当匹配红色单元格内的值,如果相等就以某种颜色来进行显示。示例中以黄色背景来进行匹配。

这个应用的好处就是,可以十分方便地提取出某些数据的不同,以区别显示,利于查找不同。

实际应用中,还可以将不同分段的数据用不同的颜色格式进行显示,使得一个平淡无奇的表格变得赏心悦目起来。

代码:

'设置条件样式

Private Sub SetStyles()

Dim xAddr As String

xAddr = "=$B$3"

Dim r As Range

Set r = Selection

r.FormatConditions.Delete'删除条件格式

With r.FormatConditions.Add(xlCellValue, xlEqual, xAddr)'新建条件格式

With .Font'设置条件格式字体

.Bold = True

.Italic = True

.ColorIndex = 3

.Underline = True

End With

With .Interior'设置条件格式背景颜色

.Color = RGB(255, 205, 25)

.Pattern = xlPatternLightHorizontal

.PatternColor = RGB(252, 252, 252)

.TintAndShade = 0

End With

With .Borders'设置条件格式边框

.LineStyle = 1

End With

End With

Set r = Nothing

End Sub

FormatCondition对象,方法和属性

本节主要内容学习新建一个格式对象,以及了解一下格式对象FormatCondition的方法和属性。

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

«    2024年12月    »
1
2345678
9101112131415
16171819202122
23242526272829
3031
控制面板
您好,欢迎到访网站!
  查看权限
网站分类
搜索
最新留言
    文章归档
      友情链接