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

E风卍行H · 发表于 2022-8-31 23:36

niko88819 发表于 2022-8-31 22:30
老师代码可以贴出分享吗?先谢谢了另外3190496160老师代码,要送花鼓励,可是今天没花了

下载文件里面有代码

E风卍行H · 发表于 2022-8-31 23:37

dc924 发表于 2022-8-31 21:56
完美。

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

（1）有新增的学生，代码还是有效的
（2）“确认输入” 需要保留，输入成绩后点击这个按钮，成绩会自动输入到左侧

niko88819 · 发表于 2022-9-1 08:02

E风卍行H 发表于 2022-8-31 23:36
下载文件里面有代码

由於全英文作业系统跟OFFICE下,凡是代码中含有任何一个中文字在内,打开的附件代码会自动遗失(清空),因此沒辦法給老師您送花鼓勵了

3190496160 · 发表于 2022-9-1 09:15

dc924 发表于 2022-8-31 21:50
非常感谢，可以实现，很不错

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

显示所有学生取消筛选即可，增加学生代码可以自动适应的，可以自己试试看看就知道了呀

dc924 · 发表于 2022-9-1 22:42

3190496160 发表于 2022-9-1 09:15
显示所有学生取消筛选即可，增加学生代码可以自动适应的，可以自己试试看看就知道了呀

非常感谢，向您消息

yellowhawk · 发表于 2022-9-1 22:53

niko88819 发表于 2022-8-31 22:30
老师代码可以贴出分享吗?先谢谢了另外3190496160老师代码,要送花鼓励,可是今天没花了

你就很牛的呀，那个也可以用函数解决

yellowhawk · 发表于 2022-9-1 23:00

3190496160 发表于 2022-8-31 15:29
rivate Sub Worksheet_Change(ByVal T As Range)
If T.Address = "$F$1" Then
If T.Value = "" Then ...

代码中有些句子看不懂呀
Rows("1:1").AutoFilter
AutoFilterMode = False
这个不明白。

dc924 · 发表于 2023-6-23 08:54

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

老师，您这个如何输入成绩数据？

leepoison · 发表于 2023-6-23 09:18

建议直接上金山快查

dc924 · 发表于 2023-6-26 21:59

leepoison 发表于 2023-6-23 09:18
建议直接上金山快查

前面老师回复了，需要vba,但是手机无法使用

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

[求助] 根据学号快速定位，输入成绩