在Excel中编写VBA程序提高工作效率
在学生成绩统计时,要将工作表中成绩小于 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
分享到: