杜鹏程

在Excel VBA中实现水环境质量评价

杜鹏程

在环境质量评价研究中，特别是水环境质量评价时，需要对地表水、地下水、湖泊等大量的监测数据进行水质评价，迄今还没有一个通用的具有可比性的水质评价方法。不同部门进行水质评价时，选用数学模型的任意性很强，常常不能反映本地的污染状态。2011年3月9日，环境保护部发布了《关于印发〈地表水环境质量评价办法（试行）〉》的通知》（环办〔2011〕2号），统一了地表水评价方法，而对于水质评价采用何种计算软件没有作出规定，现行监测数据的保存和水质的评价，仍沿袭以往人工运用Excel表格，计算时经常需要用到单元格填充功能，常用插入函数与填充柄来完成。这种重复性的填充和插入函数容易出现错误，工作效率及准确性差，这就给评价工作带来了困难，甚至无法计算出正确的评价结果。因此，如何实现水质环境质量评价的自动化、功能化将评价人员从单调耗时的工作中解放出来，是一个急待解决的问题。

本文应用VBA语言编写嵌入式模块，开发了水质监测数据进行自动化的评价方法，通过实际应用可以看出这种方法不仅对地表水数据评价的效率、准确度高，而且可移植到湖泊、地下水、海水等水质评价中，具有较强的通用性和扩展性。

一、水质数据评价方法

河流断面水质类别评价采用单因子评价法，即根据评价时段内该断面参评的指标中类别最高的一项来确定。描述断面的水质类别时，使用“符合”或“劣于”等词语。……