基于excel的0.4級和0.6級彈簧管式精密壓力表檢定數(shù)據(jù)處理模型
文章利用常用辦公軟件excel的函數(shù)和VBA功能編制了 0.4級和0.6級壓力表檢定數(shù)據(jù)處理模型。該模型可以根據(jù)錄人信息自動填充原始 記錄和檢定證書,能有效避免數(shù)據(jù)處理錯誤,切實提髙檢定效率。
1.模型功能介紹
彈簧管式精密壓力表檢定數(shù)據(jù)處理模型分為三部 分:被檢儀表和標準器信息錄入模塊、精密壓力表檢定記 錄表模塊、精密表檢定證書內(nèi)頁生成模塊。由于各計量 技術(shù)機構(gòu)檢定證書封面格式并不一致，本模型并未包含 精密壓力表檢定證書封面。
1.1被檢儀表和標準器信息錄入模塊
打開excel軟件，新建一個空白工作簿，在工作表 sheetl中建立被檢儀表和標準器信息錄入模塊，如圖1。
被檢儀表：使用單位^號 _￡2_測置范圍Mr**碥度等aju 制造廠1/10分度值G3 1/10分度值小數(shù)位J3 使用標準器:名# 器號 S*范圍—!l_MPn準碥度等級JM
檢定用工作介質(zhì) D5,E5檢定時室溫65 t
田1被檢儀表和標準瞿信息錄入橫塊
依據(jù)JJG49- 1999，該模塊錄人被檢儀表信息包括 使用單位、器號、測量范圍、準確度等級、制造廠;使用標 準器信息包括名稱、器號、測量范圍、準確度等級;檢定信 息包括檢定用工作介質(zhì)、檢定時室溫。為便于計算檢定 點平均值并正確設(shè)置數(shù)據(jù)小數(shù)點位數(shù)，在被檢儀表信息 中增加1/10分度值和1/10分度值小數(shù)點位數(shù)。
1.2精密壓力表檢定記錄表模塊
在sheet2中建立0 ?4級和0.6級精密壓力表檢定記 錄表模塊，如圖2所示。該模塊主要功能為引用被檢儀 表和標準器信息，錄人檢定數(shù)據(jù)，計算各檢定點示值誤 差、回程誤差和平均值，計算示值誤差、回程誤差和輕敲 位移的最大值和允許值，給出檢定結(jié)論。
1.3精密表檢定證書內(nèi)頁生成模塊
在sheet3中建立精密壓力表檢定證書內(nèi)頁生成模 塊，如圖3。該模塊主要功能為通過引用精密壓力表檢 定記錄表模塊中的信息生成檢定證書內(nèi)頁。
2.模型功能需求分析
模型的功能需求主要來自三個方面:單元格格式、單 元格引用、數(shù)值計算。
2.1單元格格式
在模型中,不同模塊不同位置的單元格功能需求不 同。首先,為了使模塊生成的原始記錄和檢定證書在打 印后美觀,要根據(jù)單元格內(nèi)容正確設(shè)置字體、字號、下劃 線、對齊方式以及縮小字體填充等格式。其次,對于數(shù)值 型數(shù)據(jù)要能夠在錄入或計算后自動準確的調(diào)整小數(shù)點位 數(shù):如果數(shù)值為零,則顯示為“0”;否則,數(shù)值小數(shù)點位數(shù)與 1/10分度值相同。最后,在檢定證書的檢定數(shù)據(jù)區(qū)域,要根據(jù)被檢儀表檢定點個數(shù)自動合并適當行數(shù)的單元格，設(shè)置 數(shù)值水平居中。在最后一個檢定點數(shù)據(jù)下方居中劃一條 4cm直線，并在直線下方標注?以下空白)”。
2.2單元格引用
為避免重復(fù)錄人，工作表sheet2和sheet3涉及到 sheetl錄入數(shù)據(jù)的直接從sheetl中引用;sheet3檢定數(shù) 據(jù)的“標準壓力值”引用sheet2中的“標準器的壓力值 (真空值)”，“檢定值”引用sheet2中的“檢定點各次示值 讀數(shù)平均值”。
2.3數(shù)值計算
在模型中，數(shù)值計算區(qū)域集中在工作表sheet2中， 分為四類:第一類是各檢定點計算值。要求:錄入檢定點 兩次檢定數(shù)據(jù)后計算“檢定點示值的最大值與最小值之 差”、“檢定點各次示值讀數(shù)的平均值”;錄入檢定點標稱 值和兩次檢定數(shù)據(jù)后計算“檢定點各次的讀數(shù)與該點標 稱值的最大偏差”。第二類是被檢儀表檢定項目最大值。 要求:錄人D9: G9單元格數(shù)據(jù)后計算“示值最大值與最 小值之最大差值”;錄入H9單元格數(shù)據(jù)后計算“指針最 大示值變動量”；錄入B9: G9單元格數(shù)據(jù)后計算“檢定點 各次讀數(shù)與該點標稱值的最大偏差”。第三類為被檢儀表 檢定項目允許值。要求:錄人sheetl中測量范圍和準確度等 級后tW回程誤差允許值、指針變動量允許值以及允許誤 差。第四類為檢定結(jié)果。要求:錄人B9:I9單元格數(shù)據(jù)以及 sheetl中的測量范圍和精確度等級后進行判斷賦值。數(shù)值 將區(qū)和判斷前顯示空字符。
3.excel的實現(xiàn)過程
Excel是一款功能非常強大的電子表格軟件。它不 僅可以輕松地完成數(shù)據(jù)的各類數(shù)學運算,簡化數(shù)據(jù)處理 工作，還可以在單元格變化、工作表激活等事件發(fā)生時通 過調(diào)用VBA填寫單元格數(shù)值、設(shè)置單元格格式。
3.1單元格格式設(shè)置
（1）預(yù)先設(shè)置
單元格格式設(shè)置方法為:右鍵單擊要調(diào)整格式的單 元格，選擇“設(shè)置單元格格式”，在出現(xiàn)的“單元格格式”對 話框中的“數(shù)字”、“對齊”和“字體”中進行設(shè)置。在模型 中，工作表sheet2和sheet3中單元格初始數(shù)據(jù)類型均設(shè) 置為“常規(guī)”。
（2）檢定點示值和指針示值變動量小數(shù)點位數(shù)設(shè)置 選中sheet2工作表，依次點擊“工具”、“宏”、isualbasic編輯器”，在代碼窗口選擇“worksheet”對象和 hange?事件。
（3）檢定點回程誤差、平均值和最大偏差小數(shù)點位數(shù)設(shè)置
在該區(qū)域，模型先將全部單元格小數(shù)點位數(shù)設(shè)置為 sheetl! J3，然后在討嚷時利用函數(shù)fixed將零值顯示為“0”。
非零小數(shù)點設(shè)置方法為:在sheet2工作表的isual basic編輯器”代碼窗口選擇“ worksheet ”對象和“ Acti- vate?事件。
零值的小數(shù)點在計算公式中設(shè)置，參見3.3。
(4)其余區(qū)域小數(shù)點位數(shù)設(shè)置 被檢儀表檢定項目最大值小數(shù)點位數(shù)在計算時利用 函數(shù)fixed設(shè)置，參見3.3;檢定證書標準壓力值和檢定 值的格式設(shè)置參見3.2.2。
3.2信息引用
（1）sheetl中單元格信息的引用
選擇要引用信息的單元格，輸人“ = ”，選擇工作表 sheetl和被引用單兀格,單擊nter?鍵。
（2）Sheet3中檢定數(shù)據(jù)的信息引用
在sheet3工作表的isual basic編輯器”代碼窗口選 擇 “ worksheet?對象和 “ Activate?事件。
3.3數(shù)值計算
檢定點示值的最大值與最小值之差計算公式：
= IF(COUNTA(D9：G9) =2,IF(MAX(D9：G9)- MIN(D9：G9) =0,FIXED(0,0),MAX(D9：G9) - MIN (D9：G9)),W)
零點各次示值讀數(shù)平均值計算公式：
= 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))))廠）
非零點各次示值讀數(shù)平均值計算公式：
=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)))廠)
檢定點各次讀數(shù)與該點標稱值最大偏差計算公式：
=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，F(xiàn)9 - B9))廣）
示值最大值與最小值差值的最大值計算公式：
= IF(COUNTA(D9：G9)=2,IF(MAX(L9：M24) = 0,0，F(xiàn)IXED(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,)
檢定點各次讀數(shù)與標稱值最大偏差計算公式:
= 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,)
檢定結(jié)果判斷公式：
=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中的起止坐標需要根據(jù)實際建 模情況調(diào)整；
③模型第一個檢定數(shù)據(jù)為零；
④錄入數(shù)據(jù)后,將模型以檢定證書編號作為文件名 進行另存。
4.結(jié)論
本文建立的數(shù)據(jù)處理模型在錄人標準器和被檢儀表 信息以及被檢儀表標稱值、檢定值和輕敲位移后,能夠立 即準確的計算示值誤差、平均值、回程誤差，給出正確的 檢定結(jié)論。在檢定記錄表和檢定證書中，各項數(shù)據(jù)能夠 按照規(guī)定要求進行修約并保留正確的小數(shù)點位數(shù)。實際 使用證明，該模型能夠有效杜絕偶發(fā)錯誤和人員經(jīng)驗不 足帶來的錯誤，切實提髙精密壓力儀表的檢定效率。
