如何在Excel表的窗体内使用日历控件，求高手给个代码

日历控件可以直接插入的啊。

Private Sub MonthView21_DateClick(ByVal DateClicked As Date)

If MonthView21Value = "2014/8/29" Then MsgBox "您选择的是2014-8-29！"

End Sub

自己编写相关代码查看帮助，或者MSDN。

EXCEL有日历控件，首先插入一个日历控件，
ALT F11
将下面代码复制进去，
Private Sub Calendar1_Click()
ActiveCell = Calendar1Value
MeCalendar1Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If TargetColumn = 1 Then
MeCalendar1Visible = True
Else
MeCalendar1Visible = False
End If
End Sub
这个没有按钮，鼠标单击第一列 控件就会出现，
如果非要按钮的话，HI我

举例说明。（以2007为例）

第一步：插入ActiveX控件。如图：

第二步：选择日期控件。如图：

第三步：按右键选择查看代码。并输入以下代码：

Private Sub Calendar1_Click()
     Cells(3, 5) = Calendar1Value
 End Sub

第四步：退出设计模式后点击日期。点击的日期会自动输出在E3单元格。如图：

单击“开发工具”选项卡下的“控件”工作组中的“插入”命令，在d出的的对话框中单击最右下角的“更多控件”选项，

在d出的“其他控件”对话框中拖动右边的滚动条直至找到“Microsoft Date And Time Picker Control”，然后单击确定，

然后单击鼠标左键不放往左右拖开即可插入一个日历控件，此时“控件”工作组处于“设计模式”，这时候的日历控件还处于设计模式，还不能使用，

单击“设计模式”按钮，取消它的选中状态，此时日历控件可以使用了

不彻底明白这话”对应到A2单元格“意思，不知你具体要做什么，代码如下：“
Range("a2")Select
ActiveSheetOLEObjectsAdd(ClassType:="MSCALCalendar", Link:=False, _
DisplayAsIcon:=False)Select
End Sub”
注：此宏是在当前活动工作表A2单元格插入日历控件

方法/步骤在Excel中输入日期时，如果能自动d出一个日历控件协助输入，那真是一件美事！不仅为了提高工作效率，更能给人一个惊喜，惊喜之余消除了工作疲劳，真是一举多得！。2方法很简单，跟我来动手做就好！

我看楼主说的，应该是“日历”控件或者是DTPicker，
建议楼主以“日历控件”或“DTPicker Excel”作为关键词，搜索一下相关的内容，这方面的内容还是有挺多的！尤其是ExcelHome或者ExcelTip论坛！

---