巧用Excel VBA开发体温检测统计报表软件

马致明 陈兴 林雨萌

摘要：为了有效地检索体温测温系统产生的大量数据，方便每日统计和分析，更好地做好学校新冠肺炎防疫工作，利用Ex-cel VBA开发了体温检测统计报表软件并投入使用，可统计所需的各种数据，并生成体温检测排行榜报表和体温检测报告单，相关设计思路及制作技术做了详细的介绍。

关键词：体测检测;统计报表;Excel;VBA编程;数据库;检索

中图分类号：TP311 文献标识码：A

文章编号：1009-3044（2020）33-0209-03

开放科学（资源服务）标识码（OSID）：

1 前言

2020年，新冠疫情肆虐神州大地，在见证一个个英雄无畏的“逆行者”的同时，我们更懂得了“众志成城，共克时艰”的意义所在。突如其来的疫情挡不住莘莘学子求知的渴望，摧不垮广大师生必胜的信念。按照疫情防控期间“停课不停教，停课不停学”的指示精神，各级各类学校积极响应，2020年春季学期一开始几乎所有学校都开启了线上授课模式。当疫情得到有效控制后，有一部分学校恢复了线下授课模式，并对师生员工进行封闭式管理。

进行封闭式管理的学校，根据疫情防控要求，师生员工每日要进行两到三次的体温检测，随之而来的智能海康人脸测温系统等便出现在学校各种场所，使师生员工每日测温变得更加准确、方便、快捷。但是，测温系统每日都会产生大量的测温数据，有些人员在同一时段可能会出现多次重复的记录，有些人员可能出现不测或漏测的情况，对于人数众多的学校，从这些海量的数据中进行必要的统计、分析和检索是十分必要的，这样可以更加有效地监管各个班级（单位）每一个人员的测温情况，及时发现和督促未测温的人员，更好地做好防疫工作。

为此，我们利用Excel的数据库功能和VBA编程功能第一时间开发了一款针对学校的体温检测统计报表软件，可从测温平台导出的海量测温数据中检索出本学院（部门）中的各班级（单位）每日未测温或测温次数不够的人员信息，并统计出各班级（单位）的应测人次、实测人次、检温率等数据，形成本学院（部门）的日体温检测排行榜报表和体温检测报告单，软件投入使用后给学院（部门）管理人员提供了极大的便利，现将其设计思想和制作方法介绍给各位同行，希望对大家能有所启示。

2 Excel VBA宏编程方法

在Excel VBA编程环境中T作簿Workbook、T作表Work-sheet、区域Range、单元格Cell都是现成的对象，编程的时候可以直接利用;只是这些现成对象中除Worksheet对象外其他对象均未定义事件，无法直接驱动宏代码，驱动宏代码常用以下三种方法：

2.1利用“控件工具箱”中的控件驱动宏代码

借助“控件工具箱”，可以在工作表中添加所需的命令按钮、选项按钮、复选框、文本框等通用控件作为用户接口元素，双击所添加的控件就直接进入VBA代码编辑窗口VBE，选择合适的事件后输入相应的代码，回到Excel工作表窗口后就可以响应相应的事件并驱动宏代码。

“控件工具箱”在不同的Office版本中打开的方式有所不同，在Office 2005及之后的版本中要通過“自定义快速访问工具栏”中的“其他命令”，选择“插入控件”来打开;在Office 2003及之前的版本中要通过“控件工具箱”工具栏来打开。

2.2 利用“插入”菜单中的对象驱动宏代码

借助“插入”菜单（选项卡），可以在工作表中插入自选图形、文本框、艺术字等各种Excel对象，然后通过快捷菜单给这些对象“指定宏”，在弹出的对话框中选择“编辑”，就直接进入VBA代码编辑窗口VBE，系统默认的该对象的事件只有单击事件，输入相应的代码，回到Excel工作表窗口后就可以通过单击该对象来驱动宏代码。

2.3 利用“快捷键”来驱动宏代码

在Excel“视图”菜单的“宏”命令中选择“查看宏”，在弹出的“宏”对话框中输入一个宏名，然后单击“创建”，进入VBA代码编辑窗口，输入相应的代码，返回“查看宏”对话框，给刚刚创建的宏名通过“选项”指定一个快捷键即可。

3 软件总体设计

3.1 工作表设置

创建一个Excel工作簿文件，将工作表Sheet添加至5个，各工作表信息设置如表1所示。

3.2 软件设计思想

将“人员名单”工作表中的每一个人员的姓名跟“原始数据”工作表中的所有数据按姓名逐行比对，即进行检索，找到后按“时段”字节中的信息（早上、中午、晚上）在“人员名单”工作表中对应的字段中填写“已测”，这样就可以从大批量原始数据中检索出各个班级（单位）每个人的三次测温情况。

从“人员名单”工作表中检索每一个人员的测温记录是否有空白，若有则将其信息填入“未测温名单”工作表中，然后按班级（单位）进行统计汇总，将有关信息填人“测温率排名”工作表;同时，计算出当日未测温人数、人次，早、中、晚未测温人数等数据填人“检测报告单”工作表。

为了使工作界面更加简洁，本软件用“快捷键”来驱动宏代码。

4 软件实现技术

4.1 建立一个通用过程

打开Excel“视图”菜单“宏”命名中的“查看宏”，在“宏”对话框中输入宏名“统计”，然后单击“创建”，系统自动打开VBA代码编辑窗口，并生成一个只有首尾两行代码的通用过程：Sub统计0，按照上面的软件设计思想，利用循环结构、选择结构等程序设计的方法，在“统计”子程序过程中编写相应的代码。

4.2 单元格的引用

Excel宏编程时.单元格是需要访问的基本对象，代码中有时需要取出单元格的内容进行运算、判断，有时则需要对单元格内容进行赋值等操作。引用单元格的方式是：

工作表名.Cells（行号，列号）