excel里面是不是可以实现这个功能吗？即插入日历，然后通过点击日历上的日期，使得日期自动填入指定单元格

Posted 2023-03-14

　　第一步，在表格中插入日历控件：步骤如下图

　　－－－－－－－－－－－－－－－－－－

　　－－－－－－－－－－－－－－－－

　　－－－－－－－－－－

　　第二步，编写工作表的事件（选择变化）代码：

　　－－－－－－－－－－－－－－－－

－－－－－－－－－－－－

－－－－－－－－－－－

代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Calendar1
        If Target.Address = "$A$1" Then
            .Top = [a1].Top + [a1].Height
            .Left = [a1].Left
            .Value = Date
            .Visible = True
        Else
            .Visible = False
        End If
    End With
End Sub

－－－－－－－－－－－－－－－－－－－－－－－

第三步，给日历控件添加单击事件代码

－－－－－－－－－－－－－－－－－－

－－－－－－－－－－－－－－－－－

－－－－－－－－－－－－－－－－－－－－

代码如下：

Private Sub Calendar1_Click()
    [a1] = Calendar1.Value
    Calendar1.Visible = False
End Sub

－－－－－－－－－－－－－－－－－－－－－－－－

到这里就完成了。效果图如下 ：

参考技术A 可以的
只是插入日历，需要日历控件 参考技术B 可以。需要编写宏。