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

发布网友 发布时间：2022-04-21 03:25

我来回答

共4个回答

热心网友 时间：2022-06-17 17:48

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

热心网友 时间：2022-06-17 17:48

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

热心网友 时间：2022-06-17 17:49

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这种的

热心网友 时间：2022-06-17 17:49

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