EXCEL的单元格中如何插入一个时间选择框
问题补充说明:如何在一个单元格里面插入可以由自己选择的时间框,就是选中一单元格时出现日期选项,选择日期后日期显示在单元格中,我只需要选择年月日。 请别简单的告诉我“选择插入——对象——日历控件”,我的是office2007,我在插入对象里没找到日历控件。 大概... 何在一个单元格里面插入可以由自己选择的时间框,就是选中一单元格时出现日期选项,选择日期后日期显示在单元格中。请别简单的告诉我“选择插入——对象——日历控件”,我的是office2007,我在插入对象里没找到日历控件。大概搜了一下,好像VBA能实现这个功能,我只需要选择年月日 展开 修复了也没找到日历插件,劳驾有过实践经验的朋友给解答,不要理论上应该是的那些答案,回答的稍微详细点,感激不尽
1、在开发工具栏选择插入-其他控件,打开其他控件选择框。
2、在选择框中选择calendarco来自ntrol8.0,确定。
3、在适当的位置绘制日历,单征雨用友环沙程机生束并将高度和宽度适当调整。这时的日历控件还比较原始,不会点击日期后自动隐藏日历并在单元格内填入日期,这时就需要添加自己权劳阶突践钱的代码。
4、在设计模式下双击日历。
点击设计模式,当图表颜色变深后就是设计模式食鱼力那省反头包多检,打开代码编辑器。
在光标处输入下方的代码:
ActiveCell=Calendar1.Value Me.Calendar1.Visible=FalseEndSub
PrivateSubWorksheet_SelectionChange(ByValTargetAsRa360问答nge)
IfTarget.Column=1OrTarget.Column=2Then
'此处的1和2为你要显示日历的列序号
Me.Calendar1.Left=Target.Left Me.***.Top=***.To IfTarget.Value<>""Then Me.Calendar1.Value=T距arget.Value Else M区城又温值航孩套e.Calendar1.Value=Now( EndI Me.Calendar1.Visible=TruElse Me.Calendar1.Visible=FalseE细酒各药少ndIf
5、关闭代码编辑器,将EXCEL保存为启用宏的工作薄。
6、再次打开该工作薄,歌矿乙出北资径吗货屋点击第一列或者第二列,就可以弹出日历选择器,选择日期后,在单元格内会插入日期,日历选择器消失。注意州差资齐这是在非编辑模式下才可以实现的。
7、EXCEL除了这个日历控件外还有一个另一个比较简单的日历选择器Microsoftdateandtimepi每金波稳两讲督ckercontrol(SP6)。
8、插入该控件后,财观践额大构血务胡在非设计模式下即可点击弹出日期选择界面。如下:
标签:EXCEL,单元格,插入