作者：乔山办公网日期：
返回目录：excel表格制作
把下列代码知粘道贴到工作表版代码窗格中权
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column <> 6 Or Target.Row < 6 Then GoTo iNext
If Target.Value = "→" Then Cells(Target.Row, 3) = Now
iNext:
Application.EnableEvents = True
End Sub
VBA中窗体出现时触发事件，使用UserForm_Initialize()，类似VB中的Form_load()
VBA中的文本框是Textbox，而VB中的是text
日期zd都可以用Date函数来获得，默认是YYYY/M/D格式，如果一定要显回示固定格式，可以format函数，例如Formt(Date,"yyyy-m-d")
故下面代码可实现题目中的要求——（假设答日期框是textbox1）
Private Sub UserForm_Initialize()
TextBox1.Text = Formt(Date,"yyyy-m-d")
End Sub
可以在窗体初始化时加入下面的代码：
Private Sub UserForm_Initialize()
TextBox1.Value = Date
End Sub
其中TextBox1为窗体控件中的文本框
你那个是窗体吗？如果是的话，你仅仅在窗口初始化事件中加入下面代码就可以了
Private Sub UserForm_Initialize()
TextBox1.Text = Date
End Sub