第一步，在表格中插入日历控件：步骤如下图
－－－－－－－－－－－－－－－－－－
－－－－－－－－－－－－－－－－
－－－－－－－－－－
第二步，编写工作表的事件（选择变化）代码：
－－－－－－－－－－－－－－－－
－－－－－－－－－－－－
－－－－－－－－－－－
代码如下：
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
－－－－－－－－－－－－－－－－－－－－－－－－
到这里就完成了。效果图如下 ：
