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

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

前期准备工作（包括相关工具或所使用的原料等）

EXCEL软件

详细的操作方法或具体步骤

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

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

现在我们填入相关数据。

单击菜单栏“开发工具”——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)的字体颜色显示为红色

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)的字体颜色显示为绿色

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)的字体颜色显示为蓝色

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)的字体颜色显示为黄色

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)的字体颜色显示为粉色

If

Next

Sub

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

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本文系本人依照真实经历原创，未经许可，谢绝转载。