EXCEL宏在功能區噪聲監測數據處理中的應用

摘要：通過對Excel宏 的反復學習，充分了解宏語言（VBA）的功能并靈活運用，解決了功能區噪聲的智能化統計，提高了工作效率。如果將宏的EXCEL數據處理程序功能用于環境監測數據處理工作中，會更加簡單便捷地完成數據統計和簡單分析，能夠有效提高工作效率。

關鍵詞：功能區噪聲監測；數據處理程序；宏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

在噪聲監測數據統計中，功能區噪聲的統計相對較復雜。根據《環境噪聲監測技術規范 城市聲環境常規監測》（HJ640-2012）要求，功能區噪聲定期監測數據需按下列公式分別計算晝間（Ld、夜間（Ln）平均等效聲級。

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

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

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

1 編輯代碼

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

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

（3）把LL函數初始化為0

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

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

（6）變量h從1到用戶選擇區域的總行數循環

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

Application.WorksheetFunction是引用excel里的內部函數，

Power（10，r.Item（h，1））是excel里的內部函數，意思是表示10的r.Item（h，1）次方。

r.Item（h，1）表示用戶選擇區域內的第h行的第一列的數據，即LL用戶自定義函數需要選擇的功能區噪聲數據。

（8）Next是for循環內的套用公式，直至for循環加完用戶所選的所有數據。

（9）現在的LL是for循環加出來的數據再除以用戶選擇區域的數據個數（實現8小時或16小時數據計算）。

（10）LL等于10乘以用戶所選的功能區噪聲所有數據的對數[4]。

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

2 創建Excel模塊

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

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

3 晝間等效聲級

（1）打開某個季度某個功能區24小時監測統計表。

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

4 夜間等效聲級

打開某個季度某個功能區24小時監測統計表；

從監測統計表中，篩選出晝間（23：00～6：00）的數據，以下步驟同晝間等效聲級。

參考文獻

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

[2]HJ640-2012，國家環境保護部《環境噪聲監測技術規范 城市聲環境常規監測》[S].

[3]董仁才，李宇亮，全元，王辰星. 物聯網技術應用于噪聲監測的路徑探索[J]. 環境科學與技術，2014，（S1）：258-260+402.

[4]許震，潘春龍. 噪聲監測的常見問題探討與思考[J]. 環境科學導刊，2012，（02）：119-120.

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