论坛风格切换切换到宽版
  • 3883阅读
  • 9回复

监测资料分析时批量汇总特征值的程序源码【VBA】 [复制链接]

上一主题 下一主题
在线wbsky6
 

发帖
1975
监测币
51710
威望
17422
贡献值
42
金币
1938
只看楼主 倒序阅读 使用道具 0楼 发表于: 2009-03-09
— 本帖被 wbsky6 执行加亮操作(2009-03-09) —
  本程序是监测人网站站长开发,为了方便那些做资料分析中统计各测点特征值,减少人工操作的工作量!
  这是一个vba程序,可以试用创建“宏”运行程序,具体格式按照例子.xls就可以了!将会重新生成一个表来存放特征值,希望大家有所帮助!
  同时希望大家一如既往的支持监测人网站!关于在监测资料中很多小型程序的分享或者交流可以直接和站长联系,或者加入监测人官方QQ群进行交流。
具体运行方法如下:

   在EXCEL里先新建一个宏文件,再用程序自带的VBA编程器打开这个宏,把站长的源程序粘贴上去,然后再运行这个宏。
下面是部分程序源码【完成程序请参看附件】:
'程序由wbsky6编写,仅使用于本实验室,请勿外传。
 k = 2
    Sheets(1).Select
    Sheets.Add
    Sheets(1).Name = "wbsky6"
    Sheets("wbsky6").Cells(1, 1) = "测点"
    Sheets("wbsky6").Cells(1, 2) = "最大值"
    Sheets("wbsky6").Cells(1, 3) = "最大值对应日期"
    Sheets("wbsky6").Cells(1, 4) = "最小值"
    Sheets("wbsky6").Cells(1, 5) = "最小值对应日期"
    Sheets("wbsky6").Cells(1, 6) = "变幅"
    Sheets("wbsky6").Cells(1, 7) = "平均值"
 '程序由wbsky6编写,仅使用于本实验室,请勿外传。

 
[ 此帖被wbsky6在2009-03-09 13:23重新编辑 ]
附件: 批量汇总特征值的VBA程序.rar (73 K) 下载次数:38
离线d8716426
发帖
14
监测币
6
威望
8
贡献值
0
金币
0
只看该作者 1楼 发表于: 2009-03-09
不会用,
离线ueen
发帖
3
监测币
0
威望
2
贡献值
0
金币
0
只看该作者 2楼 发表于: 2009-03-09
用了一下程序,感谢站长的分享,对我启发很大。而且我觉得在这个基础上能再增加一些功能就好了,比如增加窗口,在上面设定分析时段,选择需要统计的仪器,只选取部分特征值统计,规范数据的格式,如保留小数点后位数、居中、字体字高。楼上的可以试一下在EXCEL里先新建一个宏文件,再用程序自带的VBA编程器打开这个宏,把站长的源程序粘贴上去,然后再运行这个宏。
1条评分
wbsky6 监测币 +10 谢谢您对特征值汇总程序 .. 2009-03-09
离线vind266

发帖
402
监测币
20945
威望
176841
贡献值
48
金币
23785
只看该作者 3楼 发表于: 2009-03-10
下载学习,感谢分享!
离线vivian
发帖
78
监测币
1355
威望
46
贡献值
0
金币
306
只看该作者 4楼 发表于: 2009-03-12
离线langren131

发帖
124
监测币
5
威望
46
贡献值
0
金币
0
只看该作者 5楼 发表于: 2009-03-13
kankan
离线langren131

发帖
124
监测币
5
威望
46
贡献值
0
金币
0
只看该作者 6楼 发表于: 2009-03-13
看看
离线dwhuang

发帖
331
监测币
4401
威望
788
贡献值
1
金币
474
只看该作者 7楼 发表于: 2009-05-29
监测资料的基础分析很,我现在就在做这些工作,比如位移最大值等信息,应力统计等
离线娟娟王

发帖
98
监测币
343
威望
123
贡献值
0
金币
40
只看该作者 8楼 发表于: 2011-08-26
看看学习学习。
离线changxinjian

发帖
247
监测币
813
威望
414
贡献值
0
金币
168
只看该作者 9楼 发表于: 2011-11-25
      
快速回复
限100 字节
 
上一个 下一个