用单元格变更的时间驱动程序。下面的代码供参考。本例中是C列数据发生变更时,自动填充颜色。代码如下: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If ActiveCell.Column = 3 Then With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent6 .TintAndShade = 0.399975585192419 .PatternTintAndShade = 0 End With End If End Sub