Excel中插入日期控件
200907031712
在Excel中有很多地方要用到日期自己写实在太麻烦而且每个人写的日期格式还有可能不同还是弄个日期控件选吧！如图
1【可以跳过】如果你要设置日期的格式化可以选中所要插入日期控件的列右键选择【设置单元格格式】在数字这一栏选项卡中的分类选择【日期】自己
选择一种日期样式2选中要插入日期控件列的单位格【插入】【对象】在对象类型中选择【日历控件110】，进行插入3出现如图日历控件，拖放到合适位置（要先进入设计模式才能对控件进行拖放，点击那个有尺子的图标进入设计模式）
f4退出设计模式，双击日历控件，进入代码编写，输入以下代码
PrivateSubCale
dar1_ClickActiveCellCale
dar1ValueMeCale
dar1VisibleFalse
E
dSub
PrivateSubWorksheet_Selectio
Cha
geByValTargetAsRa
ge此处的6和7为你要显示日历的列序号IfTargetColum
6OrTargetColum
7The
MeCale
dar1LeftTargetLeftMeCale
dar1TopTargetTop
IfTargetValue