利用Excel軟件中VBA批量計算環(huán)境空氣質(zhì)量指數(shù)

1、利用Excel軟件中VBA批量計算環(huán)境空氣質(zhì)量指數(shù)（AQI）摘要：本文根據(jù)國家新發(fā)布的環(huán)境空氣質(zhì)量指數(shù)（AQI）技術(shù) 規(guī)定（試行）中空氣質(zhì)量指數(shù)的分級方案、計算方法和環(huán)境空氣質(zhì) 量級別與分類，利用EXCEL軟件中VBA編程批量計算環(huán)境空氣質(zhì) 量指數(shù)，以降低數(shù)據(jù)分析人員的工作量，提高數(shù)據(jù)準(zhǔn)確度。關(guān)鍵詞：EXCEL VBA批量質(zhì)量指數(shù)AQI為適應(yīng)我國經(jīng)濟發(fā)展水平和人民群眾對空氣質(zhì)量要求，國家環(huán)保 部發(fā)布了新環(huán)境空氣質(zhì)量標(biāo)準(zhǔn)（GB3095-2012）及環(huán)境空氣質(zhì) 量指數(shù)（AQI）技術(shù)規(guī)定（HJ633-2012），新標(biāo)準(zhǔn)中采用空氣質(zhì)量指 數(shù)（AQI）以數(shù)值形式定量描述空氣質(zhì)量狀況，便于公眾直觀的了解

2、當(dāng)?shù)丨h(huán)境空氣的優(yōu)劣程度，也可以快速準(zhǔn)確的向社會公布當(dāng)?shù)氐沫h(huán)境 空氣質(zhì)量狀況。傳統(tǒng)計算空氣質(zhì)量指數(shù)的方法需要先人工分別計算各 項污染物的分指數(shù)，然后取最大值，不僅費時繁瑣，而且極易出錯， 特別是批量計算更是工作量巨大，利用EXCEL中VBA編程可以快 速、準(zhǔn)確、批量的計算AQI指數(shù)，節(jié)省了時間，提高了工作效率。1空氣質(zhì)量指數(shù)1.1空氣污染指數(shù)定義空氣質(zhì)量指數(shù)（AQI）定義為定量描述空氣質(zhì)量狀況的無量綱指 數(shù)，針對單項污染物的還規(guī)定了空氣質(zhì)量分指數(shù)（IAQI）。AQI就是各項污染物空氣質(zhì)量分指數(shù)中的最大值。1.2空氣質(zhì)量分指數(shù)計算方法污染物項目P的空氣質(zhì)量分指數(shù)按以下公式計算：1.3空氣質(zhì)量指數(shù)計

3、算方法空氣質(zhì)量指數(shù)按以下公式計算：1.4首要污染及超標(biāo)污染物的確定方法當(dāng)AQI大于50時，IAQI最大的污染物為首要污染物，大于100 的污染物為超標(biāo)污染物。若IAQI最大的污染物為兩項或兩項以上時， 并列為首要污染物。2利用EXCEL VBA編寫計算程序2.1設(shè)計模板工作表打開一個Excel，根據(jù)質(zhì)量指數(shù)計算需要分別輸入二氧化硫、二 氧化氮、可吸入顆粒物、一氧化碳、臭氧，細(xì)顆粒物、濃度、分指數(shù)、 。【、首要污染物、指數(shù)級別等參數(shù)；調(diào)用按鈕控件，改名為批量計 算按鈕。2.2編寫VBA代碼首先利用InputBox函數(shù)得到需要計算的行數(shù)，程序根據(jù)所填整 數(shù)進(jìn)行批量計算：Private Sub Co

4、mmandButton1_Click()Dim a, b, i As Integera = InputBox(“請輸入計算行數(shù)”)b = a + 3For i = 4 To bbb = Val(Sheet1.Cells(i, 5)aa = Val(Sheet1.Cells(i, 1)cc = Val(Sheet1.Cells(i, 3)dd = Val(Sheet1.Cells(i, 9)ee = Val(Sheet1.Cells(i, 7)ff = Val(Sheet1.Cells(i, 11)然后根據(jù)表格數(shù)據(jù)分別計算各項污染物的分指數(shù)，以二氧化硫分指數(shù)計算為例：Select Case aa

5、Case Is 2.62aqisb = 500MsgBox “二氧化硫已經(jīng)爆表”,vbOKOnly, “提示”Case 2.1 To 2.62If Int(aa - 2.1) / 0.52) * 100 + 400) = (aa - 2.1) / 0.52) * 100 +400) Thenaqisb = Int(aa - 2.1) / 0.52) * 100 + 400)Elseaqisb = Int(aa - 2.1) / 0.52) * 100 + 400) + 1End IfCase 1.6 To 2.1If Int(aa - 1.6) / 0.5) * 100 + 300) = (a

6、a - 1.6) / 0.5) * 100 + 300)Thenaqisb = Int(aa - 1.6) / 0.5) * 100 + 300)Elseaqisb = Int(aa - 1.6) / 0.5) * 100 + 300) + 1End IfCase 0.8 To 1.6If Int(aa - 0.8) / 0.8) * 100 + 200) = (aa - 0.8) / 0.8) * 100 + 200)Thenaqisb = Int(aa - 0.8) / 0.8) * 100 + 200)Elseaqisb = Int(aa - 0.8) / 0.8) * 100 + 20

7、0) + 1End IfCase 0.475 To 0.8If Int(aa - 0.475) / 0.325) * 50 + 150) = (aa - 0.475) / 0.325) * 50+ 150) Thenaqisb = Int(aa - 0.475) / 0.325) * 50 + 150)Elseaqisb = Int(aa - 0.475) / 0.325) * 50 + 150) + 1End IfCase 0.15 To 0.475If Int(aa - 0.15) / 0.325) * 50 + 100) = (aa - 0.15) / 0.325) * 50 +100)

8、 Thenaqisb = Int(aa - 0.15) / 0.325) * 50 + 100)Elseaqisb = Int(aa - 0.15) / 0.325) * 50 + 100) + 1End IfCase 0.05 To 0.15If Int(aa - 0.05) / 0.1) * 50 + 50) = (aa - 0.05) / 0.1) * 50 + 50)Thenaqisb = Int(aa - 0.05) / 0.1) * 50 + 50)Elseaqisb = Int(aa - 0.05) / 0.1) * 50 + 50) + 1End IfCase 0 To 0.0

9、5If Int(aa / 0.05) * 50) = (aa / 0.05) * 50) Thenaqisb = Int(aa / 0.05) * 50)Elseaqisb = Int(aa / 0.05) * 50) + 1End IfEnd Select二氧化氮、可吸入顆粒物、一氧化碳、臭氧，細(xì)顆粒物分指數(shù)計 算類似，限于篇幅，只列出部分代碼。最后根據(jù)各項污染所計算的分指數(shù)大小進(jìn)行排序，取最大值做為 當(dāng)日的質(zhì)量指數(shù)，并根據(jù)最大分指數(shù)確定當(dāng)日首要污染物和污染級 別。Maxb = aqisbIf aqinb Maxb Then Maxb = aqinbIf aqipb Maxb Then Ma

10、xb = aqipbIf aqipmb Maxb Then Maxb = aqipmbIf aqicb Maxb Then Maxb = aqicbIf aqiob Maxb Then Maxb = aqiobIf Maxb = aqisb ThenSheet1.Cells(i, 14) = “SO2”End IfIf Maxb = aqipb ThenSheet1.Cells(i, 14) = “PM10”End IfIf Maxb = aqinb ThenSheet1.Cells(i, 14) = “NO2”End IfIf Maxb = aqipmb ThenSheet1.Cells(i

11、, 14) = “PM2.5”End IfIf Maxb = aqiob ThenSheet1.Cells(i, 14)= “臭氧”End IfIf Maxb = aqicb ThenSheet1.Cells(i, 14) = “CO”End Ifgg = Sheet1.Cells(i, 13)Select Case ggCase 0 To 50Sheet1.Cells(i, 15)= “優(yōu)”Case 51 To 100Sheet1.Cells(i, 15)= “良”Case 101 To 150Sheet1.Cells(i, 15)= “輕度污染”Case 151 To 200Sheet1.Cells(i, 15)= “中度污染”Case 201 To 300Sheet1.Cells(i, 15)= “重度污染”Case Is 300Sheet1.Cells(i, 15)= “嚴(yán)重污染”End SelectSheet1.Cells(i, 6) = aqipbSheet1.Cells(i, 2) = aqisbSheet1.Cells(i, 4) = aqinbSheet1.Cells(i, 10) = aqiobSheet1.Cells(i, 8) = aqicbSheet1.Cells(i, 12) = aqipmbNext iEnd Sub3結(jié)論利用E