|
楼主 |
发表于 2018-9-11 11:05
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 tpaiwy 于 2018-9-11 11:07 编辑
再次谢谢版主的指导,我这还有一个问题,我做了一个录入窗口,录入数据后保存在指定的表中,我在站里复制了一段代码,在那个表中能正常使用,在我的表里就不能正常使用,我找不到问题在哪,您能帮我看看吗?
Private Sub CommandButton1_Click()
Dim r As Integer
r = Application.WorksheetFunction.CountA(Range("A:A")) + 1 '使用COUNTA函数获取A列非空行数+1下一行+1第二行空的
If UserForm1.TextBox1.Text = "" Or UserForm1.TextBox2.Text = "" Or UserForm1.TextBox3.Text = "" Or UserForm1.TextBox4.Text = "" Or UserForm1.TextBox5.Text = "" Then
MsgBox "请输入内容", , "提示" '没有输入时提示
Else
Sheet3.Cells(r, "A") = r - 1 'A列序号
Sheet3.Cells(r, "B") = UserForm1.TextBox1.Text
Sheet3.Cells(r, "C") = UserForm1.TextBox2.Text
Sheet3.Cells(r, "D") = UserForm1.TextBox3.Text
Sheet3.Cells(r, "E") = UserForm1.TextBox4.Text
Sheet3.Cells(r, "E") = UserForm1.TextBox5.Text
'以下清楚所有输入框(TEXTBOX)的内容(text)
UserForm1.TextBox1.Text = ""
UserForm1.TextBox2.Text = ""
UserForm1.TextBox3.Text = ""
UserForm1.TextBox4.Text = ""
UserForm1.TextBox5.Text = ""
'=“”即为清空
End If
End Sub
他是在表1,我是表3,我把表1改成了表3,减少了文字框,别的没动,直接在VBA中运行,可以正常录入就是序号不对,但从表中调出窗口录入保存后只能在表3第二行显示,并且再次录入后会把前面第二行录入的内空复盖掉,不知道为什么会出这种问题,求版主指点 |
|