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-），男，大专，环境工程师，研究方向为环境监测。
关键词：功能区噪声监测；数据处理程序；宏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-），男，大专，环境工程师，研究方向为环境监测。
