复杂的多表汇总(难度有点大,做出来有分加哦)

hupanshan

回复110楼的帖子
似乎你没看过我在108楼的程序

[ 本帖最后由 hupanshan 于 2010-1-30 13:26 编辑 ]

office2008

你的代码非常好，彭总的意思是，假如一个一点也不会VBA的，但操作EXCEL或者会一些简单的软件，应用能力一般的，他们宁愿会跳出一个窗体或者界面什么的，然后他们可以根据自己的需要，比如在标题行里这个字段不要这个字段要，或者只想汇总几个型号，或者只想汇总其中几张表，又或者只需要某个时间段的数据等等，他们只要简单在界面上选择一下，然后按下按纽，得出他们所需要的，我估计彭总就是这个意思吧。  

不过越是傻瓜式，编的人越难。

hupanshan

原帖由 office2008 于 2010-1-30 14:39 发表
你的代码非常好，彭总的意思是，假如一个一点也不会VBA的，但操作EXCEL或者会一些简单的软件，应用能力一般的，他们宁愿会跳出一个窗体或者界面什么的，然后他们可以根据自己的需要，比如在标题行里这个字段不要这个 ...

我上面的帖子是针对110楼的。因为我的程序并不限定必须使用版主的表格。当然了，对原表的规范性还是有很多限制的。比如，表格样式要一致，左上角的位置要一致。表头不允许空项等等。
编个通用的程序难度太大。比如左上角行、左上角列、上表头行数、左表头列数，这四个参数是必须的，如果事先不知道，光这四个参数就够解释一通了。没办法，只好发明了“表芯”的概念，在这个位置把行、列输入，就解决了四个参数的确认。
我的程序虽然操作上不够人性化，适应性也有很大局限，但对操作者懂不懂VBA没有要求。
总之，无非是在分类项的可变性方面做了点探索，赢得版主加分也是很高兴的。

彭希仁

原帖由 office2008 于 2010-1-30 14:39 发表
你的代码非常好，彭总的意思是，假如一个一点也不会VBA的，但操作EXCEL或者会一些简单的软件，应用能力一般的，他们宁愿会跳出一个窗体或者界面什么的，然后他们可以根据自己的需要，比如在标题行里这个字段不要这个 ...

就是这个意思,操作要简单,功能要强大

tclnxc

原帖由 kaiyuanmdf 于 2010-1-25 19:58 发表
没用字典试一下

菜鸟提点建议，你的代码好象是每次汇总前没有清除原表中的汇总数据，每次汇总后都会累加前一次的数，不知是不是这样

wenwen000424

原帖由 hupanshan 于 2010-1-30 13:24 发表
回复110楼的帖子
似乎你没看过我在108楼的程序

看过，你的程序的确比其它的在扩展性方面有很大的提高，表头与左边列都有扩展。能否继续完善：1、导入表样能否改成由使用者选择性导入一个准备好的excel文件中的某个工作表样；2、汇总数据改为由操作者选择某个文件夹下的任意多个文件一个或多个工作表。

kaiyuanmdf

原帖由 tclnxc 于 2010-1-30 17:55 发表

菜鸟提点建议，你的代码好象是每次汇总前没有清除原表中的汇总数据，每次汇总后都会累加前一次的数，不知是不是这样

不好意思，存在您提的问题，在with ws语块中加入下面的判断语句。
If ws.Name = "总表" Then
        .Range(.Cells(4, 4), .Cells(r - 1, l)) = ""   ‘.clear
End If
问题好象还不止这些，很想重新写。改进这几个方面：
1、单元格区域左上角位置的定位。一直想用IocationInTable。
2、行、列标与总表相比正确性的判断。
3、需合并的表内数据的有效性

hupanshan

原帖由 wenwen000424 于 2010-1-30 18:26 发表

看过，你的程序的确比其它的在扩展性方面有很大的提高，表头与左边列都有扩展。能否继续完善：1、导入表样能否改成由使用者选择性导入一个准备好的excel文件中的某个工作表样；2、汇总数据改为由操作者选择某个文件 ...

你提的这两个问题是容易解决的，但不一定是大家都需要的“通用”。在“通用”的道路上，问题太多，我只是根据搂主提出的“分类项可变性”做了点探索，无非是演示一下可能性。至于你提到的两点，在网上已经有众多的解决方法。

thtfzhaobo

大家很热情，看来彭版号召力极强，将自用的DLL发送，旨在抛砖引玉。
工具是自用的，基本可以通用，一般用于多文件、多表合并数据所用，未按模板格式输出！
请各位高手指导！

[ 本帖最后由 thtfzhaobo 于 2010-7-27 13:57 编辑 ]

thtfzhaobo

功能较杂，只讲本文涉及部分演示一下。注册DLL我就不说了