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

来生缘 · 发表于 2005-7-18 21:01

用VBA时，不同版本的兼容性是不是很差？

守柔 · 发表于 2005-7-19 06:08

以下是引用button在2005-7-18 19:52:35的发言： 还是还原成原先的If ... Then 写法吧，IIf函数无论条件真假，两个结果都要编译计算，这就是过不去的原因，另外从速度上看前者也大于后者。

同意Button版主的说法，IIF两个结果都要编译计算，但至于速度，我觉得，IIF与IF……THEN之间，没有必要比较。

我的电脑中，运行时正常，单位中也是WIN2000+OFFICEXP，所以，我当时问了一个FOSHAN兄是何版本，今天早上，在家里，也是这个配置，均能正常运行。

foshan · 发表于 2005-7-19 08:07

奇怪了!刚才我又运行了第9楼的附件中的文档，还是在运行到 n_date = VBA.IIf(IsDate(arr(i, 19)), CLng(arr(i, 19)), 40000) 出现类型不匹配的错误。希望其它版本的朋友帮忙测试一下第9楼的文档，看看会不会出现同样的错误，谢谢!

foshan · 发表于 2005-7-19 11:55

经测试第9楼的附件，在win-98 + office-xp 中运行无误，但在 win2000、winxp + excel2003 均出现同样的错误，难道是 excel2003 做了什么手脚？

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

感谢button、守柔、taller 三位版主和高朋的意见和建议，根据各方的意见，我于7月19日作了优化处理(主要是结构上的优化)，还有一些意见正在采纳修改中，现先上传修改后文档，请大家再提宝贵意见，谢谢!

几点优化：

1、用户没有输入足够的查询条件时，按确定按钮后会显示相应的未选定项目；

2、可选条件时，只有用户选择了该条件（Checkbox=true时），相关控件的Enabled属性才为True；

3、复杂的 If...Elseif 结构,改用 Select Case 结构，使结构比较清晰；

4、用Not CheckBox4代替CheckBox4=False；

5、禁止删除名为“工程”、“明细表”、“汇总表”的工作表。

zmUTA4M8.rar (101.83 KB, 下载次数: 18)

UNARTHUR · 发表于 2005-7-20 09:30

是啊，代码这么professional，界面和表格却这么粗糙，不匹配呀

foshan · 发表于 2005-7-20 09:55

以下是引用plxmm在2005-7-20 9:44:20的发言：

从您的角度，您认为怎样修改复选框才能不让用户犯迷糊？您能否在窗体上直接修改一下，谢谢!

foshan · 发表于 2005-8-1 10:16

Long_III 兄：您的建议我考虑了一个多星期，为了让用户容易理解一点，我作了如下修改，请您看看是否会好的，谢谢! 另外，增加了明细汇总表之后，再重复增加时就会出错的问题正在考虑如何处理，暂时想到的办法是出现错误后，就删除原来的工作表。

[此贴子已经被作者于2005-8-1 10:19:19编辑过]

Long_III · 发表于 2005-8-1 10:23

1、对于里面的“与”，我觉得可以删除，因为用户选择两个按钮就应该知道是同时满足的意思，而不必点击那个“与”，因为根本没有与之对应设置“或”

2、关于重复生成工作表，按你里面的代码，原先的表可以删除，做一个自定义函数，对要新增的工作表进行判断，如果存在就删除重新生成

Long_III · 发表于 2005-7-20 10:16

虽然现在讨论图形的美化问题有点晚，也觉得重新修改会让人很烦，但是一个好的界面绝对会给人一种很好的感觉

我给个图，觉得这样会不会让用户容易理解一点

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