求大神帮忙写个代码，用VBA窗体实现数据快速录入，万分感谢

埋葬…… · 发表于 2020-1-24 00:52

凌空一羽 · 发表于 2020-1-24 09:25

Private Sub CommandButton1_Click()
Dim txt As Control
myr = Range("a1000").End(3).Row
For i = 1 To 6
Cells(myr + 1, i) = Me.Controls("TextBox" & i).Text
Next
Unload Me
End Sub

3190496160 · 发表于 2020-1-24 09:44

备注和桶底码需要选择的话，你得提供数据源才行呀

深秋的黎明 · 发表于 2020-1-25 18:32

代码写好了，看行不
你自己再排版一下，最好再美化一下，觉得你的界面不好看。

快速录入.zip (20.3 KB, 下载次数: 287)

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

[求助] 求大神帮忙写个代码，用VBA窗体实现数据快速录入，万分感谢

最新热点 /1