如何让<em>excel</em>中<em>单元格</em>显示当日日期

需要用VBA，以Excel2007为例，方法如下;

1、打开Excel,点击“开发工具”选项卡，在“控件”组别，找到并点击“插入”，在下拉列表中，点选右下角的“其它控件”，如下图：

2、在弹出的“其他控件”对话框，拖动滚动条到下方，鼠标左键选择“日历e68a84e799bee5baa6e997aee7ad94362控件12.0”，点击“确定”

3、回到工作表，用鼠标左键拖动出来一个日历控件，调整大小和位置，如下图：

4、鼠标左键在“日历控件”上双击，调出VBA编辑器，把下面这段代码复制粘贴到里面

Private Sub Calendar1_Click()

ActiveCell = Format(Calendar1.Value, "yyyy-mm-dd")

Me.Calendar1.Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 1 Then

        If Target.Row > 1 Then

           With Me.Calendar1

             .Visible = True

             .Top = Target.Top + Target.Height

             .Left = Target.Left + Target.Width

             .Value = Date

            End With

        Else

            Me.Calendar1.Visible = False

        End If

    Else

        Me.Calendar1.Visible = False

    End If

End Sub

其中“ If Target.Column = 1 Then

        If Target.Row > 1 Then“为点击第一列即A列除第一行外弹出日历控件，可根据需要进行更改，然后关闭VBA代码编辑器回到工作表

5、鼠标左键点击A2即弹出”日历控件“，根据需要在”控件“上点击要输入的日期即可

准备工具/材料：装有windows 10的电脑一台，Microsoft Office 家庭和学生版 2006 excel软件。

1、首先打开一个空白知excel表单。

2、然后道单击工具栏中的公式，然版后单击插入函数。

3、然后在弹出式单元格中选择“今天”功能，然后点按“好”。

4、可以看出，今天的日期已经出现在单元格中，并且该功能将随着计算机日期的改变而改变，权实时显示当天的日期。

可用数据有效性实现。
步骤：
选定单元格，点菜单“数据”——“有效性”，点“设置”标签，在“允许”中选择“序列”，在“来源”中输入日期存放区域，确定。

插入控来件源Calendar
Private Sub Calendar2_Click()
Range("C3") = Calendar2.Value '点击百c3单元格显示日度历控件问的答值
Calendar2.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$3" Then
Calendar2.Visible = True

Else
Calendar2.Visible = False
End If
End Sub