Excel 日历控件的使用

http://www.excelpx.com/thread-255298-1-1.html

Private Sub Calendar1_Click()
With Calendar1
ActiveCell = .Value '赋值给激活单元格
.Visible = False '隐藏日历控件
End With
End Sub
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Calendar1
If Target.Column = 3 Then '如果选择C列
.Top = Target.Offset(0, 1).Top '设置位置
.Left = Target.Offset(0, 1).Left
.Visible = True '显示日历控件
Else
.Visible = False '隐藏日历控件
End If
End With
End Sub