文章利用常用办公软件excel的函数和VBA功能编制了 0.4级和0.6级压力表检定数据处理模型。该模型可以根据录人信息自动填充原始 记录和检定证书,能有效避免数据处理错误,切实提髙检定效率。

1.模型功能介绍

弹簧管式精密压力表检定数据处理模型分为三部 分:被检仪表和标准器信息录入模块、精密压力表检定记 录表模块、精密表检定证书内页生成模块。由于各计量 技术机构检定证书封面格式并不一致，本模型并未包含 精密压力表检定证书封面。

1.1被检仪表和标准器信息录入模块

打开excel软件，新建一个空白工作簿，在工作表 sheetl中建立被检仪表和标准器信息录入模块，如图1。

被检仪表：使用单位^号 _£2_测置范围Mr**碥度等aju 制造厂1/10分度值G3 1/10分度值小数位J3 使用标准器:名# 器号 S*范围—!l_MPn准碥度等级JM

检定用工作介质 D5,E5检定时室温65 t

田1被检仪表和标准瞿信息录入横块

依据JJG49- 1999，该模块录人被检仪表信息包括 使用单位、器号、测量范围、准确度等级、制造厂;使用标 准器信息包括名称、器号、测量范围、准确度等级;检定信 息包括检定用工作介质、检定时室温。为便于计算检定 点平均值并正确设置数据小数点位数，在被检仪表信息 中增加1/10分度值和1/10分度值小数点位数。

1.2精密压力表检定记录表模块

在sheet2中建立0 ?4级和0.6级精密压力表检定记 录表模块，如图2所示。该模块主要功能为引用被检仪 表和标准器信息，录人检定数据，计算各检定点示值误 差、回程误差和平均值，计算示值误差、回程误差和轻敲 位移的最大值和允许值，给出检定结论。

1.3精密表检定证书内页生成模块

在sheet3中建立精密压力表检定证书内页生成模 块，如图3。该模块主要功能为通过引用精密压力表检 定记录表模块中的信息生成检定证书内页。

2.模型功能需求分析

模型的功能需求主要来自三个方面:单元格格式、单 元格引用、数值计算。

2.1单元格格式

在模型中,不同模块不同位置的单元格功能需求不 同。首先,为了使模块生成的原始记录和检定证书在打 印后美观,要根据单元格内容正确设置字体、字号、下划 线、对齐方式以及缩小字体填充等格式。其次,对于数值 型数据要能够在录入或计算后自动准确的调整小数点位 数:如果数值为零,则显示为“0”;否则,数值小数点位数与 1/10分度值相同。最后,在检定证书的检定数据区域,要根据被检仪表检定点个数自动合并适当行数的单元格，设置 数值水平居中。在最后一个检定点数据下方居中划一条 4cm直线，并在直线下方标注?以下空白)”。

2.2单元格引用

为避免重复录人，工作表sheet2和sheet3涉及到 sheetl录入数据的直接从sheetl中引用;sheet3检定数 据的“标准压力值”引用sheet2中的“标准器的压力值 (真空值)”，“检定值”引用sheet2中的“检定点各次示值 读数平均值”。

2.3数值计算

在模型中，数值计算区域集中在工作表sheet2中， 分为四类:第一类是各检定点计算值。要求:录入检定点 两次检定数据后计算“检定点示值的最大值与最小值之 差”、“检定点各次示值读数的平均值”;录入检定点标称 值和两次检定数据后计算“检定点各次的读数与该点标 称值的最大偏差”。第二类是被检仪表检定项目最大值。 要求:录人D9: G9单元格数据后计算“示值最大值与最 小值之最大差值”;录入H9单元格数据后计算“指针最 大示值变动量”；录入B9: G9单元格数据后计算“检定点 各次读数与该点标称值的最大偏差”。第三类为被检仪表 检定项目允许值。要求:录人sheetl中测量范围和准确度等 级后tW回程误差允许值、指针变动量允许值以及允许误 差。第四类为检定结果。要求:录人B9:I9单元格数据以及 sheetl中的测量范围和精确度等级后进行判断赋值。数值 將区和判断前显示空字符。

3.excel的实现过程

Excel是一款功能非常强大的电子表格软件。它不 仅可以轻松地完成数据的各类数学运算,简化数据处理 工作，还可以在单元格变化、工作表激活等事件发生时通 过调用VBA填写单元格数值、设置单元格格式。

3.1单元格格式设置

（1）预先设置

单元格格式设置方法为:右键单击要调整格式的单 元格，选择“设置单元格格式”，在出现的“单元格格式”对 话框中的“数字”、“对齐”和“字体”中进行设置。在模型 中，工作表sheet2和sheet3中单元格初始数据类型均设 置为“常规”。

（2）检定点示值和指针示值变动量小数点位数设置 选中sheet2工作表，依次点击“工具”、“宏”、isualbasic编辑器”，在代码窗口选择“worksheet”对象和 hange?事件。

（3）检定点回程误差、平均值和最大偏差小数点位数设置

在该区域，模型先将全部单元格小数点位数设置为 sheetl! J3，然后在讨嚷时利用函数fixed将零值显示为“0”。

非零小数点设置方法为:在sheet2工作表的isual basic编辑器”代码窗口选择“ worksheet ”对象和“ Acti- vate?事件。

零值的小数点在计算公式中设置，参见3.3。

(4)其余区域小数点位数设置 被检仪表检定项目最大值小数点位数在计算时利用 函数fixed设置，参见3.3;检定证书标准压力值和检定 值的格式设置参见3.2.2。

3.2信息引用

（1）sheetl中单元格信息的引用

选择要引用信息的单元格，输人“ = ”，选择工作表 sheetl和被引用单兀格,单击nter?键。

（2）Sheet3中检定数据的信息引用

在sheet3工作表的isual basic编辑器”代码窗口选 择 “ worksheet?对象和 “ Activate?事件。

3.3数值计算

检定点示值的最大值与最小值之差计算公式：

= IF(COUNTA(D9：G9) =2,IF(MAX(D9：G9)- MIN(D9：G9) =0,FIXED(0,0),MAX(D9：G9) - MIN (D9：G9)),W)

零点各次示值读数平均值计算公式：

= IF(COUNTA(D9：G9) -2,IF(AND(ABS(D9 + F9)/Sheetl! G3 < = 1), FIXED (0, 0), (IF (AND (ISODD(INT((D9 + F9)/(2 * Sheetl! G3)))?ISODD ((D9 + F9)/Sheetl! G3)),Sheetl! G3 * (INT(((D9 + F9))/(Sheetl! G3 * 2) + l))，Sheetl! G3*INT(((D9 + F9))/(2* Sheetl! G3))))厂）

非零点各次示值读数平均值计算公式：

=IF (COUNTA (D10: G10) = 2 ’ IF (AND (ISODD (INT ((DIO + F10) /(2 * Sheetl! G3))) ’ ISODD ((DIO + F10)/Sheetl! G3)), Sheetl! G3 * (INT(((DIO + F10))/(Sheetl! G3 * 2) + 1)), Sheetl! G3 * INT (((DIO+ F10))/(2* Sheetl! G3)))厂)

检定点各次读数与该点标称值最大偏差计算公式：

=IF(COUNTA(B9：G9) = 3, IF(MAX(ABS(D9 - B9),ABS(F9 - B9)) = 0,FIXED(0,0)，IF(ABS(D9- ■B9) >ABS(F9 - B9), D9 - B9，F9 - B9))广）

示值最大值与最小值差值的最大值计算公式：

= IF(COUNTA(D9：G9)=2,IF(MAX(L9：M24) = 0,0，FIXED(MAX(L9：M24),Sheetl! J3))厂）

回程误差允许值计算公式：

=IF(COUNTA(Sheetl! 12,Sheetl! M2) = 2,13* M3/100/〃）指针示值变动量计算公式：

=IF(COUNTA(H9) = 1,IF(MAX(H9：K24) =0, 0,FIXED(MAX(H9：K24),Sheetl! J3))/”）

指针变动量允许值计算公式：

= IF(COUNTA(Sheetl! 12,Sheetl! M2) =2，13* M3/200,)

检定点各次读数与标称值最大偏差计算公式:

= IF((J)IJNTA(B9：G9) = 3)IF(AND(MAX(P9：Q24) = 0,MIN(P9：a24)=0),0, IF(ABS(MAX(P9：Q24)) >ABS (MIN(P9： Q24)), FIXED(MAX(P9：C324), Sheetl! J3), FIXED(MIN(P9：Q24)>Sheetl! J3)))/")

检定点允许误差值计算公式：

=IF(CDUNTA(Sheetl! 12,Sheetl! M2) =2，13* M3/100,)

检定结果判断公式：

=IF(COUNTA(B9： 19,Sheetl! 12,Sheetl! M2)= 6,IF(AND(VALUE(S7) < = S8, VALUE(S12) < = S13,ABS(VALUE(T18))< = T19)，“符合” &T(M3) & “级”，“不合格”）广）

以上仅给出典型点的计算公式，其余点的计算可参 照编写。

3.4几点说明

①建立模型前要依次点击“工具”、“加载宏”加载“分析工具库”；

②划线方法addline中的起止坐标需要根据实际建 模情况调整；

③模型第一个检定数据为零；

④录入数据后,将模型以检定证书编号作为文件名 进行另存。

4.结论

本文建立的数据处理模型在录人标准器和被检仪表 信息以及被检仪表标称值、检定值和轻敲位移后,能够立 即准确的计算示值误差、平均值、回程误差，给出正确的 检定结论。在检定记录表和检定证书中，各项数据能够 按照规定要求进行修约并保留正确的小数点位数。实际 使用证明，该模型能够有效杜绝偶发错误和人员经验不 足带来的错误，切实提髙精密压力仪表的检定效率。