时间:2020-02-10  来源:百度经验  作者:南霸天mxw  阅读:8

在日常教学生活中,每次考完试,教师都要对学生的成绩进行汇总评价,怎样知道每位学生单科成绩几个了多少,如果学生少还可以数出来,如果学生太多,数起来就太费力了,我们可以用函数嵌套来实现成绩的汇总和突出显示,我们也可以用VBA代码来实现,今天我们就用VBA代码来实现这个功能。

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

新建一张EXCEL工作表,在表中输入:   “姓名

语文

数学

英语

物理

化学”       现在我们填入相关数据。

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

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

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

现在我们来输入代码: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    NextEnd Sub

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

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

Top