如何让vba用户窗体的文本框内自动显示出系统时间？

Question

怎么才能让用户窗体一弹出来就让“日期”后面的文本框内显示当前的年月日以2009-3-4的形式？且这个日期还可以在弹出用户窗体后更改？
from_load是什么？
text*，即那个文本框的名字是:日期框
具体怎么加我不太清楚，解释一下好吗，谢谢

Answer 1

VBA中窗体出现时触发事件，使用UserForm_Initialize()，类似VB中的Form_load()

VBA中的文本框是Textbox，而VB中的是text

日期都可以用Date函数来获得，默认是YYYY/M/D格式，如果一定要显示固定格式，可以format函数，例如Formt(Date,"yyyy-m-d")

故下面代码可实现题目中的要求——（假设日期框是textbox1）

Private Sub UserForm_Initialize()
TextBox1.Text = Formt(Date,"yyyy-m-d")

End Sub

Answer 2

VB6.0的窗体的话，你在它的代码中复制下面的内容
Private Sub Form_Load()
Text1.Text = Date
End Sub

excel的vba窗体的话，你复制下面的代码（TextBox1为日期框）
Private Sub UserForm_Initialize()
TextBox1.Text = Date
End Sub

Date函数就是系统日期，形式就是2009-3-4这种的本回答被提问者采纳

Answer 3

不好弄。可以换一思路，当鼠标移到文本框上面的时候，自动选中已有文本，直接输入就可以了。
mousemove事件
with
textbox1
.selstart
=
0
.sellength
=
len(.text)
end
with

Answer 4

在 form_load里加 text*.text=format(data,"yyyy-m-d") text*为日期那个文本框的名字