excel里面是否可以实现这个功能吗?即插入日历,然后通过点击日历上的日...

发布网友发布时间：2022-04-29 21:00

我来回答

共3个回答

热心网友时间：2022-04-22 15:39

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

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

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

　　－－－－－－－－－－

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

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

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

－－－－－－－－－－－

代码如下：

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

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

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

热心网友时间：2022-04-22 16:57

可以的
只是插入日历，需要日历控件

热心网友时间：2022-04-22 18:32

可以。需要编写宏。