[已解决]求助关于任一班级范围内查找前N名的问题

g11 · 发表于 2009-11-25 21:17

ZWafOMQW.rar (62.22 KB, 下载次数: 4)

一剑惊心 · 发表于 2009-11-25 21:22

就用筛选不是很好吗？

g11 · 发表于 2009-11-25 21:30

本人希望能用VBA做出来，这样傻瓜一点，

g11 · 发表于 2009-11-26 12:48

自已顶顶顶顶顶顶

蓝桥玄霜 · 发表于 2009-11-26 19:58

Sub cax()
Dim i&, Myr&, Arr, bj$, mc, Arrsz, b, ii&, n%
Dim Sht1 As Worksheet, Sht2 As Worksheet
Set Sht1 = Sheets("成绩表")
Set Sht2 = Sheets("年级前N名")
Myr = Sht1.[a65536].End(xlUp).Row
Arr = Sht1.Range("a5:p" & Myr)
Sht2.Activate
[a6:p1000] = ""
bj = [f2]
mc = [l2]: n = 5
Arrsz = Split(bj, "、")
For ii = 0 To UBound(Arrsz)
    b = Arrsz(ii)
    For i = 1 To UBound(Arr)
        If Arr(i, 1) = Val(b) And Arr(i, 15) < mc + 1 And Arr(i, 15) <> "" Then
            n = n + 1
            Cells(n, 1).Resize(1, 16) = Application.Index(Arr, i, 0)
        End If
    Next
Next
End Sub

西式风 · 发表于 2009-11-27 10:17

蓝版主，用你的代码调试没反应

amulee · 发表于 2009-11-27 10:34

代码正常啊

SwCZUR7Q.rar (61.19 KB, 下载次数: 2)

g11 · 发表于 2009-11-27 11:08

蓝版主误会我的意思了

我是说从这些班级中进行一次排名，然后从中要出排名在前N名的学生情况

如把175班和176班两个班学生进行一次排名，然后从中找出排名在前10名的学生成绩情况

如附件

ahIIsM9P.rar (64.07 KB, 下载次数: 2)

amulee · 发表于 2009-11-27 11:31

这样对了不？

zUhXCRqd.rar (64.8 KB, 下载次数: 4)

g11 · 发表于 2009-11-27 12:30

效果出来了，但如果能自动加上单元格线和在“年级主科排名”那里重新以1、2、3来排序就更加完美了

还有，如果把一些班别进行设定给一个按钮，只要一按该按钮就可以调班这些班级中的前进N名，那又如果完成呢？

如我把175和176班进行设定给按钮1，我只要按按钮1就可以完成对175和176班前N名的学生情况，而不用填写175 /176这些班号

[此贴子已经被作者于2009-11-27 12:58:25编辑过]

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

[已解决]求助关于任一班级范围内查找前N名的问题

回复：（g11）求助关于任一班级范围内查找前N名的问题...