选择日期Excel日历控件将日期插入到指定单元格教学文稿.docxVIP

选 择 日 期 Ex c e l 日 历控件将日期插入到指定单元格 精品文档 精品文档 收集于网络，如有侵权请联系管理员删除 收集于网络，如有侵权请联系管理员删除 选择日期Excel日历控件将日期插入到指 定单元格 在Excel中如何实现选择日历控件，就将日期插入到指定的单元格? 请跟随如下操作; 在EXCEL窗口中执行“视图工具栏控件工具箱”；弹出如下 ci塞s150个控件 ci塞s 150个控件 WeTiTrijLLndei- ser llelp er WebThukder DapPlayer 1W etV i e wF d! d er_I c on 1WIA Vi de(\Pre^i ew CIses Wi U^oj Pl Ayer XD o^nl osddf 1 inager 匚lase UDRH xrn迂移XWF Class i xrn 迂移 按上图的操作，找到 日历控件11.0”，之后在EXCEL窗口中使用鼠标左键一 拖，拖出如下图的控件; 个日期之后，日期自动插入到单元格；除 C 个日期之后，日期自动插入到单元格；除 C列之外，点击其他列的单元格，不会弹出日历 选择控件； 要想实现这样的效果，得使用 VBA来实现； 选择日历控件，鼠标左键双击，进入代码编辑模式；如下图！ 上图中，第一个过程代码就是日历控件所需要的代码，另外，还得需要另外一个代码，在 图中按红线圈住部分选择，找到对应的过程，输入如下的 VBA代码即可！ 完成之后，直接运行 VBA代码，返回EXCEL操作窗口，即可实现效果了！ 如上图，C3单元格已插入了日期，当你选择 C列其他单元格时，就弹出日历 控件，以供选择，选择完成，即可插入日期了! 为方便操作，提供源代码: Private Sub Cale ndar1 Click() ActiveCell = Cale ndar1.Value Me.Cale ndar1.Visible = False End Sub Private Sub Worksheet_Selectio nCha nge(ByVal Target As Ra nge) If Target.Colu mn = 1 The n Me.Cale ndar1.Visible = True Else Me.Cale ndar1.Visible = False End If End Sub B 新建文本文档 .txt