求平均值

zhaojiaoyang200 · 发表于 2014-1-19 19:16

本帖最后由 zhaojiaoyang200 于 2014-1-20 07:02 编辑

亲,我的问题在附件,效果如图，感谢.

TTBRD · 发表于 2014-1-19 22:37

笨点的办法有一个，取班级和一个科目组成排序，去掉后5，再求平均分，要做多次排序，期待有老师能有更好办法

zhaojiaoyang200 · 发表于 2014-1-20 07:21

TTBRD 发表于 2014-1-19 22:37
笨点的办法有一个，取班级和一个科目组成排序，去掉后5，再求平均分，要做多次排序，期待有老师能有更好办法 ...

我也在期待．．．．．

yiyiyicz · 发表于 2014-1-20 08:32

大概在半年前，几乎一摸一样的问题，已经有了完整的方案和代码
半年后就找不到了？
中小学的老师应该给学生作出表率：有礼貌、学会举一反三

zhaojiaoyang200 · 发表于 2014-1-21 18:57

yiyiyicz 发表于 2014-1-20 08:32
大概在半年前，几乎一摸一样的问题，已经有了完整的方案和代码
半年后就找不到了？
中小学的老师应该给学 ...

兄台，不知你说话何意．你能解决，我向你学习；若你不能，大家一起学习．
我时间，能力有限．帮位老师上传此帖，本人并非老师．
请大家一起帮忙，我替老师多谢．

yiyiyicz · 发表于 2014-1-22 16:37

zhaojiaoyang200 发表于 2014-1-21 18:57
兄台，不知你说话何意．你能解决，我向你学习；若你不能，大家一起学习．
我时间，能力有限．帮位老师上 ...

如果真想学习，大家都用的方法是
在EH中搜相关的“关键字”；找到相近的帖子和代码（你的这个就有一摸一样的东西）；下载代码，或者照抄；或者仔细读，至少能做些变化
你这样是打算抄，还是打算灵活运用呢？
一种可能就是连抄都觉得费劲，直接找免费劳动力

找免费劳动力，你不是第一个，也不是最后一个。这也没什么大不了的。
但是，求教什么“分数”“成绩”一类的帖子，尤其难伺候，稍有一点不如意，就要求改，口气却是小学老师训学生的腔调。最后连声谢谢都很勉强。为人师表，何其不堪！
这里都是互助，大家凭兴趣回答问题。面对反复挑剔的救助，多数人是出于“良工不示人以朴”态度，继续完善代码。但却助长了一类人愈发依赖的惰性。也让人对此类人愈发反感。
不知阁下是不是会反躬自问呢？

zhaojiaoyang200 · 发表于 2014-1-22 19:34

yiyiyicz 发表于 2014-1-22 16:37
如果真想学习，大家都用的方法是
在EH中搜相关的“关键字”；找到相近的帖子和代码（你的这个就有一摸一 ...

谢谢你的良言．

CheryBTL · 发表于 2014-1-22 20:25

怎么还有缺考了空文本吧？先实现所有班级平均分吧。
排序的方法太麻烦，可以利用一个新的工作表中进行输出、排序后再读取的办法来处理这步了。

zhaojiaoyang200 · 发表于 2014-1-22 20:33

CheryBTL 发表于 2014-1-22 20:25
怎么还有缺考了空文本吧？先实现所有班级平均分吧。
排序的方法太麻烦，可以利用一个新的工作表中进行输出 ...

我问过老师了，＂缺考＂按0处理．这道题我也想出了解决的办法，但太复杂了．

CheryBTL · 发表于 2014-1-22 20:46

zhaojiaoyang200 发表于 2014-1-22 20:33
我问过老师了，＂缺考＂按0处理．这道题我也想出了解决的办法，但太复杂了．

这个是个半成品，后面可以把表2作为辅助工作表，输出过程结果、排序、读入内存数组却掉最后5名再输入。这样一个循环下来即可。

Sub 成绩分析()
Dim ar, re, temp
Dim d As Object, i As Integer, j As Integer, R As Integer, Cnt As Integer
Set d = CreateObject("Scripting.Dictionary")
ar = Sheets(1).Range("A3").CurrentRegion
ReDim re(1 To 999, 1 To 10)
ReDim temp(1 To 999, 1 To 11)
For i = 3 To 12
re(1, i - 2) = ar(3, i)
Next
Cnt = 1
For i = 4 To UBound(ar)
If Not d.exists(ar(i, 3)) Then
Cnt = Cnt + 1
d(ar(i, 3)) = Cnt
re(Cnt, 1) = ar(i, 3)
temp(Cnt, 11) = 1
For j = 4 To 12
If Not (ar(i, j) = "缺考" Or ar(i, j) = " ") Then temp(Cnt, j - 2) = ar(i, j)
Next j
Else
R = d(ar(i, 3))
temp(R, 11) = temp(R, 11) + 1
For j = 4 To 12
If Not (ar(i, j) = "缺考" Or ar(i, j) = " ") Then temp(R, j - 2) = temp(Cnt, j - 2) + ar(i, j)
Next
End If
Next
For i = 2 To Cnt
For j = 2 To 10
re(i, j) = temp(i, j) / temp(i, 11)
Next
Next
Sheets(2).[a1].Resize(Cnt, 10) = re
End Sub

复制代码

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

求平均值

评分

评分

评分

评分