龙空技术网

VBA代码实例之For循环嵌套的魅力

VBA代码实例 519

前言:

此刻朋友们对“for循环嵌套举例”大约比较关切,朋友们都需要分析一些“for循环嵌套举例”的相关知识。那么小编同时在网上汇集了一些有关“for循环嵌套举例””的相关内容,希望同学们能喜欢,我们一起来学习一下吧!

第一种方法是用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

效果如下:

用active按钮实现不及格分数的标注

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

1、复制代码

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

效果如下:

利用工作表事件完成不及格的标注

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

举一反三,感谢支持。

标签: #for循环嵌套举例