求一段VBA，将与朱倩同学各科成绩差符合要求的学生找出并填入结果显示区内

zhengsong347

盼盼198310 发表于 2023-5-8 16:52
...........

将朱倩的总分差参数，改为5,，，结果会出现超出5分的学生

zhengsong347

盼盼198310 发表于 2023-5-8 16:58
4楼的代码中少一句话,用这个

将学生改成刘增雷，应该只有12个学生符合，，，但结果却有25个，，，请帮我看看

zhengsong347

ovxyz 发表于 2023-5-8 17:03

出现的都是数字？

z865593849

Sub FillData()
    Dim conn As Object
    Dim rs As Object
    Dim sql As String
   
    ' 建立连接对象
    Set conn = CreateObject("ADODB.Connection")
   
    ' 连接到当前工作簿中的数据源
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
   
    lastrow = Sheets(1).[j6].End(xlDown).Row
    ' 设置 SQL 查询语句
    sql = "SELECT * FROM [初一分班原始成绩$A6:J" & lastrow & "] where 姓名 <> '" & Sheets(1).[i2] & "'" _
        & " and abs(语文-" & Sheets(1).[k2] & ") <=15 " _
        & " and abs(数学-" & Sheets(1).[l2] & ") <=30 " _
        & " and abs(英语-" & Sheets(1).[m2] & ") <=20 " _
        & " and abs(科学-" & Sheets(1).[n2] & ") <=20 "
        
    ' 执行查询并将结果填充到 Sheet2 的 A1 单元格
    Set rs = conn.Execute(sql)

    Sheets(1).Range("R4").CopyFromRecordset rs
   
    ' 释放资源
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
End Sub

盼盼198310

zhengsong347 发表于 2023-5-8 17:30
将学生改成刘增雷，应该只有12个学生符合，，，但结果却有25个，，，请帮我看看

你说的成绩差,是比目标成绩小还是大,还是都要?

zhengsong347

盼盼198310 发表于 2023-5-8 17:38
你说的成绩差,是比目标成绩小还是大,还是都要?

都要，，以每科目标成绩为中心，上下15分的范围     五个项目都要满足。

盼盼198310

盼盼198310 发表于 2023-5-8 17:38
你说的成绩差,是比目标成绩小还是大,还是都要?

试试..........

zhengsong347

ovxyz 发表于 2023-5-8 16:48
你这是或者并且啊。
例如是所有科目差都要符合，还是某一门符合就行。
一看你这总差100分，感觉不用编了 ...

性别这列想用“男，女”直接代替“1、2”来进行分班，使男女生平均。请麻烦修改？
https://club.excelhome.net/thread-1662845-1-1.html
(出处: ExcelHome技术论坛)