[已解决]求修改自动提到奖励名单代码

lwq0281 · 发表于 2014-4-8 19:09

在论坛下的一个EXCEL工作簿，由两个工作表组成，一个工作表是“成绩表”，另一个“工作表前N名”，输入想生成的前N名，点一个“光荣榜”按钮，就自动生成各科的前N名光荣榜了。

可是，就一个班用的，我想删除原成绩表中的“班级代码”这一列，增加“班名“，“级名”，“应往届名”，“班进退”，“级进退”这几列。
求帮忙。

自动前N名成绩(VBA生成打印).rar (24.49 KB, 下载次数: 2)

xpw6061 · 发表于 2014-4-8 21:58

合要求的话就用,改好了

lwq0281 · 发表于 2014-4-9 07:08

本帖最后由 lwq0281 于 2014-4-9 07:12 编辑

xpw6061 发表于 2014-4-8 21:58
合要求的话就用,改好了

这个是可以用，可是“成绩表”"前N名”工作表中，班级代码，这一列都没有删除，如果删除，运行就出错了。
“班级代码”这列对统计一个班来说，是多余的。只要生成，某科，姓名，成绩，名次，就可以了。

而且，我还想在光荣榜中生成“班进退前N名”“级进退前N名”的奖励名单。现在没有生成。却生成在总分前100名哪里了。
生成在班中或者在级中进步快的前N名是用于奖励进步学生的，要独立出来奖励。

原来的代码，可以“前N名”这个工作表中某科的奖励名单前输入要生成的人数的，如“总分前100名”“语文前30名”修改数字“总分前10名”“语文前5名”就按输入的人数生成了。

xpw6061 · 发表于 2014-4-9 10:14

这个最佳答案由 xpw6061 给出，感谢 xpw6061 的回答。

单击隐藏图章

lwq0281 发表于 2014-4-9 07:08
这个是可以用，可是“成绩表”"前N名”工作表中，班级代码，这一列都没有删除，如果删除，运行就出错了 ...

{:011:}ok

lwq0281 · 发表于 2014-4-9 15:30

xpw6061 发表于 2014-4-9 10:14
ok

这才是最好的。再也不用不停排序了！点一下按钮，全好了。
我还对它优化了一下！班名，级名，应往届名，那些全是没有用的，我删除了，然后插入了一个空行，放按钮。

自动前N名成绩.rar (23.65 KB, 下载次数: 5)

xpw6061 · 发表于 2014-4-9 15:45

lwq0281 发表于 2014-4-9 15:30
这才是最好的。再也不用不停排序了！点一下按钮，全好了。
我还对它优化了一下！班名，级名，应往届名， ...

你对VBA知道不少啊,能改成这样,佩服,对别人思路看得明白
sql = "SELECT top " & b & " 姓名," & arr(i - 1) & " ,dcount(1,""成绩表$"" ,"" " & arr(i - 1) & ">"" & " & arr(i - 1) & ") +1 as 排名 FROM [成绩表$] ORDER BY " & arr(i - 1) & " DESC"
这一句可要小心改,一个空格,一个标点都不能乱动的

lwq0281 · 发表于 2014-4-10 09:58

xpw6061 发表于 2014-4-9 15:45
你对VBA知道不少啊,能改成这样,佩服,对别人思路看得明白
sql = "SELECT top " & b & " 姓名," & a ...

高手啊！学习了！还想问一下，如果“成绩表”如附件有两行表头，而不是从第一行开始是有效数据的话，可以怎样改动一下？

自动前N名成绩.rar (20.48 KB, 下载次数: 2)

xpw6061 · 发表于 2014-4-10 10:51

lwq0281 发表于 2014-4-10 09:58
高手啊！学习了！还想问一下，如果“成绩表”如附件有两行表头，而不是从第一行开始是有效数据的话，可以 ...

可以了,如查要增加列数的话,自己可以修改了

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

[已解决]求修改自动提到奖励名单代码

相关帖子

评分

评分

点评

评分