| 在学生成绩统计时，要将工作表中成绩小于 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 |
