Excel中日期控件设置.docx

Excel中的日期控件使用方法

插入日期控件
打开需要插入日期控件的工作薄，依次点击【视图】【工具栏】【控件工具箱】，调出控件工具栏。

点击控件工具栏中的〖其他控件〗，选择(MicrosoftDateandTimePickerControl，version6.0)控件。

在工作表内需要填写日期的单元格中画出日期控件图标，调整大小与单元格一致。

2.编辑代码
点击控件工具栏中的〖查看代码〗，进入代码编辑页面，编辑如下代码：

OptionExplicit
PrivateSubDTPicker1_Change()
ActiveCell.Value=DTPicker1.Value
DTPicker1.Visible=False
EndSub
PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)
WithMe.DTPicker1
IfTarget.Column=1AndTarget.Count=1Then
.Visible=True
.Width=Target.Width+15
.Left=Target.Left
.Top=Target.Top
.Height=Target.Height
Else
.Visible=False
EndIf
EndWith
EndSub
【提示】：上列代码中，红色的1表示该控件作用于工作表中第一列，如需调整，直接修改为相应的列数即可；如果需要将该控件作用于某一行，则把代码中Target.Column改为Target.Row即可。
关闭代码编辑页面返回工作表，点击控件工具栏中的〖属性〗，进入属性编辑页面，调整CheckBox属性为True。

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

点击日期控件图标，弹出活动日历，选择需要编辑的日期。至此，工作表中该列所有单元格均能这样快速方便的输入日期了，你可以对该列调整单元格格式以满足自己的需要，调整单元格格式我就不在这里累赘了。

当然，工作表第一行中你可能需要输入标题、表头等内容，你发现该列中除了日期，其他任何内容都无法输入是不是？那你注意到日期控件图标最左边的勾选框了吗？点击勾选框去掉小勾，图标变成灰色，这样该单元格就可以输入其他内容了。OK？