- 1、本文档共5页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Excel中选择日期
Excel中选择日期:选择日期Excel日历控件将日期插入到指定单元格方法1:
先将控件工具箱调出来。视图-工具栏-控件工具箱。在控件工具箱上最下面那个按钮是其他控件,打开它,找到Microsoft Date and Time Picker Control,这个就是日历控件。然后在一个单元格上拖画一个框,日历控件就出来了。然后在控件工具箱上退出设计模式,日历控件就能使用了。
? 在你所要用到的单元格内画出,大小要和单元格一样; ? ? 选中控件,右键单击选择菜单“设置控件格式”,在属性选项中选择“大小、位置均随单元格而变”,确定; ? ? 右键单击控件选择菜单“查看代码”,进入VBA后,键入以下代码: ? ? ? ? Private ? Sub ? DTPicker1_Change() ? ? ? ? ? ? Sheet1.Cells(1, ? 1) ? = ? CStr(DTPicker1) ? ? End ? Sub ? ? ? ? Private ? Sub ? DTPicker1_Click() ? ? ? ? ? ? Sheet1.Cells(1, ? 1) ? = ? CStr(DTPicker1) ? ? End ? Sub ? ? ? ? 返回到Excel,调整单元格大小使控件完全显示; ? ? ? ? 退出设计模式,OK。
?
?
方法2:
在EXCEL窗口中执行“视图”“工具栏”“控件工具箱”;弹出如下图对话框;
按上图的操作,找到“日历控件11.0”,之后在EXCEL窗口中使用鼠标左键一拖,拖出如下图的控件;
上图,我们要实现的结果是:在C列中,无论点击哪个单元格,就弹出日历控件,选择一个日期之后,日期自动插入到单元格;除C列之外,点击其他列的单元格,不会弹出日历选择控件;
要想实现这样的效果,得使用VBA来实现;
选择日历控件,鼠标左键双击,进入代码编辑模式;如下图!
上图中,第一个过程代码就是日历控件所需要的代码,另外,还得需要另外一个代码,在图中按红线圈住部分选择,找到对应的过程,输入如下的VBA代码即可!
完成之后,直接运行VBA代码,返回EXCEL操作窗口,即可实现效果了!
如上图,C3单元格已插入了日期,当你选择C列其他单元格时,就弹出日历控件,以供选择,选择完成,即可插入日期了!
为方便操作,提供源代码:
Private Sub Calendar1_Click()ActiveCell = Calendar1.ValueMe.Calendar1.Visible = FalseEnd Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 1 Then (If Target.Column = 1 And Target.Row = 1 Then)Me.Calendar1.Visible = TrueElseMe.Calendar1.Visible = FalseEnd IfEnd Sub
知识扩展:
执行上述代码时,可能会遇到创建宏的提示,随便输入宏名,再运行即可!
可以将上述的代码及EXCEL文件一起保持,以备不时之需,以后你再需要到这种功能,直接打开EXCEL文件即可!
打开EXCEL文件,运行原来的宏,有可能出现“宏”被禁止运行的提示,解决的方法如下:
在EXCEL操作中执行“工具”“宏”“安全性”;弹出如下的对话框;
上图中,选择“安全级”选项卡,将安全设置为“中”即可!之后关闭EXCEL,再打开,就能运行了!
您可能关注的文档
最近下载
- 22S702:室外排水设施设计与施工——钢筋混凝土化粪池.pdf VIP
- 人教版小学数学六年级上册重点题型专项练习(必刷)word版.docx
- 广东省中山市2022-2023学年九年级上学期第一阶段十校联考英语试卷(含答案).docx VIP
- 423编号七年级数学《代数式》习题(含答案).pdf VIP
- 译林版三年级上册英语Unit 4《This is my friend》全单元教学课件(新教材).pptx
- 中学班会 课堂教学《寝室管理的要求》课件(共18张PPT).pptx VIP
- 物理学与人工智能.ppt
- 手机塑胶件来料检验标准手册.pdf VIP
- 公安基础知识1000题.docx
- 翻修屋顶合同5篇.docx VIP
文档评论(0)