EXCEL宏在功能區(qū)噪聲監(jiān)測數(shù)據(jù)處理中的應(yīng)用

摘要：通過對Excel宏 的反復(fù)學(xué)習(xí)，充分了解宏語言（VBA）的功能并靈活運用，解決了功能區(qū)噪聲的智能化統(tǒng)計，提高了工作效率。如果將宏的EXCEL數(shù)據(jù)處理程序功能用于環(huán)境監(jiān)測數(shù)據(jù)處理工作中，會更加簡單便捷地完成數(shù)據(jù)統(tǒng)計和簡單分析，能夠有效提高工作效率。

關(guān)鍵詞：功能區(qū)噪聲監(jiān)測；數(shù)據(jù)處理程序；宏EXCEL

中圖分類號：X830.3 文獻標識碼：A 文章編號：2095-672X（2017）04-0198-02

DOI：10.16647/j.cnki.cn15-1369/X.2017.04.095

Abstract：Through repeated learning of Excel macro and full understanding of the function of macro language （VBA） and flexible application， the intelligent statistics of the noise in the function area is solved， and the work efficiency is improved. If the macro EXCEL data processing program is used in environmental monitoring data processing， it will be more simple and convenient to complete data statistics and simple analysis， can effectively improve work efficiency.

Keywords： Function area noise monitoring； data processing program； macro EXCEL

在噪聲監(jiān)測數(shù)據(jù)統(tǒng)計中，功能區(qū)噪聲的統(tǒng)計相對較復(fù)雜。根據(jù)《環(huán)境噪聲監(jiān)測技術(shù)規(guī)范 城市聲環(huán)境常規(guī)監(jiān)測》（HJ640-2012）要求，功能區(qū)噪聲定期監(jiān)測數(shù)據(jù)需按下列公式分別計算晝間（Ld、夜間（Ln）平均等效聲級。

式中：Leq（i）-晝間（07：00～22：00）16個小時中第i個小時的等效聲級；

Leq（j）-夜間（23：00～06：00）8個小時中第j個小時的等效聲級。

從公式看，功能區(qū)噪聲要按時間段分別求出晝間、夜間等效聲級[1]。下面以六盤水市中心城區(qū)2016年某季度數(shù)據(jù)為例，敘說用宏Excel數(shù)據(jù)處理程序功能編制模塊統(tǒng)計功能區(qū)噪聲過程[2]。

1 編輯代碼

（1）自己定義函數(shù)的名稱為LL ，在Excel VBA中的把r定義為range對象，Range表示一個域，Double是雙精度浮點型。

（2）dim是定義的意思，把i，hs，ls，h，l定義為byte（字節(jié)型）變量。

（3）把LL函數(shù)初始化為0

（4）hs（行數(shù)）等于電子表格中用戶鼠標選擇區(qū)域的總行數(shù)。

（5）ls（列數(shù)）等于電子表格中用戶鼠標選擇區(qū)域的總列數(shù)。

（6）變量h從1到用戶選擇區(qū)域的總行數(shù)循環(huán)

（7）讓LL等于上一次LL的數(shù)據(jù)加上當(dāng)前電子表格中的選擇區(qū)域的數(shù)據(jù)乘以0.1后，再進行冪操作，一直加到選擇的行數(shù)的所有數(shù)組的數(shù)據(jù)[3]。

Application.WorksheetFunction是引用excel里的內(nèi)部函數(shù)，

Power（10，r.Item（h，1））是excel里的內(nèi)部函數(shù)，意思是表示10的r.Item（h，1）次方。

r.Item（h，1）表示用戶選擇區(qū)域內(nèi)的第h行的第一列的數(shù)據(jù)，即LL用戶自定義函數(shù)需要選擇的功能區(qū)噪聲數(shù)據(jù)。

（8）Next是for循環(huán)內(nèi)的套用公式，直至for循環(huán)加完用戶所選的所有數(shù)據(jù)。

（9）現(xiàn)在的LL是for循環(huán)加出來的數(shù)據(jù)再除以用戶選擇區(qū)域的數(shù)據(jù)個數(shù)（實現(xiàn)8小時或16小時數(shù)據(jù)計算）。

（10）LL等于10乘以用戶所選的功能區(qū)噪聲所有數(shù)據(jù)的對數(shù)[4]。

（11）End Function表示用戶自定義的函數(shù)結(jié)束。等效聲級能量平均代碼見圖1：

2 創(chuàng)建Excel模塊

（1）打開Excel表格，選擇“工具”→“宏”→“編輯器”，見圖2。

（2）打開Excel編輯器，選擇“插入”→“模塊”，如圖3；將圖1的代碼復(fù)制到模塊編輯器中，保存，關(guān)閉。

3 晝間等效聲級

（1）打開某個季度某個功能區(qū)24小時監(jiān)測統(tǒng)計表。

（2）從監(jiān)測統(tǒng)計表中，篩選出晝間（7：00～22：00）的數(shù)據(jù)，在B14單元格插入函數(shù)，選擇“用戶自定義”，選擇“LL”，確定，如圖4；選擇晝間（7：00～22：00）的數(shù)據(jù)，確定，得到晝間等效聲級Ld ，如圖5。

4 夜間等效聲級

打開某個季度某個功能區(qū)24小時監(jiān)測統(tǒng)計表；

從監(jiān)測統(tǒng)計表中，篩選出晝間（23：00～6：00）的數(shù)據(jù)，以下步驟同晝間等效聲級。

參考文獻

[1]中文版EXCEL2003實用教程.

[2]HJ640-2012，國家環(huán)境保護部《環(huán)境噪聲監(jiān)測技術(shù)規(guī)范 城市聲環(huán)境常規(guī)監(jiān)測》[S].

[3]董仁才，李宇亮，全元，王辰星. 物聯(lián)網(wǎng)技術(shù)應(yīng)用于噪聲監(jiān)測的路徑探索[J]. 環(huán)境科學(xué)與技術(shù)，2014，（S1）：258-260+402.

[4]許震，潘春龍. 噪聲監(jiān)測的常見問題探討與思考[J]. 環(huán)境科學(xué)導(dǎo)刊，2012，（02）：119-120.

作者簡介：羅鵬（1967-），男，大專，環(huán)境工程師，研究方向為環(huán)境監(jiān)測。