[已解决]请教一个自动填充的问题

jsxrjhz · 发表于 2016-3-6 10:35

怎样把输入区的数据，自动填写到对应列有效数据下的第一个空白单元格
比如说：输入区本周张3是星期日上班，则就在张三那一列的最下面填入7
输入区本周张12是星期四上班，则就在张三那一列的最下面填入4
具体见附件

填充.zip (2.68 KB, 下载次数: 8)

雪舞子 · 发表于 2016-3-6 14:50

测试一下

填充.rar (14.63 KB, 下载次数: 4)

jsxrjhz · 发表于 2016-3-6 20:28

雪舞子发表于 2016-3-6 14:50
测试一下

雪老师您好：
首先感谢您的帮助，然后再说我的感觉
您给的代码我虽然不能全懂（有些代码还真没接触过）
但按您的代码在输入时，A3不变，B3输入后,还没输入C3，结果就已经录入了一次，C3再输入时，则已是记录2次了
我希望在A3/B3/C3全部输入完后，通过窗体按钮，激发结果。
应该说在您给的代码上加些指令可以解决，但我不知道这些指令怎么加，加在什么地方。
烦请指点
谢谢

雪舞子 · 发表于 2016-3-6 20:54

jsxrjhz 发表于 2016-3-6 20:28
雪老师您好：
首先感谢您的帮助，然后再说我的感觉
您给的代码我虽然不能全懂（有些代码还真没接触过） ...

确实存在这样的问题，
当时觉得利用事件可以方便输入，
结果却造成很多误填充。

现在改为按钮填充，
楼主再测试一下。

填充.rar (15.83 KB, 下载次数: 9)

jsxrjhz · 发表于 2016-3-6 21:15

Sub test()
谢谢大家的关注
我的问题已解决，是我看在本论坛上没人理我后，我又到技术论坛发了此贴，已得到圆满解决
感谢各位老师和网友，我到论坛上来99%是求帮助的，
既然问题解决了，也不敢独享，更何况蓝桥版主是这2个论坛的共同版主。所以我把技术论坛给我的方法发出来与大家共享，共同提高思路。

Dim r As Long, c As Integer
c = Application.Match(Range("a3"), Range("e1:z1"), 0) + 4
r = Cells(65536, c).End(xlUp).Row + 1
Cells(r, c) = Range("b3")
Cells(r, c + 1) = Range("c3")
End Sub
再次声明：虽然是2个论坛，但学习提高是共同目的，请大家不要抛砖。

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

[已解决]请教一个自动填充的问题

评分

浏览过的版块