|
EXCEL 的二次开发在矿井通风阻力测定计算中的应用
□叶建中
（新疆维吾尔自治区屯南煤业有限责任公司， 新疆和丰县和什镇矿区 ， 834407 ）
摘 要 基于 Microsoft Excel 的二次开发功能，实现矿井通风阻力测定数据的可视化
操作和全自动化处理的编程
关键词 通风阻力测定 Excel Visual Basic 编程方法
引言
井巷通风阻力测定是调查研究矿井通风状况的一项重要措施，对其测定数据的准确计算又是真实反映矿井通风状况的重要因素。随着计算机技术的日新月异，采用 Microsoft Excel 软件及其二次开发功能处理矿井通风阻力测定数据，已充分显现出它的优越性。比采用手工处理节省了大量的时间和精力，计算精度也较高，还可以采用一些手工难以完成的方法对测量数据进行修正，从而达到更为真实反映矿井通风状况的目的。下文主要介绍一种利用压差计法测定得到的巷道通风阻力数据进行自动处理的原理，及相应的 Excel 表格面板布置和数据自动处理的具体编程实现方法。
1 数据处理表格的建立
在 Excel 中可仿照 MT/T 440-1995 标准中所推荐的各类原始数据记录表格和汇总表格建立起“用户表格”。其基本内容包含所有的实测数据项目及能反映通风状况的数据项目。例如，巷道的名称、断面形状、断面面积、支护方式以及其他关于断面的几何参数；大气参数方面有干、湿球温度，相对湿度、空气密度等；除此之外还有风量、风阻、百米标准风阻、测点间间距、测点间压差等能表明矿井通风状况所必需的参数项目。
表格的具体形式可参考下图制作或根据自己的工作需要进行改编。总之，表格的数据项目要全面，布置美观即可。
2 可视化界面的建立
可视化界面分为两部分。第一部分利用 Excel 自带的 Visual Basic 开发控件工具箱为“用户表格”添加按钮及对话框，以便和用户建立起初步的联系。本人在表格中主要添加了“基本数据输入”和“打印前准备”以及其他两个附属功能按钮。
第二部分利用 Excel 的 Visual Basic 编辑器完成设计，它也是整个计算核心的托载容器，其中包含了 3 个功能模块， 2 个窗体。在这一部分本人主要设计了“使用说明”界面、 “基本数据输入”界面以及其他警告、提示等界面来增强表格的友好性。
窗体的具体形式可参考下图制作，若需要还可添加更多的窗体和功能按钮。
3 数据处理的基本原理及编程实现
3.1 实测数据自动化处理的基本原理
实测数据的自动化处理原理分为两部分。第一部分是空气密度的计算原理。计算空气密度所需的基本数据有大气压力（ Pa ）、干球温度（℃）、相对湿度（％）、水分压力（ Pa ），其中“相对湿度”和“水分压力”是要通过查表才能得到的，这样一来就降低了我们的工作效率。相对湿度的计算公式是：
u= ■× 100' 其中 A 是一个与风速有关的常数， P 是大气压，△是干湿球温度差。很显然如果认为 A 与 P 是固定的，那么 U 就是一个关于干球温度 t 和干湿球温度差△ T 的二元函数，在几何上就是一个空间曲面，而引用对基准值的二次分段线性插值的方法就可以简化关系使 U 成为线性函数。如此就可以通过简单编程实现“相对湿度”和“水分压力”的自动计算，进而也就解决了空气密度不能全自动计算的问题。以上这一部分代码包含在第一个功能模块里。
第二部分主要是用来对巷道断面面积、断面周长、风速、风量、动压差、通风阻力、阻力、百米标准阻力、测点间间距等，除计算空气密度所需数据以外的数据进行处理和自动排版。在设计过程中“用户表格”的第一行很重要，它含有所有基本数据间的函数关系。这些函数关系可以利用 Excel 的公式编辑器来轻松完成。其次是要充分利用 Excel 的“相似填充性”和“录制新宏”的功能来实现数据的自动处理以及对结果的自动排版。其中“录制新宏”功能很重要，它为不太熟悉 Visual Basic 的开发用户提供了很好的编程代码提示和学习模仿环境，通过这个功能可以对 Excel 的各种操作的原代码了如指掌。通过模仿和改编 Excel 操作的原代码就可以实现“相似填充性” “排版” “字体变换”等功能的自动化完成。例如，要对某个区域的字体做特定的色彩变化，可以先选择“录制新宏”，然后进行一次色彩变化的操作，与此同时“录制新宏”功能就会将刚才的操作编译成 Visual Basic 语言代码并生成新的模块储存在 Visual Basic 编辑器里，而我们就可以通过编辑器来学习和改编代码以最终实现自动处理的目的。以上这一部分代码包含在第二个功能模块里。
3.2 计算空气密度的 Visual Basic 语言程序代码
整个表格的主要功能是由 3 个功能模块（空气密度计算模块，相似性填充模块，代码保护模块）完成。空气密度计算是其中一个，它由一个主函数和一个功能函数构成， air () 是主函数， air2(x1 As Integer, x2 As Integer, y1 As Single, y2 As Single, tg As Single) 是功能函数。
这里要特别说明的是，为方便编程我建议将原本应该用二维数组表达的变量改为引用 Excel 表格内的数据，这样一方面便于二维数组变量的定义，另一方面也有利于以后对基准值的更新。例如， Sheet2.cells(i,j) ， Sheet3.cells(i,j) 内分别储存的是“相对湿度”和“水分压力”的基准值，用户只要输入干球温度、湿球温度、大气压三个基本参数，程序就可以结合 Sheet2.cells(i,j) ， Sheet3.cells(i,j) 内的基准值用插值法计算出相应的空气密度值。
以下为空气密度计算的模块代码：
Function air2(x1 As Integer, x2 As Integer, y1 As Single, y2 As Single, tg As Single) As Single
Dim w As Single
w = y1 + (tg - x1) * (y2 - y1) / (x2 - x1) ‘插值计算
air2 = w ‘返回结果到主函数
End Function
Sub air( )
Dim i, k, j, k1, k2, t1, t2, l As Integer
Dim t As Single '干球温度
Dim ts As Single '湿球温度
Dim tr As Single '干、湿球温度差
Dim m, m1, m2, ps As Single
Dim n As Integer
n = Sheet1.Cells(4, 19) + 5 ' 确定用户要处理多少组数据
For i = 6 To n '循环调用 AIR2 （）
t = Sheet1.Cells(i, 18) '干球温度的引用赋值
l = Int(t / 1) '干球温度的取整
ts = Sheet1.Cells(i, 19) '湿球温度的引用赋值
tr = t - ts '干、湿球温度差 '以下代码是为了防止用户将干球温度和湿球温度填写相反而设的警告界面！
Range(Sheet1.Cells(i,18), Sheet1.Cells(i, 20)).Select
Selection.Interior.ColorIndex = xlNone
If tr < 0 Then
MsgBox “干温度小于湿温度，请改正！”
Range(Sheet1.Cells(i,18), Sheet1.Cells(i, 20)).Select
With Selection.Interior .ColorIndex = 3
Pattern = xlSolid
End With
End
End If '以下代码即是插值法的具体实现！
k = Int(tr / 1) '计算基准值的横坐标
k1 = 1 * k
k2 = k1 + 1 ' 比干、湿球温度差大一度的温度值
j = Int(t / 2) '计算基准值的纵坐标
t1 = 2 * j
t2 = t1 + 2 ' 比干球温度大两度的温度值
m1 = air2((t1), (t2), Sheet2.Cells(k + 1, j + 1), Sheet2.Cells(k + 1, j + 2), t) '调用 air2 功能函数
m2 = air2((t1), (t2), Sheet2.Cells(k + 2, j + 1), Sheet2.Cells(k + 2, j + 2), t) '调用 air2 功能函数
m = air2((k1), (k2), (m1), (m2), tr) / 100 ‘相对湿度％
Sheet1.Cells(i, 21) = m ‘相对湿度％
ps = Sheet3.Cells(l + 1, 1) + (Sheet3.Cells(l + 2, 1) - Sheet3.Cells(l + 1, 1)) * (t - l) '水分压力计算
Sheet1.Cells(i, 22) = ps
Next i
MsgBox “ 计算完毕！”
End Sub
构建和谐社会 提高档案管理人员的综合素质
• 李琼仙
构建社会主义和谐社会是党在十六大以来根据国家改革开放发展经济提出的社会建设新构想，是全面建设小康社会的一个重要目标。对于巩固党的执政社会基础，实现共产党执政的历史任务，保持社会的可持续发展，有着极其重要的意义。
社会和谐，在很大程度上取决于社会生产力的发展水平。国际经验表明，在这一阶段如果把握不好，可能会出现贫富悬殊、失业激增、社会矛盾激化等问题，可导致经济社会发展长期徘徊不前，甚至引发社会动荡的倒退。所以，我们要妥善协调各方面的利益关系，正确处理各种社会矛盾，为改革发展创造更好的条件，大力促进社会和谐。为此，我们每一个社会人都要有未雨绸缪、居安思危的意识，最大限度地减少不和谐因素，以构建和谐社会的思想为理念，做好自己的本职工作，积极构建和谐社会。
随着历史的进步，知识经济信息社会的到来，网络化、数字化的运用与增加，档案管理工作显得越来越重要，越来越凸显出它知识性、服务性的功能，原有的档案管理“单一保管模式”已远远跟不上社会进步的要求。因此，为适应新形势、新任务的要求，提高档案管理人员的综合素质与业务技能，以满足当今社会发展的需求已成为当前以及未来搞好档案管理工作的重要课题。
那么，如何提高档案管理人员的综合素质与业务技能？
我们说，一个人的综合素质，包括其知识结构、思想道德水平、工作责任心，也包括其对专业知识掌握的程度。人的素质决定其工作效果。档案工作要适应时代的步伐，首先就要提高档案管理人员的综合素质，要拓展档案管理人员的知识面，否则，再好的愿望只能成为无本之源。如果档案管理工作者不努力去不断丰富自己的知识，就会在实际工作中对信息的重要性与否失去辨别，对收集保管的档案资料失去正确的判断，从而导致业务的疏漏、工作的失误、效率的低下。就目前情况看，由于种种原因，我们对信息的收集、整理、整合，还存在着局限，离当今社会发展对档案管理工作者的要求还存在一定差距。因为，作为档案管理人员首先必须要掌握前沿科技信息，熟悉各个领域动向和社会经济的发展趋势，这样才能从宏观上了解整个社会发展的状况，为收集和提供信息做出准确判断，才能为领导提供有价值、含金量高的信息和资料，帮助领导进行决策。所以，档案管理也要与时俱进，才能得到全社会的认可。为此，作为档案管理人员，应结合当前形势，认真做好四个方面的工作：
一是转变观念。档案管理人员要树立以现代科技知识进行快捷、优质、高效综合服务的观念；
二是积极学习现代科学知识。进入当今电子信息网络时代，各种信息的交流十分便捷，且信息量庞大，档案信息资源的知识服务就要为档案利用者提供相关的档案信息，更要为利用者提供解决问题的方法和答案，所以档案服务工作还有很大的发展空间。上至航天技术的发展，下到日常生活领域科学技术的运用，都在发生着日新月异的变化，所以学习科技知识，不断提高科学技术文化水平，是搞好档案管理工作必要的条件之一；
三是结合本单位工作特点，不断提高专业技能。档案管理工作者要积极学习与本单位专业对口的各项知识，使自己成为本单位的内行，这样才能使档案管理工作有条不紊，才能更好地为用户提供优质、快捷的服务；
四是要增强使命感和责任感。通过不断加强对档案管理工作责任心的培养，不断提高档案工作的服务质量和服务水平。同时，要增强档案工作竞争意识，建立竞争淘汰机制，完善适合本部门的质量考核体系，对工作进行量化与考核，规范促进档案管理向标准化、科学化迈进。
当然，我们还要注重加强档案管理的基础性工作，建立完善保管、借阅制度，坚持做好收集、整理、鉴定、著录等各个环节的日常性基础工作， 只有这样，才能实现快节奏、高效率的工作。
总之，档案管理工作涉及内容浩瀚，每一个档案管理人员都应当按照时代的要求，不断拓展自己的知识领域，丰富自己的文化素养，当好专业及部门的行家里手。同时，我们还要在思想建设方面严格要求自己。俗话说，有一种财富叫精神，有一种高贵叫文明。只有踏踏实实地做好自己的本职工作，才能更好地促进社会的进步与发展，才能为建设管理有序、服务完善、文明祥和的社会生活共同体服务。
（作者单位：国家安全生产监督管理总局档案馆）
|
