1、通过实例【分数大于90的单元格涂为红色】，来分享【for each...next循环语句之应用】！
2、在【开发工具】菜单下点击工具栏【visual basic】按钮，进入【VBA】窗口！
3、在【VBA】界面，点击【菜单栏】中的【插入】，在其下拉菜单中选取【模块】，会弹出【代码编辑】窗口！
4、在【代码编辑】窗口，输入如下代码。
Sub 大于90的单元格涂红色()
Dim rng As Range
For Each rng In Sheet5.Range("b3:b12")
Select Case rng
Case Is >= 90
rng.Interior.ColorIndex = 3
End Select
Next
End Sub
5、在【VBA】窗口中点击EXCEL图标，如图所示，则返回工作表界面。
6、在【EXCEL工作表】中，点击【菜单栏】中的【开发工具】，在其工具栏内，点击【插入】按钮，在选框中，选取一按钮，在工作表空白单元格处，用鼠标拉出一按钮，在同时弹出的【指定宏】窗口中，选择编辑的代码，点击【确定】。
7、将按钮重命名为【涂色】，点击按钮，瞬间OK！
