怎样自动统计不及格学生姓名等？

xiangjm123 · 发表于 2011-2-24 08:46

如下附件，六年级学生中，只要语文、数学、外语三门中有一门不及格，则自动把该学生的班级、姓名、及三科成绩都显示在新的表格中。

六年级期考成绩.rar (16.33 KB, 下载次数: 207)

[ 本帖最后由 xiangjm123 于 2011-2-24 08:50 编辑 ]

piny · 发表于 2011-2-24 08:55

Q34

=OFFSET($C$2,SMALL(IF(($G$3:$G$196<60)+($H$3:$H$196<60)+($I$3:$I$196<60),ROW($3:$196),4^8),ROW(A1))-2,CHOOSE(COLUMN(A1),0,2,4,5,6))&""

复制代码

或

=OFFSET($C$2,SMALL(IF(MMULT(N($G$3:$I$196<60),{1;1;1}),ROW($3:$196),4^8),ROW(A1))-2,CHOOSE(COLUMN(A1),0,2,4,5,6))&""

复制代码

數組右拉下拉

[ 本帖最后由 piny 于 2011-2-24 09:14 编辑 ]

zm0115 · 发表于 2011-2-24 08:59

六年级期考成绩.rar (26.98 KB, 下载次数: 265)

魂断蓝桥 · 发表于 2011-2-24 09:02

ctp_119 · 发表于 2011-2-24 09:14

Private Sub CommandButton1_Click()
Dim objcn As New ADODB.Connection
objcn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source= " & ThisWorkbook.FullName
Sql = "select 班号,姓名,语文,数学,外语 from [sheet1$a2:m196] where 语文<60 or 数学<60 or 外语<60"
[Q34].CopyFromRecordset objcn.Execute(Sql)
objcn.Close
Set objcn = Nothing
End Sub
希望能帮助你！

heike2004 · 发表于 2011-2-24 09:16

N3=IF(OR(G3<60,H3<60,I3<60),E3,"")
高级筛选—选择不重复的记录，生成在O列

六年级期考成绩.rar (19.52 KB, 下载次数: 69)

gufengaoyue · 发表于 2011-2-24 09:46

都是高人。公式太复杂了。

也凑个热闹
用VBA数组。
把结果放到SHEET2了

Sub 不及格()
Dim arr, j%: j = 1
arr = Sheet1.Range("c3:i196")
With Sheet2
.Range("a1:e1") = Array("班级", "姓名", "语文", "数学", "外语")
For i = 1 To UBound(arr, 1)
If arr(i, 5) < 60 Or arr(i, 6) < 60 Or arr(i, 7) < 60 Then
j = j + 1
.Range(.Cells(j, 1), .Cells(j, 5)) = Array(arr(i, 1), arr(i, 3), arr(i, 5), arr(i, 6), arr(i, 7))
End If
Next
End With
Sheet2.Select
End Sub

[ 本帖最后由 gufengaoyue 于 2011-2-24 10:13 编辑 ]

liike88 · 发表于 2011-2-24 09:49

应该已解决，上方法方式OK

xiangjm123 · 发表于 2011-2-24 10:19

衷心感谢大家的帮助！！再次谢谢，！学会了。

fisher_yu · 发表于 2011-2-24 10:48

=INDEX(E:E,SMALL(IF(($G$3:$I$196<60),ROW($3:$196),4^8),ROW(1:1)))&""
综合以上各位老师的,简化了一些,
对OFEST还不太了解,接下来要学这个了

[ 本帖最后由 fisher_yu 于 2011-2-24 10:49 编辑 ]

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

[求助] 怎样自动统计不及格学生姓名等？

请看附件！SQL处理。