右键单击工具栏，选中Visual   Basic;  
  单击工具栏上的“控件工具箱”（小榔头形状）；  
  单击控件工具箱工具栏上的“其他控件”（小榔头形状）；  
  找到   "Microsoft   Date   And   Time   Piker   Control   6.0   (SP4)"，选中它；  
  在你所要用到的单元格内画出，大小要和单元格一样；  
  选中控件，右键单击选择菜单“设置控件格式”，在"属性"选项中选择“大小、位置均随单元格而变”，确定；  
  右键单击控件选择菜单“查看代码”，进入VBA后，键入以下代码：  
   
  Private   Sub   DTPicker1_Change()  
          Sheet1.Cells(1,   1)   =   CStr(DTPicker1)  
  End   Sub  
   
  Private   Sub   DTPicker1_Click()  
          Sheet1.Cells(1,   1)   =   CStr(DTPicker1)  
  End   Sub  
   
  返回到Excel,调整单元格大小使控件完全显示；  
   
  退出设计模式，OK。