怎样按班级给每科单独降序

xgczwp · 发表于 2018-2-25 21:25

本帖最后由 xgczwp 于 2018-2-25 21:27 编辑

按班级给每科单独降序,每科降序,不影响其它的科目.

wmqz.130 · 发表于 2018-2-25 21:41

我认为你的提问和实际情况存在矛盾，各科成绩的载体是姓名，假设张三语文成绩在班级中最高，那么按语文降序，那么张三就排在了第一的位置。如果按数学降序排，张三就不一定在第一的位置了，那么之前的语文排序的顺序就要改变，意味着按语文排降序，就失去了意思。

因此做不到按每科都降序排列。只能按一科降序排。或者说分清降序的主次排。第一降序的关键字，第二，第三。。。确写了才能实施。

maqiuhua · 发表于 2018-2-25 21:48

你应该搞清楚，谁是主降序，谁是副降序，在满足主的情况下做副的降序，是这个意思的话，筛选里有个选择性排序就可以

xgczwp · 发表于 2018-2-25 22:32

我是想对每个班的每科成绩进行评算，每科取前50人左右，跟学生没关系。

xgczwp · 发表于 2018-2-25 22:33

wmqz.130 发表于 2018-2-25 21:41
我认为你的提问和实际情况存在矛盾，各科成绩的载体是姓名，假设张三语文成绩在班级中最高，那么按语文降序 ...

我是想对每个班的每科成绩进行评算，每科降序，取前50人左右，跟学生没关系

wmqz.130 · 发表于 2018-2-25 22:35

xgczwp 发表于 2018-2-25 22:33
我是想对每个班的每科成绩进行评算，每科降序，取前50人左右，跟学生没关系

那你需要每个班每科的前50名放在一张表，或者一个区域。你附件中是放在一起的，不合逻辑。

xgczwp · 发表于 2018-2-25 22:42

我想先按每科排序，然后每班前50引用到另外一个工作表中，再算

xgczwp · 发表于 2018-2-25 22:45

subcolsort
Setss=Selection
Fori=1Toss.Columns.Count
ss.Columns(i).SortKey1:=ss.Columns(i),Order1:=xlAscending,Header:=xlNo,_
Orientation:=xlTopToBottom
Next
EndSub
我在网上找到这和比较好用，就是每次要选区域，一个班要选一次。

xgczwp · 发表于 2018-2-25 22:50

本帖最后由 xgczwp 于 2018-2-25 22:53 编辑

wmqz.130 发表于 2018-2-25 21:41
我认为你的提问和实际情况存在矛盾，各科成绩的载体是姓名，假设张三语文成绩在班级中最高，那么按语文降序 ...

我每次选一个班，就可以一下降序。
subcolsort
Setss=Selection
Fori=1Toss.Columns.Count
ss.Columns(i).SortKey1:=ss.Columns(i),Order1:=xlAscending,Header:=xlNo,_
Orientation:=xlTopToBottom
Next
EndSub
用这个我每次用人工选一个班，能不能自动选区域排序

wmqz.130 · 发表于 2018-2-25 23:14

xgczwp 发表于 2018-2-25 22:50
我每次选一个班，就可以一下降序。
subcolsort
Setss=Selection

其实没必要用VBA
你把班级做为主关键字。选择一个科目做次关键字。然后排序。就得到了。
每个科目操作一次。

你发上来的代码就是根据EXCEL排序录制生成的代码，稍加修改而已。效率上不见的高。

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

[求助] 怎样按班级给每科单独降序