作者：乔山办公网日期：
返回目录：excel表格制作
你那个是窗体吗？如果是的话，你仅仅在窗口初始化事件中加入下面代码就可以了
Private Sub UserForm_Initialize()
TextBox1.Text = Date
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Value <> "" Then
Target.Offset(0, -1).Value = Date
End If
End Sub
将代百码放入度使用版表权
按照如下步骤即可在excel中设置单元zhidao格自动显示当天日期：
1、首先打开一个空白的excel表格。版
2、然后在工具栏中点击公式，再点击插入函数。
3、然后在弹出的单元格中选择today函数，再点击确定。
4、可以看到单元格中已经出现今天的日期了，并且该函权数会随着电脑日期的变化而变化，实时显示当天的日期。
需要写VBA的，用公式只会形成自动更copy新的日期，并非输入数据时的日期。
将A列设置为日期格式zd，在VBA编辑器中添加如下事件：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim T As String, R As Integer, C As Integer
With Target
T = Trim(.Text)
R = .Row
C = .Column
End With
If T = "" Then Exit Sub
If C = 1 Then Exit Sub
If R = 1 Then Exit Sub
Dim sh As Worksheet
Set sh = ThisWorkbook.ActiveSheet
sh.Cells(R, 1) = Now()
End Sub