Excel和VB混合编程在自动分检衡器检测数据处理中的应用

　　1 前言

　　Excel 是人们日常数据处理中经常使用的工具，这一点在自动分检衡器检测的数据处理中也不例外。一般情况在数据处理时会利用 Excel 的函数公式进行计算，但由于 Excel 函数公式自身的局限性，在数据处理时很难实现多种条件通用处理函数和公式。如根据试验载荷重量值的不同给出对应的最大允许误差，根据输入的数据不修改数据处理函数和公式自动给相应的处理结果等。但如果将 VB 编程与 Excel 结合使用，便能较好的解决以上的问题。这一方法运用在自动分检衡器的数据处理中就能实现以下功能要求：

　　(1) 能对任意试验次数 X 类自动分检衡器的数据进行处理，无需重新编写公式，避免了因编写公式时的疏忽导致数据处理出错;

　　(2) 能根据试验载荷的质量值计算出最大允许标准偏差、最大平均误差;

　　(3) 能根据输入的检测数据计算出标准偏差、平均误差和读数平均值;

　　(4) 电子表格能直接以记录表格形式输出。

　　下面就依据 OIML R51- 2006(E) 《Automaticcatchweighing instruments》 国际建议中的试验方法及实际操作要求，详细说明如何利用 Excel 和 VB混合编程创建这个电子表格。

　　2 基本信息录入

　　首先新建一个 Excel 电子表格文档，分别在A2～A11、C2～C11、E2～E117 等单元格中输入“委托单号、原始记录号、证书编号、检定日期、检测地点、控制衡器名称、控制衡器 Max、控制衡器分度值、控制衡器型号、仪器名称、出厂编号、制造厂、型号 / 规格、分度值( )、最大秤量”等文字，如图 1 所示。

　　3 数据表格录入

　　由于自动称量试验前须先对试验物品逐一编号、称出每一个试验载荷的约定真值并根据载荷的质量值确定试验称量的次数。试验称量次数最多为 60 次，故在 A14、B14、C14、D14、E14、F14、G14、H14 中依次输入“序号、Ii、Li、xi、序号、Ii、Li、xi”，其中“序号”下面从 A15～A44中分别输入数字 1～30，E15～E44 中分别输入数字 31～60，其中 Ii、Li、xi分别表示由自动分检衡器的试验载荷示值、试验载荷的约定真值及该次的误差值。在 C13 输入“试验次数”使用表格时分别在 B15～B44 及 F15～F44 中输入各次自动分检衡器的试验载荷示值，在 C15～C44 及 G15～G44 中输入对应试验载荷的约定真值，在 D13、A45、C45、E45、G45、B46、E46 分别输入“试验次数、读数平均值、平均误差、标准偏差、等级因子、最大允许平均误差、最大允许标准偏差”如图 2 和图 3 所示。

　　4 VB 编程数据处理程序