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

  本程序是监测人网站站长开发，为了方便那些做资料分析中统计各测点特征值，减少人工操作的工作量！
  这是一个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编写，仅使用于本实验室，请勿外传。

 

不会用，

用了一下程序，感谢站长的分享，对我启发很大。而且我觉得在这个基础上能再增加一些功能就好了，比如增加窗口，在上面设定分析时段，选择需要统计的仪器，只选取部分特征值统计，规范数据的格式，如保留小数点后位数、居中、字体字高。楼上的可以试一下在EXCEL里先新建一个宏文件，再用程序自带的VBA编程器打开这个宏，把站长的源程序粘贴上去，然后再运行这个宏。

下载学习，感谢分享！

kankan

看看

监测资料的基础分析很，我现在就在做这些工作，比如位移最大值等信息，应力统计等

看看学习学习。