VBA求助

iamxxb · 发表于 2018-9-8 17:49

具体要求请见附件，烦请路过的大神帮忙看看如何写代码，谢谢！
考试科目不一定就是出现在固定的列数里。

lsc900707 · 发表于 2018-9-8 18:00

论坛里有很多关于成绩的帖子，找找参考一下。

liulang0808 · 发表于 2018-9-8 18:02

http://club.excelhome.net/thread-1385473-1-1.html
字典有关的帖子，可以参考
不够楼主第一列，满分是多少，这个再第一张表内体现不出来吧

iamxxb · 发表于 2018-9-8 18:24

liulang0808 发表于 2018-9-8 18:02
http://club.excelhome.net/thread-1385473-1-1.html
字典有关的帖子，可以参考
不够楼主第一列，满分是 ...

统计表里，科目后面的总分不用管，那个只要生成第一行科目就可以呢，比如，语文，数学等

iwangyi · 发表于 2018-9-8 20:44

Sub CC()
[A3:F9].ClearContents: N = 2
Set cn = CreateObject("adodb.connection")
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
For Each rng In Sheets("七天网络阅卷报表（考生成绩）").Range("E1:K1")
Sql = "SELECT COUNT(" & rng & "),AVG(" & rng & "),MAX(" & rng & "),MIN(" & rng & ")from [七天网络阅卷报表（考生成绩）$] WHERE " & rng & "<>0"
N = N + 1: Cells(N, 1) = rng
Range("B" & N).CopyFromRecordset cn.Execute(Sql)
Next
End Sub

iwangyi · 发表于 2018-9-8 20:45

附件请参考

lsc900707 · 发表于 2018-9-8 23:11

本帖最后由 lsc900707 于 2018-9-9 05:42 编辑

iwangyi 发表于 2018-9-8 20:45
附件请参考

还有一个及格人数没有统计到！

iwangyi · 发表于 2018-9-9 06:14

lsc900707 发表于 2018-9-8 23:11
还有一个及格人数没有统计到！

请教老师，及格人数分两类，一类语数英80及格，其余科目60及格，在sQL中对上面条件判断用if合适还是用Where in ["语文"，"数学"，"英语"]适合

lsc900707 · 发表于 2018-9-9 09:34

iwangyi 发表于 2018-9-9 06:14
请教老师，及格人数分两类，一类语数英80及格，其余科目60及格，在sQL中对上面条件判断用if合适还是用Whe ...

SQL你是我的老师，我只会一点皮毛。

herexcel · 发表于 2018-9-9 12:43

试试，可以自动调整

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

[求助] VBA求助

评分

评分