请大神出手解决如何按下录入键，使数据自动录入

高

sam-wang 发表于 2022-6-30 16:02
用15樓方式即可程式碼不變，請試看看，謝謝

这个代码不出结果

白云家

高 发表于 2022-6-30 15:54
我这里改成V就没事，改成空格V都能运行，

能帮忙看下并帮忙释疑下，为什么我这么改不行吗？

SON3891

高 发表于 2022-6-14 14:00
是要这样的吗

你这个好,,学习,,有注释的吗,,看不懂

我行我速2008

录入表单的单位已经有值的话自动到没值的按顺序往下录——这是什么意思？要想得到正解，必须让人明白你的要求。

白云家

高 发表于 2022-6-30 16:12
这个代码不出结果

能帮忙看下并帮忙释疑下，为什么我这么改不行吗？

高

白云家 发表于 2022-7-30 16:33
能帮忙看下并帮忙释疑下，为什么我这么改不行吗？

不应该不行啊。再试一下

白云家

高 发表于 2022-8-5 19:35
不应该不行啊。再试一下

我按你说的改了，就是7.30那次上传的文件，能帮忙看下，哪里出问题了吗？不好意思，事情太多太忙，没能经常上来及时和各位大佬取经。。

我行我速2008

是不是这意思？

Sub lu()
    With Sheets("录入")
        r = .Range("b65536").End(xlUp).Row + 1
        If r < 5 Then r = 5
        rs = Range("a65536").End(xlUp).Row
        If rs < 4 Then Exit Sub
        Range("a4:v" & rs).Copy .Range("a" & r)
    End With
    MsgBox "录入完成"
End Sub

白云家

我行我速2008 发表于 2022-8-17 18:06
是不是这意思？

Sub lu()

我就是按上个大佬的意思用这个代码还是不行啊

白云家

我行我速2008 发表于 2022-8-17 18:06
是不是这意思？

Sub lu()

感觉不是这个V改出来就可以的：Range("a4:v" & rs).Copy .Range("a" & r)