请教，如何一键提取各班成绩（不在同一列）至一个表，然后进行排名汇总？

chxw68

各科前N名

1. Sub test3()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   mc = Application.InputBox(prompt:="请输入要提取各科成绩的最大名次", Title:="输入提示", Default:=10, Type:=1)
   
5.   ReDim brr(1 To mc * 2, 1 To 9)
   
6.   With Worksheets("年级总排名")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     arr = .Range("a2:j" & r)
   
9.   End With
   
10.   For j = 4 To 6
    
11.     fs = Application.Large(Application.Index(arr, 0, j), mc)
    
12.     m = 0
    
13.     n = j * 3 - 11
    
14.     For i = 1 To UBound(arr)
    
15.       If arr(i, j) >= fs Then
    
16.         m = m + 1
    
17.         brr(m, n) = arr(i, 1)
    
18.         brr(m, n + 1) = arr(i, 3)
    
19.         brr(m, n + 2) = arr(i, j)
    
20.       End If
    
21.     Next
    
22.   Next
    
23.   With Worksheets("提取各科前N名")
    
24.     .UsedRange.Offset(1, 0).Clear
    
25.     With .Range("a2").Resize(m, UBound(brr, 2))
    
26.       .Value = brr
    
27. '      .Sort key1:=.Range("i3"), order1:=xlAscending, Header:=xlNo
    
28.     End With
    
29.     For j = 1 To 7 Step 3
    
30.       r = .Cells(.Rows.Count, j).End(xlUp).Row
    
31.       .Cells(1, j).Resize(r, 3).Sort key1:=.Cells(2, j + 2), order1:=xlDescending, Header:=xlYes
    
32.     Next
    
33.     r = .UsedRange.Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious).Row
    
34.     With .Range("a1").Resize(r, 9)
    
35.       With .Font
    
36.         .Size = 10
    
37.         .Name = "宋体"
    
38.       End With
    
39.       .Borders.LineStyle = xlContinuous
    
40.       .HorizontalAlignment = xlCenter
    
41.       .VerticalAlignment = xlCenter
    
42.     End With
    
43.   End With
    
44.   
    
45. End Sub
    
46. 
    

复制代码

chxw68

很长时间没写了，练练手。

zpy2

gery_1 发表于 2019-6-5 13:25
1.添加“蓝桥玄霜”老师的vba代码后后，这个表修复了年级一键汇总功能（能自动从各班级 ...

http://club.excelhome.net/forum.php?mod=viewthread&tid=1483070&page=1&mobile=2#pid9974332这里也有一个提取前n名的，如果一个班一个班查询显示，就更容易些。

gery_1

zpy2 发表于 2019-6-13 12:19
这个代码比较多，我一时也看不出来啥问题，你咋修改的，一般都是牵一发而动全身的。

我只是替换了一些值，应该得修改数据库，我也不太懂，不过其他功能还好。这个php源码是我见到的成绩分析功能比较全面、直观的源码，他能根据每个学生历次成绩自动生成折线统计图等许多功能。可惜这个是excel论坛，希望php方面的老师看到能帮忙改一下。

zpy2

gery_1 发表于 2019-6-24 12:43
我只是替换了一些值，应该得修改数据库，我也不太懂，不过其他功能还好。这个php源码是我见到的成绩分析 ...

他这个代码都是硬编码的，不太方便修改。另外，你上传的代码不全，缺少处理Excel的文件，可以去作者的主页下载一个完整的安装包。

zpy2

成折线统计图等许多功能，也不难
http://club.excelhome.net/forum.php?mod=viewthread&tid=1463948&extra=&mobile
折线图http://club.excelhome.net/thread-1458583-1-1.html
用echarts轻松搞定在线图表，折线图是最基本的，，我也有做过，一时找不到，可自行百度 echarts

gery_1

zpy2 发表于 2019-6-24 13:28
成折线统计图等许多功能，也不难
http://club.excelhome.net/forum.php?mod=viewthread&tid=1463948&extra ...

感谢“zpy2”老师的指点。

adud

gery_1 发表于 2019-6-24 12:43
我只是替换了一些值，应该得修改数据库，我也不太懂，不过其他功能还好。这个php源码是我见到的成绩分析 ...

源代码发给我吧，我也来学习学习。

陈功

不错的帖子，留个记号！