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