VBA中for each...next循环语句之应用（一）

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！