基于excel的0.4級和0.6級彈簧管式精密壓力表檢定數據處理模型
文章利用常用辦公軟件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.結論
本文建立的數據處理模型在錄人標準器和被檢儀表 信息以及被檢儀表標稱值、檢定值和輕敲位移后,能夠立 即準確的計算示值誤差、平均值、回程誤差，給出正確的 檢定結論。在檢定記錄表和檢定證書中，各項數據能夠 按照規定要求進行修約并保留正確的小數點位數。實際 使用證明，該模型能夠有效杜絕偶發錯誤和人員經驗不 足帶來的錯誤，切實提髙精密壓力儀表的檢定效率。
