恳请大家花些时间帮忙优化我的统计分析报表工具，谢谢!

foshan · 发表于 2005-7-14 09:17

上传的附件是我的一个报表统计分析工具。原先是通过逐行删除不符合条件的单元行来达到同样的报表输出，但耗时太长，最复杂的统计分析工作耗时180秒。后改用 asdf1001 兄的方法，一次性删除不符合条件的单元行，速度得到了大幅提高，最复杂的统计分析工作耗时约16秒。现根据 UNARTHUR 兄教导的采用二维数组的方法，速度又更上一层楼了，最复杂的统计分析工作也只用了几秒钟便可完成统计分析。

这个小工具正在不断完善当中，恳请大家能花些时间帮我优化代码，提出宝贵的改进意见，特别是在精简代码和进一步提高运行速度(也就是算法)等方面。毕竟闭门造车是不能创造出好的作品的。

figfig 兄用 SQL 处理 Excel 数据很在行，请您也能讲讲如何用SQL 来处理这个统计分析报表的方法。

同时感谢 button 兄以前对这个小工具提出许多的宝贵意见。

谢谢大家!

VfwL9yVN.rar (91.37 KB, 下载次数: 80)

[此贴子已经被作者于2005-7-14 14:00:36编辑过]

asdf1001 · 发表于 2005-7-14 11:30

通过变量取值，改判断控件的值为判断变量的值，减少对控件的访问

窗体的标题栏还是留着的好，在UserForm_Initialize中的代码越少越好。

以上是个人看法。

foshan · 发表于 2005-7-14 12:09

以下是引用plxmm在2005-7-14 11:53:54的发言： 点击TextBox3后，提示Image6......，这是个啥东东？

多谢指正，已更正，删除那句多余的代码即可。

foshan · 发表于 2005-7-14 14:01

以下是引用plxmm在2005-7-14 12:15:06的发言： 哈，又逮住一个Bug，你的东东退出后，应该把你的‘统计分析’菜单卸载啊。

已在第一楼更正错误，谢谢!

taller · 发表于 2005-7-17 16:55

Foshan: 由于时间有限,所以不能仔细拜读你的大作,所以下面提出的几点,完全是从代码角度的一点优化

1. 关于Menu的代码一般应该是下面的结构,否则异常退出后,再次打开程序就会有两个菜单 Sub CreatMenu() On Error Resume Next ' del menu On Error GoTo 0 'Creat menu End Sub

2. 大量的If...Else结构,有的可以简化,例如:时间段代码可以改为Select Case,这样结构比较清晰

Select Case Me.ComboBox1.ListIndex Case Is < 3 Call mytime(new_text3, 0, 0) Case 4 Call mytime(new_text3, 13, 0) '...... End Select

3. 模块代码中至少三处用到了类似arr1(k, 11) = arr1(k, 11) + arr1(m, 11)的7行代码,应该使用过程,参考

Sub m() Dim a(2) As Integer For i = 0 To 2 a(i) = i Next mm a() For i = 0 To 2 Debug.Print a(i) Next End Sub Sub mm(ByRef b As Variant) For i = 0 To 2 b(i) = b(i) + 1 Next End Sub

4. 窗体中结算部分,可以简化为下面的代码,楼主还有类似的代码,请自己改善因为为CheckBox4本身就是逻辑值,所以应该用Not CheckBox4代替CheckBox4=False的条件,速度会快

If CheckBox3 And ComboBox2 <> "" Then If Not CheckBox4 Then Call jsck("不含金额", new_text4) ElseIf TextBox1 <> "" Or TextBox2 <> "" Then Call jsck("含金额", new_text4) End If End If

5.明显表和汇总表中整段代码,除了其中的"明显表"和"汇总表"几个字符区别,其余部分完全相同,应该作为一个过程调用

foshan · 发表于 2005-7-18 17:00

守柔版主根据我的代码已作了优化处理，在此先感谢守柔版主的相助!

但遇到一个问题，当执行到 n_date = VBA.IIf(IsDate(arr(i, 19)), CLng(arr(i, 19)), 40000) 时出现错误，提示“类型不匹配”，请大家帮助看如何解决，谢谢!

JYT2z3zn.rar (96.21 KB, 下载次数: 23)

foshan · 发表于 2005-7-18 17:24

以下是引用plxmm在2005-7-18 17:09:15的发言：

不对呀! 这句代码的意思是如果arr(i,19)是日期型数据，则将日期型数据转换成数值，否则等于40000 。“结算后”是文本，就应该执行后面的语句等于40000。

foshan · 发表于 2005-7-18 17:35

将 n_date = VBA.IIf(IsDate(arr(i, 19)), CLng(arr(i, 19)), 40000) 改回原来的代码(下面的代码) ，为什么就不会出现这个问题？

If IsDate(arr(i, 19)) Then n_date = CLng(arr(i, 19)) Else n_date = 40000 End If

守柔 · 发表于 2005-7-18 17:55

佛山兄，你是什么版本的？

另，你的查询条件是什么？我动画看不到

[em04]

foshan · 发表于 2005-7-18 18:00

我的电脑是 win--xp + office 2003。查询的条件是以下的图片(其实任何的查询均会遇到这个问题，因任何的查询条件都要运行 mytime 这个过程)：

[此贴子已经被作者于2005-7-18 18:03:03编辑过]

		自动登录	找回密码
密码			免费注册