怎么在Excel中利用日历控件来快速输入日期

先将公式所在单元格设置为自动换行
再输入相应公式
= 阳历公式 &CHAR(10)& 阴历公式

软件版本：Office2007
方法如下：
1.插入日历控件后，保持设计模式，右键点击控件，选择属性：

2.在LinkedCell中输入要随着日历控件日期变化的单元格：

3.退出设计模式，点击日历控件日期，单元格相应地变成了点击的日期：

软件版本：Office2007
方法如下：
1.插入日历控件后，保持设计模式，右键点击控件，选择属性：

2.在LinkedCell中输入要随着日历控件日期变化的单元格：

3.退出设计模式，点击日历控件日期，单元格相应地变成了点击的日期：

需要用VBA，以Excel2007为例，方法如下;
1、打开Excel,点击冲此叫适步“开发工具”选项卡，在“控件”组别，找到并点击“插入”，在下拉列表中，点选右下角的“其它控件”，如下图：

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

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

4、鼠标左键在“日历控件”上双击，调出VBA编辑器，把下面这段代码复制粘贴到里面：
Private Sub Calendar1_Click()
ActiveCel360问答l = Format(Calendar1.Value, "yyyy-mm-dd")
Me.Calendar1.Visible = False
E己既更农植营子家nd 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 = ***.Top + Target.Height
             .Left = Target.Left + Target.Width
             .Value = Date
            End With
        Else
            Me.Calendar1.Visible = False
        End If
    Else
        Me.Calen蒸位攻dar1.Visible = False
    End If
End Sub
其中“ If Target.Column = 1 Then
        If Target.Row > 1 Then“为点击第一列即A列除第一行外弹出日历控件，可根据需要进行更改，然后关闭VBA代码编辑器回到工作表

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

excel日历控件：
开发工具--插入--其它控件--选择 mircosoft date and time piker control 6.0

插入控件后，点击控件，选择“属性”，设置数据输入的连接单元格，退出设计模式
问题解决
纯手打，望采纳

举例说明。（以2007为例）
第一步：插入activex控件。如图：



第二步：选择日期控件。如图：



第三步：按右键选择查看代码。并输入以下代码：
private sub calendar1_click()
     cells(3, 5) = calendar1.value
 end sub
第四步：退出设计模式后点击日期。点击的日期会自动输出在e3单元格。如图：

举例说明。（以2007为例）
第一步：插入ActiveX控件。如图：

第二步：选择日期控件。如图：

第三步：按右键选择查看代码。并输入以下代码：
Private Sub Calendar1_Click()
     Cells(3, 5) = Calendar1.Value
 End Sub
第四步：退出设计模式后点击日期。点击的日期会自动输出在E3单元格。如图：