在 Excel 中编写 VBA 程序提高工作效率

Question

如题所述

Answer 1

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