|
|
<p>1 概述<br/> 电厂化学主要任务是水汽质量监督,而化学水质报表是这一工作的具体体现,它直接反映出各项监督项目的综合指数,这就要求报表必须及时、准确。<br/> 化学水质报表是将每天的运行记录和定期抽查数据通过计算,将计算结果填写在事先绘制好的表格中。辽宁发电厂的水、汽品质监督报表分旬报表(上旬、中旬)、月报表、季报表、年报表、局报表(在役机组、退役机组),由于我厂有15台机组,数据多、计算量大,每天的统计和上台账需约2～3ｈ,每天报表大约需5～6ｈ,而且在计算工作中还容易出现错误,这就要求报表必须具备一定的准确性。随着计算机技术的不断发展,化学水质报表微机化势在必行。</p><p>2 ＥＸＣＥＬ的特点<br/> 现在计算机软件很多,如Ｗｏｒｄ、Ｅｘｃｅｌ等,根据化学水质报表的特点,我选择了Ｅｘ ｃｅｌ来制定此表。<br/> 早在1985年,ＭｉｃｒｏｓｏｆｔＥｘｃｅｌ一经问世就公认为世界上功能最强大、技术最先进、使用最方便的电子表格软件。Ｅｘｃｅｌ电子表格软件具有崭新的外观、可用性强。能进行数据管理、数据分析、图形图表处理编程性。<br/> Ｅｘｃｅｌ电子表格软件,其外观的菜单栏和工具栏基本同Ｗｏｒｄ一致,具有较多鼠标拖曳功能,使编辑更为方便。工作薄文件由多工作表组成(最多255个),工作薄窗口底部有一行页面标签,每一页都用一个标签来标记,用鼠标单击页面标签即可实现工作表之间的切换。Ｅｘｃｅｌ还具有较强的图表功能,编辑和定制图表的过程是只需拖曳鼠标就可以实现的,Ｅｘｃｅｌ的函数库很大,能进行较复杂的计算,尤其在统计报表上较为方便。Ｅｘｃｅｌ是一个包含了ＶｉｓｕａｌＢａｓｉｃＦｏｒＡｐｐｌｉｃａｔｉｏｎｓ(ＶＢＡ)的应用程序,后者是Ｍｉｃｒｏｓｏｆｔ新一代的交叉应用程序宏语言。由于配备有ＶＢＡ,因而Ｅｘｃｅｌ包含了一个新的对话框编译器,一个新的菜单编辑器和一个新的调试程序。使ＶＢＡ,构造基于Ｅｘｃｅｌ的宏驱动应用程序更容易。</p><p>3 用Ｅｘｃｅｌ制作化学水质报表的过程<br/> 长期以来,数据的统计报表都需要人工计算、填写,工作量大且烦琐。火力发电厂的水、汽品质监督报表,就是由人工计算、填报的。根据辽宁发电厂的水、汽品质监督报表的特点,应用Ｅｘｃｅｌ电子表格软件,编制了一套报表程序,可自动生成我厂所需的各种报表,减少了人工烦琐的劳动,达到了东北电业管理局要求的计算机报表。具体做法有以下几点:<br/>3.1 格式化工作表<br/> Ｅｘｃｅｌ支持单元格的"丰富文本格式",可以对单元格内的单个字符或字符串进行格式化,方法类似于Ｗｉｎｄｏｗｓ的文字处理软件。化学水、汽监督的各种报表是根据运行记录数据计算填报的。而Ｅｘｃｅｌ恰恰具有一个工作薄有多工作表的特点,利用这一特点即可在一个工作薄文件中建立各种报表页和1～15号机组运行数据登记台帐页。而台帐页可以在建立完1号机组后进行工作表复制,生成2～15号机组台帐页,修改一下标签名即可,见图1。<br/>3.2 计算公式的建立<br/> Ｅｘｃｅｌ具有强大的函数库,包括数学函数、工程函数、逻辑函数等,可进行某一工作表内单无格及单元格区域的计算,也可进行工作表之间相互引用(绝对引用、相对引用)计算,还可进行工作表之间的三维计算。充分利用这强大的计算功能,即可对所建立的工作薄文件中的工作表建立计算公式。<br/> ａ 一般性计算:根据报表要求建立求和、平均数、取最大值、最小值等公式。<br/> ｂ 条件函数的应用:化学水报表报出的数据要求具有代表性,这样才能体现出最终所求合格率的准确性。例如:某台机组在一月当中运行时间少于15ｄ,则在月报表中这台机组各项指标不做为统计数据报出。这样就需要输入条件语句。<br/> 例:=ＩＦ(ＣＯＵＮＴ('5号机组'!Ｋ9∶Ｋ41)>=17,ＭＡＸ('5号机组'!Ｋ43),″″)此语句的含义是如果在5号机组台帐Ｋ项数据大于等于15个,报表项取最大值,否则返回空白。见图2。<br/> ｃ 数据选择技巧<br/> 在计算月报表的汽水损失率时,需要用到锅炉的额定蒸发量,但每月的天数不同,机组运行台数也不同,怎样才能达到自动取值呢?假定某厂有两台机组举例如下:首先在除盐水工作表页的Ｈ45～Ｈ48输入单台机组28～31ｄ的额定蒸发量,在Ｊ45～Ｊ48输入两台机组28～31ｄ的额定蒸发量,再在Ｈ50和Ｊ50内分别输入下列两个公式:<br/> =ＩＦ(ＣＯＵＮＴ(Ｂ8∶Ｂ40))=31,Ｈ47,ＩＦ(ＣＯＵＮＴ(Ｂ8∶Ｂ40))=30,Ｈ46,ＩＦ(ＣＯＵＮＴ(Ｂ8∶40))=29,Ｈ45,Ｈ48)))<br/> =ＩＦ(ＣＯＵＮＴ(Ｄ8∶Ｄ40)=31,Ｊ47,ＩＦ(ＣＯＵＮＴ(Ｄ8∶Ｄ40)=30,Ｊ46,ＩＦ(ＣＯＵＮＴ(ＤＢ∶Ｄ40)=29,Ｊ45,Ｊ48)))<br/> 再在Ｉ52单元格输入下列公式,则Ｉ52即可作为计算汽水损失率时选择的额定蒸发量。见图3。<br/> =ＩＦ(ＣＯＵＮＴ(月报表!Ｓ8,月报表!Ｔ8)=1,除盐水!Ｈ50,除盐水!Ｊ50)<br/> ｄ 三维计算<br/> 报表中有些项目是1～15号机组整个平均值,这就要求对1～15号机组各台帐页进行三维计算。计算排污率公式如下:见图4。<br/> 例:=ＡＶＥＲＡＧＥ('1号机组'!ＡＫ43,'2号机'!ＡＫ43,'3号机组'!ＡＫ43,'4号机组'!ＡＫ43,'5号机组'!ＡＫ43,'6号机组'!ＡＫ43,'7号机组'!ＡＫ43'8号机组'!ＡＫ43,'10号机组'!ＡＫ43,'9号机组'!ＡＫ43,'11号机组'!ＡＫ43,'12号机组'!ＡＫ43,'13号机组'!ＡＫ43)<br/>3.3 输入页的制作<br/> 每天各机组运行数据都要输入工作表台帐,为了给数据输入人员创造方便,本人应用ＶｉｓｕａｌＢａｓｉｃ语言编制一输入页,所有数据在此页中输入,再执行拷贝粘贴到工作表台帐。程序如下 右侧黑体文字是对程序的解释)<br/> Ｓｕｂｂｕｔｔｏｎ3Ｃｌｉｃｋ()<br/> ＤｉｍｘＡｓＩｎｔｅｇｅｒ<br/> '声明变量Ｓｈｅｅｔｓ("输入页") Ｓｅｌｅｃｔ<br/> '激活"输入页"<br/> Ｒａｎｇｅ("ｂ10") Ｓｅｌｅｃｔ<br/> '选"Ｂ10"单元格<br/> ｘ=ＡｃｔｉｖｅＣｅｌｌ.Ｖａｌｕｅ<br/> '给变量赋值<br/> Ｓｈｅｅｔｓ("输入页") Ｓｅｌｅｃｔ<br/> Ｒａｎｇｅ("ｂ7∶ｓ7) Ｓｅｌｅｃｔ<br/> Ｓｅｌｅｃｔｉｏｎ.Ｃｏｐｙ<br/> '拷贝"Ｂ7∶Ｓ7"<br/> Ｓｈｅｅｔｓ("1号机组") Ｓｅｌｅｃｔ<br/> Ｒａｎｇｅ("ｂ7").Ｓｅｌｅｃｔ<br/> '以"Ｂ7"为基准单元格<br/> ＡｃｔｉｖｅＣｅｌｌ.Ｏｆｆｓｅｔ(ｘ+1,0).<br/> ＡｃｔｉｖａｔｅＡｃｔｉｖｅＳｈｅｅｔ.Ｐａｓｔｅ<br/> '粘贴<br/> Ｓｈｅｅｔｓ("输入页") Ｓｅｌｅｃｔ<br/> '返回"输入页"<br/> ＥｎｄＳｕｂ<br/>3.4 公式保护<br/> 为防止数据录入人员在录入数据过程中误删单元格中的公式,Ｅｘｃｅｌ提供了工作表保护功能,利用此功能可将单元格中公式保护起来,加上密码,其他人是无法修改的。更进一步增加了报表的准确性。<br/>3.5 文字说明的填写<br/> 各级报表中都有"情况分析"一栏,如在Ｅｘｃｅｌ中直接输入文字说明,只能只占据某一单元格,不利于录入大段文字。幸好Ｅｘｃｅｌ提供了绘图功能,利用此功能中的文字框按钮可在报表区域中画出一块作为"情况分析"输入文字用。见图5。</p><p>4 微机报表的应用<br/> 制作好的工作表,直观明了。统计人员只须将每天各机组的运行数据输入到输入页上即可。满10天后,旬报表中的数据会自动生成,满一个月后,月报表自动生成。不再需要任何计算,即打印出所需报表。</p><p>5 结论<br/> 本报表程序刚投入运行之初,也出现一些问题,经过在使用过程中的不断修改,在近一年的使用中来看,基本稳定。特总结以下几点:<br/> ａ 此报表简单易学,操作方便,即使是没有计算机基础的人也可在很短的时间内学会使用。基本达到了快速准确报出电厂化学水、汽监督各项指标。<br/> ｂ 此报表形式上与以前台账、报表完全一样,给使用人员带来很大方便。<br/> ｃ 微机报表快速准确,避免了以前的长时间计算,省时省力。<br/> ｄ 即使报表中没有数据,同样可以快速输出。<br/> ｅ 将报表存于磁盘中便于保存,方便查看。<br/></p> |
|
IP卡
狗仔卡
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡