在学生成绩统计时，要将工作表中成绩小于 60 的数字标记为红色，如果表非常多，则手工操作十分麻烦，也容易出错。这时，可以编写一段 VBA 程序来实现，既快又准确。在 Excel 中打开工作表，在“工具”菜单中选择“宏”子菜单下的“宏…”，在弹出的“宏”对话框中输入宏名，如 Hong，然后单击“创建”按钮，随后出现“Microsoft Visual Basic”窗口，在模块窗口中输入以下语句，再返回 Excel 界面执行宏即可。
   Sub 标记成绩()
    For i = 2 To 100
     For j = 2 To 20
     score = ActiveSheet.Cells(i, j)
     If score < 60 Then
       ActiveSheet.Cells(i, j).Font.ColorIndex = 3  ’3 = 红色
     Else
       ActiveSheet.Cells(i, j).Font.ColorIndex = 1  ’1 = 黑色
     End If
     Next i
    Next j
   End Sub