求一段VBA代码？谢谢！

cdhgwz

在多个班级中找学生总分最大值，然后按大到小顺序，放在“全校榜”中，如果7.1两名学生总分相同，学号小的在前，其他班级同前；如果7.1、7.2总分相同，7.1学生放在前面！其他班级类同。再谢谢！！并列名次，比如两个第一名，总分为第二的，跳号计为第三名！

yylucke

用SQL解决的，参看附件
另，
1、用SQL解决时，你每张班级表的标题

学号

班 次

姓 名

语 文

英 语

数 学

总 分

必须一样！！！
2、我的代码有个缺陷：排名没有考虑并列名次。直接粗暴的1~100.不知道是否并列，且并列后，是否跳号，比如两个第1，那么是否有第2？还是第1过了就是第3.这个你没有说明。

cdhgwz

yylucke 发表于 2018-6-7 11:51
用SQL解决的，参看附件
另，
1、用SQL解决时，你每张班级表的标题

谢谢，我认证拜读一下！

lsdongjh

在二楼基础上，SQL语句优化

1. Private Sub CommandButton1_Click()
   
2.     Dim Conn As Object, Rst As Object, strPath As String
   
3.     Dim strConn As String, strSQL As String, strSQL_E As String
   
4.     Dim lngRow As Long
   
5.    
   
6.     Set Conn = CreateObject("ADODB.Connection")
   
7.     Set Rst = CreateObject("ADODB.Recordset")
   
8.     strPath = ThisWorkbook.FullName '设置工作簿的完整路径和名称
   
9.     Select Case Application.Version * 1 '设置连接字符串,根据版本创建连接
   
10.         Case Is <= 11
    
11.             strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & strPath
    
12.         Case Is >= 12
    
13.             strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    
14.     End Select
    
15. 
    
16.     Conn.Open strConn '打开数据库链接
    
17.     Sheet7.Range("A3:N51").ClearContents '清空区域的数据
    
18. 
    
19.     For i = 1 To Sheets.Count
    
20.         If Sheets(i).Name <> "全校榜" Then strSQL = strSQL & "SELECT [学号],[班 次],[姓 名],[语 文],[英 语],[数 学],[总 分] FROM [" & Sheets(i).Name & "$A4:G41] " & " UNION ALL "
    
21.     Next i
    
22. 
    
23.     strSQL = Left(strSQL, Len(strSQL) - 11) '因为循环倒数第二个工作表时，sq语句最后还是链接到 union all ,一共有11个字符,这时要提取sq字符串中不包含最后11个字符的字符串
    
24.     strSQL = strSQL & " ORDER BY [总 分] DESC,[学号] ASC"
    
25.    
    
26.     strSQL_E = "Select Top 50 [班 次],[姓 名],[语 文],[英 语],[数 学],[总 分] From (" & strSQL & ") "
    
27.     Rst.Open strSQL_E, strConn, adOpenStatic, adLockReadOnly
    
28.     Sheet7.Range("A3").CopyFromRecordset Rst
    
29.     Rst.Close
    
30.    
    
31.     strSQL_E = "Select Top 50 [班 次],[姓 名],[语 文],[英 语],[数 学],[总 分] From (" & strSQL & ") Where [学号] NOT In (Select Top 50 [学号] From (" & strSQL & "))"
    
32.     Rst.Open strSQL_E, strConn, adOpenStatic, adLockReadOnly
    
33.     Sheet7.Range("H3").CopyFromRecordset Rst
    
34.         
    
35.     Conn.Close
    
36.     Set Conn = Nothing
    
37.    
    
38.     For lngRow = 1 To 50
    
39.         Sheet7.Range("G" & lngRow + 2) = lngRow
    
40.         Sheet7.Range("N" & lngRow + 2) = lngRow + 50
    
41.     Next
    
42. End Sub

复制代码

yylucke

lsdongjh 发表于 2018-6-7 13:57
在二楼基础上，SQL语句优化

请教：TOP参数与ORDER连用，会出意外。

cdhgwz

lsdongjh 发表于 2018-6-7 13:57
在二楼基础上，SQL语句优化

谢谢！谢谢！谢谢！

cdhgwz

yylucke 发表于 2018-6-7 14:27
请教：TOP参数与ORDER连用，会出意外。

谢谢！谢谢！谢谢！

cdhgwz

yylucke 发表于 2018-6-7 14:27
请教：TOP参数与ORDER连用，会出意外。

很高兴看到大家回帖，谢谢！万分感谢！！
对我的问题再详细说明一下：求一段VBA代码，
从各班级工作表中统计出学生考试总成绩的1-100名，依次放在“全校榜”工作表中，名次并列时，跳号排列。当班内人数增加、科目增加、班级数增加时代码要兼容！

zopey

没有完全兼容的代码。只能自己修改。

cdhgwz

zopey 发表于 2018-6-7 16:31
没有完全兼容的代码。只能自己修改。

学生数增加时要兼容，怎么增加科目、班级，附“增加”说明！因为，我是菜鸟！谢谢！！