excel 是一款广泛使用的数据处理软件,其内置的 vba(visual basic for applications)功能支持自动化编程操作。本文将演示如何通过编写 vba 代码,快速统计学生成绩表中不及格(低于60分)的人数,从而显著提高数据统计效率。
1、 启动 Excel 并打开包含学生成绩的工作簿文件,如下图所示。
2、 按下组合键 Alt + F11,进入 VBA 开发环境;在左侧“工程资源管理器”中选中目标工作表(如 Sheet1),右侧即出现空白的代码编辑窗口,界面如下所示。

3、 在代码编辑区输入完整的统计程序。
4、 编写一个名为“CountFailStudents”的子过程(Sub)用于执行统计任务。
5、 统计完成后,变量 k 将保存不及格人数,请留意运行结果提示。
6、 本例以 B2:B13 区域为统计范围,自动识别并统计其中小于 60 的数值个数,并弹出友好提示框显示结果,效果如下图所示。

7、 将光标置于代码任意位置(建议放在 Sub 和 End Sub 之间),点击工具栏上的“运行子过程”按钮(绿色三角形图标),执行代码,操作界面如下所示。
websenB2B是一套经过完善设计的B2B行业网站程序,是windows nt系列环境下最佳的B2B行业网产站解决方案。精心设计的架构与功能机制,适合从个人到企业各方面应用的要求,为您提供一个安全、稳定、高效、易用而快捷的行业网站商务系统。分普及版和商业版等不同版本。一、网胜B2B电子商务系统SP6.2蓝色风格普及版本升级功能说明:1、邮件群发功能:可以选择某一级别的会员,并放入支持html

8、 运行完毕后关闭 VBA 编辑器,返回 Excel 主界面,即可看到弹出的统计结果对话框,明确显示不及格学生总人数,如下图所示。

9、 打开 Excel 应用程序,并加载含成绩数据的目标工作表。
10、 使用快捷键 Alt + F11 快速调出 VBA 编辑器。
11、 在代码窗口中输入以下核心逻辑代码:
12、 点击“运行子过程”按钮(或按 F5 键)启动程序执行。
13、 程序将自动扫描指定区域,完成不及格成绩数量的统计,并以消息框形式反馈结果。









