win7旗舰版下EXCEl2013如何插入日期控件的方法

win7旗舰版下EXCEl2013如何插⼊⽇期控件的⽅法Excel中使⽤⽇期控件⽅法
1.插⼊⽇期控件
①打开需要插⼊⽇期控件的⼯作薄，依次点击【视图】【⼯具栏】【控件⼯具箱】，调出控件⼯具栏。

.
②点击控件⼯具栏中的〖其他控件〗，选择(Microsoft Date and Time Picker Control，version 6.0)控件。

.
③在⼯作表内需要填写⽇期的单元格中画出⽇期控件图标，调整⼤⼩与单元格⼀致。

.
2. 编辑代码
①点击控件⼯具栏中的〖查看代码〗，进⼊代码编辑页⾯，编辑如下代码：
Private Sub DTPicker21_Change()
ActiveCell.Value = DTPicker21.Value
DTPicker21.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByV al Target As Range)
With Me.DTPicker21
If Target.Column = 1 And Target.Count = 1 Then
.Visible = True
.Width = Target.Width + 15
.Left = Target.Left
.Top = Target.Top
.Height = Target.Height
Else
.Visible = False
End If
End With
【提⽰】：上列代码中，红⾊的1表⽰该控件作⽤于⼯作表中第⼀列，如需调整，直接修改为相应的列数即可；如果需要将该控件作⽤于某⼀⾏，则把代码中Target.Column改为Target.Row即可。

②关闭代码编辑页⾯返回⼯作表，点击控件⼯具栏中的〖属性〗，进⼊属性编辑页⾯，调整CheckBox
属性为True。

③关闭属性编辑页⾯返回⼯作表，点击控件⼯具栏中的〖退出设计模式〗，退出控件设计模式。

④点击⽇期控件图标，弹出活动⽇历，选择需要编辑的⽇期。

⾄此，⼯作表中该列所有单元格均能这
样快速⽅便的输⼊⽇期了，你可以对该列调整单元格格式以满⾜⾃⼰的需要，调整单元格格式我就不在这⾥累赘了。

当然，⼯作表第⼀⾏中你可能需要输⼊标题、表头等内容，你发现该列中除了⽇期，其他任何内容都⽆法输⼊是不是？那你注意到⽇期控件图标最左边的勾选框了吗？点击勾选框去掉⼩勾，图标变成灰⾊，这样该单元格就可以输⼊其他内容了。

OK？
最后，注意，保存excel ⽂件: 保存窗⼝中选择: "启⽤宏的⼯作薄" ⽂件类型! ok!，否则不能正常运⾏。