No.1

条件格式在Excel中应用,十分便捷,可以实现对表格外观可视化进行显式修改,包括表格背景颜色、边框颜色和字体。

如果还不明白这些功能,那么做出来的表格就没有生机,也就说这个条件样式功能运用得好,表格显示效果就十分美观,而且相关提示性会大大增强。

如上图所示,本例中可实现自动新建条件样式,然后对表中数据进行大小判断,可自动改变表格边框颜色、格式和字体颜色格式。

有什么用呢?需要把下面的图记住。

可以实现一眼辨识表格中数据表现出来的特征,如字体、边框和背景。

比如成绩小于60大于80等数据段颜色设置不同,那么是不是一眼就可以看到某些人的某些成绩。

而且,当数据内容变化的时候,样式也会根据数据进行变化,这些就是条件样式的优点。

本节就介绍一下如何利用VBA代码添加条件样式,以及有哪些参数和设置方法。

上图为添加条件样式的语法。

由于条件样式涉及到很多个对象,而且条件样式的方法和属性也难以一次性介绍完。

这里重点只对新建条件样式示例介绍。

语法图中列出了四个参数项,下图是其中前两个参数的可选项,都是要掌握的内容。

Operator参数是条件格式运算符,既然是运算符,那么就指的是等于、小于、大于等一些比较的符号,选择不同的运算符就表示在单元格中要进行什么类型的比较。

上图为条件类型,指定条件格式是基于单元格值还是基于表达式,也就是说是比较什么,是数据还是字符还是日期还是空值等等。

这个类型很重要,如果类型没有选择正确,那么比较出来的结果可能不是想要的结果。

No.2

重点还是用代码来演示一下,文字介绍只能讲讲道理,而真正要实现这个方法,还是要用代码来实现,当把这些代码运行之后,数据表中会很好体现出上述文字的所有内容。

新建条件样式

Private Sub CommandButton1_ClickWith Range("A4:F10").FormatConditions.Add(xlCellValue, xlGreater, "=$B$3")With .Borders '设置边框样式.LineStyle = xlContinuous.Weight = xlThin.ColorIndex = 9End WithWith .Font '设备字体样式.Bold = True.ColorIndex = 3End WithEnd WithEnd Sub

前而介绍了,新条件样式使用FormatConditions.Add方法。

方法前要添加单元格区域,如Range("A4:F10")也就是说,新建的样式只适用于这个区域内,其它单元格并不适用。

新建完成之后,可以对$B$3单元格进行数据录入,这个单元格就是关联单元格,当这个数据变化的时候,此单元格内的值将与Range("A4:F10")区域内的值进行比较,如果符合条件就设置为条件样式里的样式。

是不是好理解,此方法仅仅是数值比较的一个示例,也可以实现字符比较,以后有机会再写字符比较的示例。

当前工作薄中条件样式

Private Sub CommandButton2_ClickDim i As Integer, ix As IntegerDim cell As Range, actFC As FormatConditionSet cell = ActiveSheet.Range("H5")i = ActiveSheet.Cells.FormatConditions.Countcell.Offset(-1, 1).Value = iFor ix = 1 To iSet actFC = ActiveSheet.Cells.FormatConditions(ix)With cell.Offset(ix, 0).Value = ix.Offset(ix, 1).Value = actFC.Type.Offset(ix, 2).Value = actFC.Formula1End WithNext ixEnd Sub

如果想要获取当前工作薄中的所有条件样式,可使用上述代码获得。

条件样式很值得学习,当把这部分完全掌握之后,对于表格处理将是一个质的提高。

希望本节对大家学习Excel 有用。

相关文章