如何在表格中插入这样的日历

Question

如题所述

Answer 1

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

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

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

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

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


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


－－－－－－－－－－－

代码如下：

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
－－－－－－－－－－－－－－－－－－－－－－－－
到这里就完成了。效果图如下 ：