Excel 新建条件格式方法，参数详解，学好VBA从简单开始( 二 )

本文插图
新建条件样式
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 = http://news.hoteastday.com/a/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 有用。