EXCEL技巧——如何利用VBA突出显示及格学生

1、   新建一张EXCEL工作表，在表中输入：

   “姓名      语文      数学      英语      物理      化学”   

    现在我们填入相关数据。 

2、  单击菜单栏“开发工具”——VisualBasic，打开VBA编辑器，我们将在其中来编写代码。

3、   单击VBA编辑器菜单栏“插入”——模块，打开代码编辑窗口，我们在空白区域编入代码即可。

4、   

    现在我们来输入代码：

Sub 突出显示及格学生()

    Dim i As Integer

    For i = 2 To 15                                 '定义i从第2行到第15行

        If Sheets(5).Cells(i, 2).Value >= 72 Then   '如果单元格(i, 2)的值大于等于72，则

            Sheets(5).Cells(i, 2).Select

            Selection.Font.FontStyle = "加粗"       '单元格(i, 2)的值加粗

            Selection.Font.ColorIndex = 3           '单元格(i, 2)的字体颜色显示为红色

        End If

        If Sheets(5).Cells(i, 3).Value >= 72 Then   '如果单元格(i, 3)的值大于等于72，则

            Sheets(5).Cells(i, 3).Select

            Selection.Font.FontStyle = "加粗"       '单元格(i, 3)的值加粗

            Selection.Font.ColorIndex = 4           '单元格(i, 3)的字体颜色显示为绿色

        End If

        If Sheets(5).Cells(i, 4).Value >= 72 Then   '如果单元格(i, 4)的值大于等于72，则

            Sheets(5).Cells(i, 4).Select

            Selection.Font.FontStyle = "加粗"       '单元格(i, 4)的值加粗

            Selection.Font.ColorIndex = 5           '单元格(i, 4)的字体颜色显示为蓝色

        End If

        If Sheets(5).Cells(i, 5).Value >= 60 Then   '如果单元格(i, 5)的值大于等于60，则

            Sheets(5).Cells(i, 5).Select

            Selection.Font.FontStyle = "加粗"       '单元格(i, 5)的值加粗

            Selection.Font.ColorIndex = 6           '单元格(i, 4)的字体颜色显示为黄色

        End If

        If Sheets(5).Cells(i, 6).Value >= 60 Then   '如果单元格(i, 6)的值大于等于60，则

            Sheets(5).Cells(i, 6).Select

            Selection.Font.FontStyle = "加粗"       '单元格(i, 6)的值加粗

            Selection.Font.ColorIndex = 7           '单元格(i, 6)的字体颜色显示为粉色

        End If

    Next

End Sub

5、   在VBA菜单栏中单击“运行”——运行子程序/用户窗体，现在在EXCEL工作表中可以看到及格学生的成绩发生了变化。