主题：[求助]两个问题，请帮忙解决一下。

公式看了令人发晕，帮你顶一下。

[这个贴子最后由czy在 2006/11/22 01:30am 第 2 次编辑]

楼主说的第二个问题，我不知道你对计算排名进行操作时需要多少时间，这个表有27列中用了CountFor进行统计，咱可不敢测试。

如果静下心来去做，速度保守的说提高一倍不存在问题，提高几倍也难说，只是公式比较烦琐，有时间可以帮你提提速。

没有什么技巧，用了最原始的方法，经过测试速度应该是上去了，至于8楼提到的可能提高几倍或许有点夸张，楼主不妨一试。

下面文件在我的电脑中测试，全部排名完成大约需要30秒钟，相信楼主对这个速度还是能够接受的。

egd文件下载

不好意思，忙中有错，总分排名有误，改为下例公式。

其它的楼主自己测试吧，咱闪了。

SortCol(Grid,"语文",2) And SetLabel("","正在对语文进行排名,请稍候...") And EvalFor(Grid,"语文年级排名","if(row=1,1,if([语文]=Cell(Row-1,""语文""),Cell(Row-1,""语文年级排名""),Row))") And SortCol(Grid,"班级",1)And EvalFor(Grid,"语文班级排名","if(row=1,1,if([语文]=Cell(Row-1,""语文""),Cell(Row-1,""语文班级排名""),Row))") And SortCol(Grid,"数学",2) And SetLabel("","正在对数学进行排名,请稍候...")And EvalFor(Grid,"数学年级排名","if(row=1,1,if([数学]=Cell(Row-1,""数学""),Cell(Row-1,""数学年级排名""),Row))") And SortCol(Grid,"班级",1)And EvalFor(Grid,"数学班级排名","if(row=1,1,if([数学]=Cell(Row-1,""数学""),Cell(Row-1,""数学班级排名""),Row))") And SortCol(Grid,"英语",2)And SetLabel("","正在对英语进行排名,请稍候...") And EvalFor(Grid,"英语年级排名","if(row=1,1,if([英语]=Cell(Row-1,""英语""),Cell(Row-1,""英语年级排名""),Row))") And SortCol(Grid,"班级",1)And EvalFor(Grid,"英语班级排名","if(row=1,1,if([英语]=Cell(Row-1,""英语""),Cell(Row-1,""英语班级排名""),Row))") And SortCol(Grid,"物理",2)And SetLabel("","正在对物理进行排名,请稍候...") And EvalFor(Grid,"物理年级排名","if(row=1,1,if([物理]=Cell(Row-1,""物理""),Cell(Row-1,""物理年级排名""),Row))") And SortCol(Grid,"班级",1)And EvalFor(Grid,"物理班级排名","if(row=1,1,if([物理]=Cell(Row-1,""物理""),Cell(Row-1,""物理班级排名""),Row))") And SortCol(Grid,"化学",2) And SetLabel("","正在对化学进行排名,请稍候...") And EvalFor(Grid,"化学年级排名","if(row=1,1,if([化学]=Cell(Row-1,""化学""),Cell(Row-1,""化学年级排名""),Row))") And SortCol(Grid,"班级",1)And EvalFor(Grid,"化学班级排名","if(row=1,1,if([化学]=Cell(Row-1,""化学""),Cell(Row-1,""化学班级排名""),Row))") And SortCol(Grid,"理综",2) And SetLabel("","正在对理综进行排名,请稍候...") And EvalFor(Grid,"理综年级排名","if(row=1,1,if([理综]=Cell(Row-1,""理综""),Cell(Row-1,""理综年级排名""),Row))") And SortCol(Grid,"班级",1)And EvalFor(Grid,"理综班级排名","if(row=1,1,if([理综]=Cell(Row-1,""理综""),Cell(Row-1,""理综班级排名""),Row))") And SortCol(Grid,"政治",2)And SetLabel("","正在对政治进行排名,请稍候...") And EvalFor(Grid,"政治年级排名","if(row=1,1,if([政治]=Cell(Row-1,""政治""),Cell(Row-1,""政治年级排名""),Row))") And SortCol(Grid,"班级",1)And EvalFor(Grid,"政治班级排名","if(row=1,1,if([政治]=Cell(Row-1,""政治""),Cell(Row-1,""政治班级排名""),Row))") And SortCol(Grid,"历史",2)And SetLabel("","正在对历史进行排名,请稍候...") And EvalFor(Grid,"历史年级排名","if(row=1,1,if([历史]=Cell(Row-1,""历史""),Cell(Row-1,""历史年级排名""),Row))") And SortCol(Grid,"班级",1)And EvalFor(Grid,"历史班级排名","if(row=1,1,if([历史]=Cell(Row-1,""历史""),Cell(Row-1,""历史班级排名""),Row))") And SortCol(Grid,"文综",2) And SetLabel("","正在对文综进行排名,请稍候...") And EvalFor(Grid,"文综年级排名","if(row=1,1,if([文综]=Cell(Row-1,""文综""),Cell(Row-1,""文综年级排名""),Row))") And SortCol(Grid,"班级",1)And EvalFor(Grid,"文综班级排名","if(row=1,1,if([文综]=Cell(Row-1,""文综""),Cell(Row-1,""文综班级排名""),Row))") And SortCol(Grid,"生物"

呵呵，我的配置还没你的高，你的机子30秒肯定可以搞定了。

还真没比较过后面的数据，我检查一下。

是有错误，可以解决，不过需要点时间。

难度比较大，公式大部份需要改动，只能晚上来解决了。

从你上传的文件就能看出来，你的文件是在网络上应用的。

在网络上应用的文件最好能及时清除一些出错的东东，比如你上传的那个文件的第一个表中，全部表格中都有单元格公式“0”，这是网络应用中出错引起的，如果不加以清除，可能会导致很严重的错误，希望以后在使用中自找，清除方法，选中全表，右击，单元格公式，删除公式生成器中的值，确定。

[这个贴子最后由czy在 2006/11/26 07:13pm 第 1 次编辑]

终于完成了一项大工作量的公式，测试了语文和数学的班级排名，没发现错误。楼主可以测试一下，有错误再告诉我。

因为计算公式比原来复杂了些，速度有所下降，我的机子是50秒左右，另外在窗口标签中加入了计算时间，操作完成后可以很直观的看到整个计算所需的操作时间。

egd文件下载