玖叶教程网

第一种方法是用active插件

复制这段代码：

Dim x As Integer

Dim y As Integer

For x = 3 To 8 '行循环

For y = 2 To 6 '列循环

If Cells(x, y) < 60 Then 'IF判断条件

Cells(x, y).Interior.ColorIndex = 3 '满足条件添加背景色

End If '结束判断条件

Next y

Next x

效果如下：

第二种方法：利用工作表Worksheet_SelectionChange事件,来动态标注不及格分数的颜色。

1、复制代码

2、右键工作表名称---查看代码---WorkSheet--Worksheet_SelectionChange

效果如下：

总结：无论用哪种方法，都有利有弊。看实际工作需要。

举一反三，感谢支持。