第一步,在表格中插入日历控件:步骤如下图
------------------
----------------
----------
第二步,编写工作表的事件(选择变化)代码:
----------------
------------
-----------
代码如下:
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
效果图捏~?