198 HUANJINGYUFAZHAN
▲
罗鹏
（六盘水市环境监测站，贵州 六盘水 553000）
摘要：通过对Excel 宏 的反复学习，充分了解宏语言(VBA）的功能并灵活运用，解决了功能区噪声的智能化统计，提高了工作效率。如果将宏的EXCEL 数据处理程序功能用于环境监测数据处理工作中，会更加简单便捷地完成数据统计和简单分析，能够有效提高工作效率。 关键词：功能区噪声监测；数据处理程序；宏EXCEL 中图分类号：X830.3 文献标识码：A 文章编号：2095-672X(2017)04-0198-02
DOI:10.16647/jki15-1369/X.2017.04.095
Application of EXCEL Macro in function area noise monitoring data processing
Luo Peng
galfan(Liupanshui City Environmental Monitoring Station, Liupanshui Guizhou 553000,China)
Abstract:Through repeated learning of Excel macro and full understanding of the function of macro language (VBA) and flexible application, the intelligent sta -tistics 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）要求，功能
区噪声定期监测数据需按下列公式分别计算昼间（L d 、夜间（L n ）平均等效声级。
式中：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：
图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）的数据，确定，得到昼间等效声级L d ，如图5。
4 夜间等效声级
打开某个季度某个功能区24小时监测统计表；
从监测统计表中，筛选出昼间（23:00~6:00）的数据，以下步骤同
▲
六合芳草地HUANJINGYUFAZHAN
199
昼间等效声级。
参考文献
[1]中文版EXCEL2003实用教程.
[2]HJ640-2012，国家环境保护部《环境噪声监测技术规范 城市声环境常规监测》[S].玛戈皇后下载
[3]董仁才，李宇亮，全元，王辰星. 物联网技术应用于噪声监测的
路径探索[J]. 环境科学与技术,2014,(S1):258-260+402.
[4]许震，潘春龙. 噪声监测的常见问题探讨与思考[J]. 环境科学导刊,2012,(02):119-120.
收稿日期：2017-06-16
作者简介：罗鹏（1967-），男，大专，环境工程师，研究方向为
探秘古墓
语文天地网
环境监测。
图 3
图 2 图 5
图 4
勘误证明
本刊2017年第3期第18-19页，篇名为《发达国家治理空气污染的财税政策对江苏的启示》，作者为李惠娟，徐雯雯的论文，缺少基金项目，应有基金项目为：
基金项目 ：江苏省“六大人才高峰”基金项目(JY-082)；江苏省教育厅高校哲学社会科学研究项目(2016SJD790028)；徐州工程学院科研项目(XKY2016101)；徐州市科技计划项目(软科学 )(KC16RH125，KC16RH128) 特此证明！
豫公网安备41160202000603
站长QQ:729038198
关于我们
投诉建议