Excel插入日期控件的问题?(50分)

目前想在Excel表格中进行日期选择供用户输入，我可以在一个单元格里边插入一个日期控件，却无法在整个列中插入日期控件，我的目的就是提供一个日期选择列供用户选择日期，想到的办法只有这个了，如果哪位有办法解决或是提出新的办法，不盛感谢！

将其他单元格插入vba的计算式怎么样？

lanyun2:如何做，你能保证弹出日期选择框么？？愿意听你的做法，谢谢指点！

'在使用下面宏之前，在Excel中插入一个日期控件，名称为Calendar1，在设计状态下将可见状态设为否，再
'拷贝此宏到该工作表中即可使用


'声明第4列为需要选择日期的列
Const a = 4
'将日期写入目前选择的单元格中，并将Calendar的可见状态设为否
Private Sub Calendar1_DblClick()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub

'单元格选择变化后，判断是否为第4列，如果是，则显示Calendar在该单元格的右下角，否则就不显示。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = a Then
Calendar1.Visible = True
Calendar1.Top = ActiveCell.Top + ActiveCell.Height
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Else
Calendar1.Visible = False
End If
End Sub

sword_liu:您好！感谢您给我的提示，现在我这里有点小问题，我用的是DTPicker，可是在点选Calendar之后，单元格里却无法显示出所选择日期，这是为什么，另外对于您提出的Private Sub Calendar1_DblClick()这个应该是双击事件吧，我现在只用了DTPicker控减，类似TDATETIME PICKER，只要点选就可以了，如何能控制这个事件，我最想知道的是您是如何知道这个事件的，在VBA的控件属性组中我并没有找到相关的事件!难道这也是利用录制宏的方法实现的么？？具体我不是太了解，希望您进一补指点，我的msn已经留在您的帖子里了，希望能多和您交流这方面的知识！

我已联机告诉你了。

接受答案了.