| 首页 | 最新公告 | 工作动态 | 外埠传真 | 水文服务 | 信息公告 | 业务交流 | 水文图库 | 精神文明 | 专题报道 | 水文风采 | 水文家园 |
   您现在的位置:  首页>>水文服务>>水情>>正文  
共产党员时刻听从党召唤  不
我局结合“六查六看”活动切
我局水文勘测工技能大赛选拔
花园水文站认真开展“六查六
“六查六看”结合年度目标任
花园站举行勘测工应知应会内
我局加大机关作风建设力度
我局举行水文勘测工种技能大
办公室召开民主生活会
我局紧急应对雷击影响  确保
“红船杯”党章知识竞答试题
采用Excel建立测绘计算表格模
新党章学习心得
2006年机关事业单位工人技术
湖北省现行职称工作政策
职工技能大赛初赛选拔赛试题
应用CASS绘图软件的体会
关于2007年机关事业单位工人
浅谈汞对人体的危害及其预防
关于2006年够格申报职称的干

水情科联系方式变更的通知
关于2006年够格申报职称的干
2006年工作要点
孝感市水文水政监察大队组建
孝感水文网开通仪式今日举行
孝感局积极备战新水情信息编
省局局长虞志坚调研孝感水文
我局认真组织工人等级考试
隔蒲潭水文站职工齐心协力抢
我局配合地方完成三座水库的
用VBA自定义函数实现水情三对照表的自动填充

日期:2006-9-25 10:34:05   来源:本站原创 作者:余本林   编辑:代琳

【字体: 点击:

Microsoft Office套装办公软件是大家十分熟悉的办公软件,在工作中经常使用。Office套装办公软件绑定的VBA(Visual Basic For Applica-tion)语言提供了强大的二次开发功能,以Excel为例,编制读取文本文件的自定义函数,实现水情三对照表的水位、流量的自动填充。

 

一、     问题的提出

 

用水情编码软件发送水情电报之后,就会在本地硬盘生成一个文本文件的报文底稿。用自定义函数读取报文底稿内容,即可实现水情三对照表中水位、流量的自动填充。

 

二、     问题的解决

 

   先用自定义函数读取报文底稿内容到辅助单元格内,然后用Excel的函数和公式读取以ZQ引导的数据到相应的单元格内。

 

1、打开Excel,按Alt+F11即进入VBAIDE,在菜单上依次点击[插入]->[模块],然后输入如下代码:

 

    保存退出,加载宏后,就可以在辅助单元格中输入= FileText("D:\Program Files\Rwis\nets\SND001\s20060901.txt") 获取文本内容。

2、在水位、流量的单元格内输入如下公式,就可读取以ZQ引导的数据到相应单元格内,即可实现水位、流量的自动填充。

 

K4=IF(ISERROR(MID(O4,FIND("Z",O4)+2,FIND("ZS",O4)-FIND("Z",O4)-2)*1),"",MID(O4,FIND("Z",O4)+2,FIND("ZS",O4)-FIND("Z",O4)-2)*1)

 

L4=IF(ISERROR(MID(O4,FIND("Q",O4)+2,FIND("QS",O4)-FIND("Q",O4)-2)*1),"",MID(O4,FIND("Q",O4)+2,FIND("QS",O4)-FIND("Q",O4)-2)*1)

 

O4=filetext("D:\Program Files\Rwis\nets\SND001\s20060901.txt")O4为辅助单元格)

$L4设置单元格格式  [<10]0.00;[>100]0;0.0(保留小数位数)

上一篇:围绕报汛时效,软硬兼施,多措并举  下一篇:我局完成2006年水情数据整理工作
 

*相关新闻*
·水情简报[2006年第01期]
·2006年05月份水情发报情况统计 
·我局水情查询系统日趋完善
·我局首次召开远程网络通讯会议
·《水情信息编码标准》工作软件升级及测站站码转换完成
·水情信息编码标准5位码转8位码详细方法
·转发:关于实施《水情信息编码标准》工作的几点要求及
·关于《水情信息编码标准》工作软件的升级通知
·我局着力研发水情信息编码相关软件
·水情信息编码软件软件助手
*相关评论*

©2002-2005 湖北省孝感市水文水资源勘测局版权所有  
地址:湖北省孝感市园林路66号   邮政编码:432000
电话:0712-2823703 传真:2823035 E-mail:admin@xgsww.com
鄂ICP备06003652号