将一个条件格式化宏应用到当前表格而不是一个命名表格。
代码示例:
Sub ApplyFormatToTable() Dim tbl As ListObject Dim cf As FormatCondition Set tbl = ActiveSheet.ListObjects(1) Set cf = tbl.ListColumns(3).FormatConditions.Add( _ Type:=xlCellValue, Operator:=xlLess, Formula1:="100000") With cf .Interior.Color = vbRed .Font.Bold = True End With End Sub
在上面的示例中,我们将条件格式设置为,如果第3列中的单元格小于100000,则将单元格的颜色设置为红色,将其字体加粗。请注意,我们使用比较运算符“xlLess”来确定哪些单元格符合条件格式。