根据学号快速定位，输入成绩

dc924

大家好，我想实现输入学生学号或者姓名某个字，就可以在左边快速筛选出（也可以直接出现在前几行）某个孩子，进而快速输入成绩，请问怎么实现？谢谢



快查.zip (7.35 KB, 下载次数: 21)

2022-8-31 09:18 上传

点击文件名下载附件
源文件

3190496160

rivate Sub Worksheet_Change(ByVal T As Range)
If T.Address = "$F$1" Then
    If T.Value = "" Then End
   Rows("1:1").AutoFilter
   AutoFilterMode = False
   r = Cells(Rows.Count, 1).End(xlUp).Row
   Range("a1:c" & r).AutoFilter Field:=2, Criteria1:=T.Value, Operator:=xlAnd
End If
If T.Address = "$H$1" Then
    If T.Value = "" Then End
   Rows("1:1").AutoFilter
   AutoFilterMode = False
   r = Cells(Rows.Count, 1).End(xlUp).Row
   Range("a1:c" & r).AutoFilter Field:=1, Criteria1:="*" & T.Value & "*", Operator:=xlAnd
End If
End Sub

3190496160

快查.rar (15.4 KB, 下载次数: 18)

2022-8-31 15:29 上传

点击文件名下载附件

E风卍行H

使用代码实现的，有问题可加我微信

E风卍行H

3190496160 发表于 2022-8-31 15:29

使用筛选确实方便很多，我想得太复杂

dc924

3190496160 发表于 2022-8-31 15:29

非常感谢，可以实现，很不错

1、那么我输入完了成绩，如何回到所有孩子的界面？

2、如果有新增的学生，行数据有增加，那么代码是否还有效呢？

dc924

E风卍行H 发表于 2022-8-31 15:41
使用代码实现的，有问题可加我微信

完美。

如果有新增的学生，行数据有增加，那么代码是否还有效呢？

另外，“确认输入”能否不要，成绩输入后自动计入左侧成绩？

niko88819

E4

1. =IF(AND(E2="",G2=""),"",IF(AND(E2<>"",G2<>""),VSTACK(A1:C1,FILTER(A2:C10000,(B2:B10000=E2)+ISNUMBER(FIND(G2,A2:A10000)))),IF(E2<>"",VSTACK(A1:C1,FILTER(A2:C10000,B2:B10000=E2)),IF(G2<>"",VSTACK(A1:C1,FILTER(A2:C10000,ISNUMBER(FIND(G2,A2:A10000)))),""))))

复制代码

niko88819

E风卍行H 发表于 2022-8-31 15:41
使用代码实现的，有问题可加我微信

老师代码可以贴出分享吗?先谢谢了 另外3190496160老师代码,要送花鼓励,可是今天没花了

dc924

niko88819 发表于 2022-8-31 22:15
E4

没有反应呢