哪位大神知道vba窗口文字框怎么能自动显示当前日期的代码

tpaiwy

哪位大神知道vba窗口文字框怎么能自动显示当前日期的代码

Private Sub TextBox1_Change()
textbox1=date
End Sub
我这样写了，但是没反应，求大神帮助

tpaiwy

谢谢朱荣兴版主的指导

tpaiwy

朱荣兴 发表于 2018-9-11 10:14
Private Sub UserForm_Initialize()
textbox1.Text = Date

再次谢谢版主的指导，我这还有一个问题，我做了一个录入窗口，录入数据后保存在指定的表中，我在站里复制了一段代码，在那个表中能正常使用，在我的表里就不能正常使用，我找不到问题在哪，您能帮我看看吗？
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第二行显示，并且再次录入后会把前面第二行录入的内空复盖掉，不知道为什么会出这种问题，求版主指点

tpaiwy

朱荣兴 发表于 2018-9-11 12:23
这个要结合文件来看的。
同时，改代码还不如写代码

我不会自己写，只有找别人类似的模版，抄下代码来改成能用的，想写代码要很系统的学习才行

tpaiwy

版主，这是我想做的，你看看能帮我做一下吗