Excel中进行插入日期选择器的操作技巧
Excel中进行插入日期选择器的操作技巧
在某一单元格中插入日历控件，
选中要插入日历控件的单元格，设置单元格格式为日期型;
点击工具栏，“插入—对象—日历控件”，
用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。

PrivateSubCalendar1_Click()
ActiveCell=Calendar1
Calendar1.Visible=False
[a2].Select
EndSub
PrivateSubWorksheet_SelectionChange(ByValTargetAsRange) IfTarget.Address="$A$1"ThenCalendar1.Visible=True
EndSub
在开发工具栏选择插入-其他控件，打开其他控件选择框。

在选择框中选择calendarcontrol8.0，确定。

在适当的位置绘制日历，并将高度和宽度适当调整。

这时的日历控件还比较原始，不会点击日期后自动隐藏日历并在单元格内填入日期，这时就需要添加自己的代码。

在设计模式下双击日历。

点击设计模式，当图表颜色变深后就是设计模式，打开代码编辑器。

在光标处输入下方的代码：
ActiveCell=Calendar1.ValueMe.Calendar1.Visible=FalseEndS ub
PrivateSubWorksheet_SelectionChange(ByValTargetAsRange) IfTarget.Column=1OrTarget.Column=2Then
'此处的1和2为你要显示日历的列序号
Me.Calendar1.Left=Target.LeftMe.Calendar1.Top=Target.ToI fTarget.Value<>""ThenMe.Calendar1.Value=Target.ValueElseMe. Calendar1.Value=Now(EndIMe.Calendar1.Visible=TruElseMe.Cal e ndar1.Visible=FalseEndIf
关闭代码编辑器，将EXCEL保存为启用宏的工作薄。

再次打开该工作薄，点击第一列或者第二列，就可以弹出日历选择器，选择日期后，在单元格内会插入日期，日历选择器消失。

注意这是在非编辑模式下才可以实现的。

EXCEL除了这个日历控件外还有一个另一个比较简单的日历选择器Microsoftdateandtimepickercontrol(SP6)。

插入该控件后，在非设计模式下即可点击弹出日期选择界面。

如下：
1、用数据有效性定义数据长度。

还可以定义一些提示信息、出错警告信息和是否打开中文输入法等，定义好后点"确定"。

2、用条件格式避免重复。

选定A列，点"格式"->"条件格式"，将条件设成“公式
=COUNTIF($A:$A,$A1)>1”，点"格式"->"字体"->"颜色"，选定红色后点两次"确定"。

这样设定好后你输入数据如果长度不对会有提示，如果数据重复字体将会变成红色。

看过Excel中进行插入日期选择器的操作技巧还看了：。