Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4072|回复: 10

(分享)成绩查询

[复制链接]
发表于 2012-9-3 07:03 | 显示全部楼层 |阅读模式
本帖最后由 long826121 于 2012-9-3 08:45 编辑

首先感谢帮助我的人,因为他们的帮助让我学习到很多。
下面这个分享的问题,是曾经我在此论坛求助的问题,但当时没得到解决,兄弟姐妹们给我很好的建议(感谢你们),最后经过研究和修改,做出了效果,在此分享下。“成绩查询”按钮最后显示的班名、年名是各单科的排名,且同分数同名次且占位处理。
附件如下:(特此说明:主要分享“成绩查询”按钮的代码)
成绩查询.rar (29.87 KB, 下载次数: 85)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2012-9-3 08:00 | 显示全部楼层
本帖最后由 zjdh 于 2012-9-3 08:06 编辑

不错!
提个建议,既然“学号”和“姓名”是自动填写的,何不在填写完考号时先自动填写?,否则修改考号后学号姓名对不上!
添加如下语句:
Private Sub TextBox1_AfterUpdate()
    With Sheets(ComboBox1.Value)
        r = .Range("A" & .Cells.Rows.Count).End(xlUp).Row
        Brr = .Range("C2:R" & r).Value
    End With
    For i = 1 To UBound(Brr)
        If Brr(i, 1) = TextBox1.Value Then GoTo Y
    Next
    MsgBox "此班级中无此考号。": Exit Sub
Y:
    TextBox2 = Brr(i, 2)
    TextBox3 = Brr(i, 3)
End Sub

评分

参与人数 1 +12 收起 理由
long826121 + 12 不错的一个建议。非常感谢你师傅!呵呵

查看全部评分

回复

使用道具 举报

发表于 2012-9-3 08:23 | 显示全部楼层
回复

使用道具 举报

发表于 2012-9-3 08:25 | 显示全部楼层
QQ截图20120903082412.jpg
被误报到了,
回复

使用道具 举报

发表于 2012-9-3 08:29 | 显示全部楼层
QQ截图20120903082739.jpg

点退出按钮报错了,没有定义变量i
回复

使用道具 举报

发表于 2012-9-3 08:33 | 显示全部楼层
值得学习.谢谢!!!
回复

使用道具 举报

 楼主| 发表于 2012-9-3 08:42 | 显示全部楼层
hwc2ycy 发表于 2012-9-3 08:29
点退出按钮报错了,没有定义变量i

对于你这种情况,直接修改为:
Private Sub 退出_Click()
   End
End Sub
回复

使用道具 举报

 楼主| 发表于 2012-9-3 08:47 | 显示全部楼层
根据2楼的建议,我更新下。附件如下。
成绩查询.rar (31.31 KB, 下载次数: 60)
回复

使用道具 举报

发表于 2012-9-3 08:58 | 显示全部楼层
回复

使用道具 举报

发表于 2012-9-3 10:26 | 显示全部楼层
谢谢楼主,谢谢分享!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 02:14 , Processed in 0.894267 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表