excel2007日历控件使用代码，，在线等好心人帮忙啊，

hq4308

   excel2007的日历控件，我现在想使某一列都能使用这个控件，使用的代码是怎么样的呢，，就是选择这一列的任意单元格，出现日历控件，选择完日期后，日期自动写到这个单无格，然后控件隐藏，，，

求教啊，，，



自己找到代码了，，呵呵，，终于找到，，用2003的也能用在2007上，


Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
    Calendar1.Left = ActiveCell.Left + ActiveCell.Width
    Calendar1.Top = ActiveCell.Top + ActiveCell.Height
    Calendar1.Visible = True
Else
    Calendar1.Visible = False
End If
End Sub