输入起始名次实现班内排名（有错）求高手解救调试

lb1280

在表1“成绩表”中，A列：学号，B列：姓名，C列：班别，D到N列是各科的成绩，D列：语文，E列：数学，F列：英语，G列：政治，H列：物理，I列：化学，J列：历史，K列：地理，L列：生物，M列：体育，N列：总分，用VBA写一段代码，可以分别计算出各班各科成绩排名，只进行各班班内排名，要求在表2“排名”中I1单元格输入开始名次，J1列单元格输入结束名次，点击运行后，把排名输出到表2“排名”中的A列到E列，其中A列：学号，B列：姓名，C列：班别，D列：科目，E列：成绩，F列：名次

gwjkkkkk

请参考附件。。。

lb1280

gwjkkkkk 发表于 2023-6-1 15:07
请参考附件。。。

可能我表没解悉得很清楚，还是多谢你。我的意思是在排名表中I1 和J1位置输入起始排名，又或可以弹出第几名到第几名次对话框,按确定后可以把各班各科起止名单显示出来。(另外统计班内排名。不进行全级排名)

ericxzhou

slonby

ericxzhou 发表于 2023-6-2 16:33

牛掰，看的公式都头大了

xunanming

请参考,是否如要求所述-------------------------

lb1280

leeson7502 发表于 2023-6-3 17:10
参与一下，不知是否是楼主所求，顺便也搞一个年级排名：

很强大，非常感谢，但有个小要求，如果我不选“排名依据这一栏”，可以把各班所有科目成绩按其它条件查找出来吗？现在你这相窗口是必选项。

lb1280

xunanming 发表于 2023-6-3 16:18
请参考,是否如要求所述-------------------------

非常好，万分感谢，还有一科“总分”，没排，在代码哪里可以加回？

xunanming

lb1280 发表于 2023-6-5 15:36
非常好，万分感谢，还有一科“总分”，没排，在代码哪里可以加回？

1. For Each key In d.keys
   
2.        For j = 4 To UBound(arr, 2) -1

复制代码

你意思总分也算一科目,参与排名提取???如果是将这代码中的这部分改成如上所示.