刚才试了一下，感觉还不错，我还能得90多分，不枉十几年来交的罚款。
个人认为窗口中的重新开始按钮执行太慢，可以大大提速，比如将表1的按钮公式改成这样：
Eval("ReplaceFor(Grid,"""+Substitute("A|B|C|结果","|",""",0) And ReplaceFor(Grid,""")+""","""") And ReplaceFor(Grid,""正确"","""")") And RecalcCol(GridName,"序号") And SortCol(GridName,"序号",1) And RecalcCol(GridName,"XH") And Move(1,1)
表2的按钮公式改成这样：
Eval("ReplaceFor(Grid,"""+Substitute("1分|2分|3分|6分|12分|得分","|",""",0) And ReplaceFor(Grid,""")+""","""") And ReplaceFor(Grid,""正确"","""")") And RecalcCol("序号") And SortCol(Grid,"序号",1) And RecalcCol("XH") And Move(1,1)
公式执行速度慢的原因是删除命令触动了多列的操作公式，通过上述优化速度可提高N倍。
加好友 
发短信
Post By：2006/10/28 10:54:00 [只看该作者]
Post By：2006/10/28 11:04:00 [只看该作者]
Post By：2006/11/6 13:39:00 [只看该作者]
Post By：2006/11/7 6:46:00 [只看该作者]
