刚才试了一下,感觉还不错,我还能得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倍。