excel表格插入日历控件
excel表格中插入日历控件的教程

excel表格中插入日历控件的教程
Excel中经常需要插入日历控件给用户提供选择日期,日历控件具体该如何插入呢?下面是由店铺分享的excel表格中插入日历控件的教程,以供大家阅读和学习。
excel表格中插入日历控件的教程:
插入日历控件步骤1:单击“开发工具”选项卡下的“控件”工作组中的“插入”命令,在弹出的的对话框中单击最右下角的“更多控件”选项,如下图所示:
插入日历控件步骤2:在弹出的“其他控件”对话框中拖动右边的滚动条直至找到“Microsoft Date And Time Picker Control”,然后单击确定,如下图所示:
插入日历控件步骤3:然后单击鼠标左键不放往左右拖开即可插入一个日历控件,此时“控件”工作组处于“设计模式”,这时候的日历控件还处于设计模式,还不能使用,如下图所示:
插入日历控件步骤4:单击“设计模式”按钮,取消它的选中状态,此时日历控件可以使用了。
如下图所示:。
excel表格日历怎么插入

excel表格日历怎么插入
Excel作为办公人员常用的软件之一,获得了世界范围的推广和使用;在Excel中插入日历来说也许对于大部分的用户比较陌生,其实我们需要通过一个“控件”的功能来实现日历的插入,那究竟该如何做呢,下面店铺给大家分享吧。
Excel表格插入日历的方法
1、打开我们的Excel软件,鼠标光标切换到左上角的“文件”按钮然后单击右键,在弹出的快捷菜单中选择“自定义快速访问工具栏”命令;
2、在弹出的“Excel选项”中,选择左侧菜单中的“自定义”选项,然后点击中间区域“从下列位置选择命令”的下拉按钮,选择“不在功能区中的命令”,找到“其他控件”选项后,单击“添加”之后点击“确定”选项;
3、此时你会在工作表的左上角的“快速访问工具栏”中会添加一个“其他控件”的图标,鼠标单击该图标;
4、在跳出的“其他控件”的对话框中找到并选择“日历控件”然后单击“确定”;
5、此时在我们的工作表中,用鼠标单击拖出我们的日历控件,效果如下所示;。
Excel中2010版快速插入日历的操作方法

Excel中2010版快速插入日历的操作方法
Excel如何快速插入日历,具体进行执行的操作?今天,店铺就教大家在Excel中2010版快速插入日历的操作方法。
希望对你有帮助!Excel中2010版快速插入日历的操作步骤
1.右键Excel左上角快速访问工具栏的空白处然后点击“自定义快速访问工具栏”。
Excel中2010版快速插入日历的操作步骤图1
2.选择“不在功能区中的命令”然后下拉找到“其他控件”并添加到快速访问工具栏。
Excel中2010版快速插入日历的操作步骤图2
3.返回到Excel表格后点击“其他控件”。
Excel中2010版快速插入日历的操作步骤图3
4.在其它控件里找到“日历控件”然后点击确定即可。
Excel中2010版快速插入日历的操作步骤图4
5.这个时候我们就可以在表格中绘制日历啦。
Excel中2010版快速插入日历的操作步骤图5。
选择日期Excel日历控件将日期插入到指定单元格

选择日期Excel日历控件将日期插入到指定单元格在Excel中如何实现选择日历控件,就将日期插入到指定的单元格?请跟随如下操作;在EXCEL窗口中执行“视图”→“工具栏”→“控件工具箱”;弹出如下图对话框;按上图的操作,找到“日历控件11.0”,之后在EXCEL窗口中使用鼠标左键一拖,拖出如下图的控件;上图,我们要实现的结果是:在C列中,无论点击哪个单元格,就弹出日历控件,选择一个日期之后,日期自动插入到单元格;除C列之外,点击其他列的单元格,不会弹出日历选择控件;要想实现这样的效果,得使用VBA来实现;选择日历控件,鼠标左键双击,进入代码编辑模式;如下图!上图中,第一个过程代码就是日历控件所需要的代码,另外,还得需要另外一个代码,在图中按红线圈住部分选择,找到对应的过程,输入如下的VBA代码即可!完成之后,直接运行VBA代码,返回EXCEL操作窗口,即可实现效果了!如上图,C3单元格已插入了日期,当你选择C列其他单元格时,就弹出日历控件,以供选择,选择完成,即可插入日期了!为方便操作,提供源代码:Private Sub Calendar1_Click()ActiveCell = Calendar1.ValueMe.Calendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal T arget As Range)If Target.Column = 1 ThenMe.Calendar1.Visible = TrueElseMe.Calendar1.Visible = FalseEnd IfEnd Sub新建文本文档.txt。
Excel 2010 表格中插入日历选择

Excel 2010 表格中插入日历选择1. 进入表单,选择Developer(开发),点击Insert(插入)2. 点击弹出对话框中More Controls (更多控制)选项3. 选择弹出对话框中Microsoft Date and Time Picker Control 6.0 (日历控件)4. 点击OK5. 对话框消失,鼠标变成十字符。
6. 移动十字符到需要的位置,按住鼠标左键,拉动鼠标,选择合适大小,出现如下图7. 如果有需要可调整该框的大小。
8. 双击该框内任意一点,对该控件进行编程,出现如下对话框9. 将下面程序拷入Private Sub DTPicker21_closeup()ActiveCell = DTPicker21.ValueMe.DTPicker21.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 3 ThenDTPicker21.Left = Target.LeftDTPicker21.Top = Target.TopMe.DTPicker21.Visible = TrueElseIf Target.Column = 4 ThenDTPicker21.Left = Target.LeftDTPicker21.Top = Target.TopMe.DTPicker21.Visible = TrueElseIf Target.Column = 6 ThenDTPicker21.Left = Target.LeftDTPicker21.Top = Target.TopMe.DTPicker21.Visible = TrueElseMe.DTPicker21.Visible = FalseEnd IfEnd Sub10. 出现如下状况11. 点击Excel图标,进入表单12. 点击Design Mode(设计模式),以进入编辑模式13. 程序中Target.Column = 4 是选择哪一列用来输入日历,如果需要,可多加或减少列数。
Excel日历控件教程(详细)

1.Alt+F11 按下显示代码窗口后,再松开Alt+F11.2.然后按F7 ,调出VBA 窗口。
3.粘贴以下代码.Private Sub Calendar1_Click()Dim MyDay As DateActiveCell = Calendar1.ValueMydate = Calendar1.Value'MsgBox MydateCalendar1.Visible = 0End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 1 Or Target.Column = 1 And Target.Row > 0 ThenIf IsDate(Target) ThenCalendar1.Value = TargetElseCalendar1.TodayEnd IfCalendar1.Visible = -1Calendar1.Top = ActiveCell.Top + ActiveCell.HeightCalendar1.Left = ActiveCell.Left + Cells(ActiveCell.Rows.Count, 3).Left ElseCalendar1.Visible = 0End IfEnd Sub4.打开文件→保存book1(S)5.打开视图→对象窗口6.打开插入→对象窗口7.找到日历控件11.0或9.0,按确定退出。
8.单击第一列(A列)中的任一单元格,选择日历中的需要的日期即可。
备注:要改变日期输入位置,可按以下方法调整代码,找到下面的代码行(此代码行的意思是在A列(第1列)中添加日历。
If Target.Column = 1 Or Target.Column = 1 And Target.Row > 0 Then然后根据以下的方法覆盖粘贴此行代码1.以下这一句就是 B3:C5区域调用日期控件.If Target.Column = 2 And Target.Row > 2 And Target.Row < 6 Or Target.Column = 3 And Target.Row > 2 And Target.Row < 6 Then2.这句是说在第 2列和第 3列调用日期控件.If Target.Column = 2 Or Target.Column = 3 And Target.Row > 0 Then3.这句是说在C2:C50调用日期控件.If Target.Column = 3 And Target.Row > 1 And Target.Row < 51 Then -----精心整理,希望对您有所帮助!。
Excel中进行添加日历控件的两种方法

Excel中进行添加日历控件的两种方法
有时我们在运用Excel表格的时候会运用到日历的控件,可是小伙伴们却不知道在哪里添加。
那么我们来看一下,它到底躲藏在哪里,又该怎么添加呢?今天,店铺就教大家在Excel中进行添加日历控件的两种方法。
Excel中进行添加日历控件的两种步骤:
1、添加整个月份的日历
打开一个Excel 2007表格,点击表格左上角“扳手和锤子”这个其它控件的按钮。
在弹出的对话框中,找到底部的日历控件,点击确定按钮。
按住鼠标左键在表格上面拖动,形成一个黑色的矩形,松开鼠标。
插入日历插件成功。
拖动可移动日历的位置和大小。
2、添加单个日期的日历控件
如何添加单个的日历控件,第一步的方法和上面的一样。
点击表格左上角“扳手和锤子”这个其它控件的按钮。
在跳出的对话框中找到Microsoft Date and Time Picker Control 6.0的控件,选择该控件,点击确定按钮。
按住鼠标左键在表格上面拖动,行程一个黑色的矩形,松开鼠标。
插入单个日历插件成功。
拖动可移动日历的位置和大小。
有些人会说我的Excel 2007怎么找不到“其它控件”的按钮。
其实呢,它需要我们自己添加才能被显示出来。
我们看下怎么添加。
找到文档左上角office按钮,右击,选择“自定义快速访问工具栏”。
在跳出的Excel 选项中依次选择自定义--不在功能区中的命令--其它控件--添加--确定。
我们就可以在表格左上角插入其它控件的按钮。
关于如何在EXCEL中添加日历控件,最全最好的方法

1、选择excel的常规里选择显示开发工具图表1 选择自定义工具栏选择开发工具图表2选择开发工具2、选择插入-〉表单控件-〉其它选择其它图表3选择其它控件图表4选择日历控件3、双击界面控件,在‘通用’加入如下代码(注意:Target.Column = 4里的是指D 列就是固定的4列,G列是7列,而不是sheet里D,G列真实对应的第几列:Private Sub Calendar1_Click(ActiveCell = Format(Calendar1.Value, "yyyy-mm-dd" '设置日期格式,此工作可以直接通过设置某列单元格格式一次性完成Calendar1.Visible = False '单击日历控件后隐藏之End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As RangeIf Target.Column = 4 Then 'D列为日期输入列,只对应excel的字母列,例如D对应4, 'G对应7,不是实际的显示列对应的数字Calendar1.Left = Target.Left + Target.Width '设置日历控件弹出后的位置Calendar1.Top = Target.Top + Target.Height '同上Calendar1.Value = Date '设置默认日期为系统日期Calendar1.Visible = True '使日历控件可见ElseIf Target.Column = 5 Then 'E列为日期输入列Calendar1.Left = Target.Left + Target.WidthCalendar1.Top = Target.Top + Target.HeightCalendar1.Value = DateCalendar1.Visible = TrueElseIf Target.Column = 6 Then 'F列为日期输入列Calendar1.Left = Target.Left + Target.WidthCalendar1.Top = Target.Top + Target.HeightCalendar1.Value = DateCalendar1.Visible = TrueElseCalendar1.Visible = False '单击其他列时隐藏日历控件End IfEnd Sub 保存。
EXCEL日期数据录入技巧使用日期下拉菜单或使用漂亮的控件

EXCEL日期数据录入技巧使用日期下拉菜单或使用漂亮的控件在Excel中,我们经常需要录入日期数据。
使用日期下拉菜单或漂亮的控件可以提高数据录入的准确性和效率。
下面是一些常用的Excel日期数据录入技巧。
一、使用日期下拉菜单1.创建一个日期列表首先,我们需要创建一个日期列表,可以按照下面的步骤进行操作:-在一个单元格中输入起始日期,比如"2024/01/01";-在下一个单元格中输入下一个日期,比如"2024/01/02";-选中这两个单元格,将鼠标移到右下角的小黑点上,直到光标变为十字箭头,按住鼠标左键拖动到需要的日期范围,比如"2024/12/31";-松开鼠标左键,就会生成一个日期列表。
2.创建数据验证规则接下来,我们需要将日期列表应用到需要录入日期的单元格中,可以按照下面的步骤进行操作:-选中需要应用日期列表的单元格,比如"A2:A100";-在"数据"选项卡中的"数据工具"分组中,点击"数据验证"按钮;现在,对应的单元格就会显示一个下拉箭头,点击箭头就会显示日期列表,可以从列表中选择一个日期进行录入。
Excel提供了一些漂亮的控件,可以快速和直观地选择日期,比如下拉式日期选择器、日历控件等。
以下是两种常见的漂亮控件的使用方法。
1.下拉式日期选择器- 在Excel中,打开"文件"选项卡,选择"选项";- 在"Excel选项"对话框中,选择"自定义功能区";-在"功能区"选项卡中,选中"开发工具"复选框,然后点击"确定"按钮;- 在Excel的顶部菜单中,选择"开发工具"选项卡,然后点击"插入"按钮;- 在下拉菜单中选择"More Controls";- 在弹出的对话框中,选择"Microsoft Date and Time Picker Control",点击"确定"按钮;-在需要录入日期的单元格中,点击鼠标右键,选择"日期选取器";-点击日期选取器中的日期,就会自动填充到对应的单元格中。
Excel如何在窗体中插入并使用日历控件?窗体,控件,日历

选中日历控件即可在窗体绘制了。
用法:可引用日历控件的值,如textbox1.text=Calendar1.Value,类型为日期。
收录同一素材的主题
Hale Waihona Puke 主题状态贡献 财富 值值
您正在浏览的主题 审核通过 <>kevinchengcw
+ 10 + 20
采编帖得分: 贡献值 +10 财富值采编 的相关规定。
网站名称: Excel技巧网 | Excel 2010帖 由本站会员 yumin 提供 署名作者: KevinChengCW 版权声明: 版权所有 非作者本人转载须经许可并注明作者和出处 本文来自: 引用作品: 适用版本: 2007 语言环境: 简体中文 学习方法: 掌握Excel技巧的关键是动手操作 | 下载 ≠ 知识
新开一个excel文档按altf11进入vba编辑器插入一个窗体选中窗体会出现控件工具箱如未出现可以从视图中选择工具箱右键点击控件工具箱在弹出的菜单中选择附加控件将弹出的窗口的滚动条下拉到底一般是位于最后选中日历控件120本机控件名不同版本可能会有不同这时控件工具箱最后会出现日历控件图标如下图所示
Excel如何在窗体中插入并使用日历控件?窗体 ,控件 ,日历
本帖最后由 kevinchengcw 于 2010-6-5 18:30 编辑
Q: 如何在窗体中插入并使用日历控件? A: 新开一个excel文档,按Alt + F11进入VBA编辑器,插入一个窗体,选中窗体会出现“控件工 具箱”,如未出现可以从“视图”中选择“工具箱”,右键点击“控件工具箱”,在弹出的菜单中选择“附 加控件”,将弹出的窗口的滚动条下拉到底(一般是位于最后),选中"日历控件 12.0"(本机控 件名,不同版本可能会有不同),这时“控件工具箱”最后会出现日历控件图标,如下图所示:
在Excel中插入日历控件

在Excel中插入日历控件1、在某一单元格中插入日历控件(1)选中要插入日历控件的单元格,设置单元格格式为日期型;(2)点击工具栏,“插入—对象—日历控件”,(3)用快捷方式Alt+F11,双击插入控件的工作表名称,粘贴下面的代码,用来实现单击A1时弹出日历控件,单击日历控件后,将选中的日期值填入A1并隐藏控件。
Private Sub Calendar1_Click()ActiveCell = Calendar1Calendar1.Visible = False[a2].SelectEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Address = "$A$1" Then Calendar1.Visible = TrueEnd Sub2、某一列全部设置为插入日历控件。
例如;在C列中,无论点击哪个单元格,就弹出日历控件,选择一个日期后,日期自动插入到单元格;除C列之外,点击其他单元格,不会弹出日历选择控件;同上面(1)(2)步后,选择日历控件,双击鼠标,进入代码编辑模式,选择Worksheet和SelectionChange,输入代码:Private Sub Calendar1_Click()ActiveCell = Calendar1.ValueMe.Calendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 1 ThenMe.Calendar1.Visible = TrueElseMe.Calendar1.Visible = FalseEnd IfEnd Sub完成后,运行VBA代码,返回Excel操作窗口,即可实现。
Excel中进行插入日期选择器的操作技巧

Excel中进行插入日期选择器的操作技巧在某一单元格中插入日历控件,选中要插入日历控件的单元格,设置单元格格式为日期型;点击工具栏,“插入—对象—日历控件”,用快捷方式Alt+F11,双击插入控件的工作表名称,粘贴下面的代码,用来实现单击A1时弹出日历控件,单击日历控件后,将选中的日期值填入A1并隐藏控件。
PrivateSubCalendar1_Click()ActiveCell=Calendar1Calendar1.Visible=False[a2].SelectEndSubPrivateSubWorksheet_SelectionChange(ByValTargetAsRange) IfTarget.Address="$A$1"ThenCalendar1.Visible=TrueEndSub在开发工具栏选择插入-其他控件,打开其他控件选择框。
在选择框中选择calendarcontrol8.0,确定。
在适当的位置绘制日历,并将高度和宽度适当调整。
这时的日历控件还比较原始,不会点击日期后自动隐藏日历并在单元格内填入日期,这时就需要添加自己的代码。
在设计模式下双击日历。
点击设计模式,当图表颜色变深后就是设计模式,打开代码编辑器。
在光标处输入下方的代码:ActiveCell=Calendar1.ValueMe.Calendar1.Visible=FalseEndS ubPrivateSubWorksheet_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.Cale ndar1.Visible=FalseEndIf关闭代码编辑器,将EXCEL保存为启用宏的工作薄。
excel表格日历模板怎么插入

excel表格日历模板怎么插入
推荐文章
在excle表格中如何插入时间?热度:Excle表格中如何插入打勾号?热度: Excel2016表格插入图片批注方法是什么热度: Excel 表格中插入图片图表的按钮呈灰色怎么解决热度:excel表格日历怎么插入热度:
很多人每天都在使用EXCEL处理表格,却很少有人知道EXCEL中还有一个很漂亮的日历模板,那么大家知道怎么制作日历模板吗?下面店铺给大家分享excel表格插入日历模板的方法吧。
excel表格插入日历模板的方法
①打开Excel,单击office按钮,选择新建。
②选择日历选项卡,然后选择一款样式。
③我们可以预览样式,选择喜欢的那一个。
④确定之后,等待系统完成下载,不大,不需要太多时间。
⑤下载完成,我们看看模版吧,制作的十分优秀。
如何实现在excel2007中控件插入日期

1.新建一个excel,然后要确保宏是打开的,我的是2007,点开发工具->宏安全性,在弹出界面选择启用所有宏,点击确定。
2.新建,或者找到你需要编辑的表单,选择你要放置日期的那一列,设置这列的数据格式为日期,然后具体怎么显示,你可以自己选一种,而且做好了以后自己也可以再修改,只不过先选好了舒服一些。
3.开始真正的工作了,找到开发工具->插入->选择最后如红圈内的图标,就是其他控件,日期控件是系统默认自带的一个控件。
4.上一步点击之后,会弹出一个对话框,列出系统内所有可用的控件,把滚动条一直拖到最后,我的2007默认就有时间控件,如下图,双击选择这个控件(或者单击选择后点确定)。
5.上一步之后,你随便在表单页面的任何位置点一下,就会在表单界面弹出日期控件了,如下图,这个控件是可以随便拖着跑的,而且编辑完成后它不会出现在表单界面的,只有你要输入日期的时候才会出现。
6.现在,控件已经激活了,你需要告诉excel你要在那些地方用这个控件,就要vba编程了。
具体就是,在你刚刚调出的日期控件界面上任意位置双击,注意,不是在表单上双击,是在日期控件的上面任意位置双击,就调出vba编辑环境了。
7.在弹出的界面上会有一段代码,把这段代码删除,然后,把下面这段代码拷贝进去:Private Sub Calendar1_Click()ActiveCell = Calendar1.ValueMe.Calendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 ThenMe.Calendar1.Visible = TrueElseMe.Calendar1.Visible = FalseEnd IfEnd Sub==========华丽的分割线,分割线以下为注解,不要拷贝===========Private Sub Calendar1_Click() 激活空间的前提是单击单元格ActiveCell = Calendar1.Value 默认弹出的日期是空间显示的日期Me.Calendar1.Visible = False 设定默认为空间不可见End Sub 这段代码是对控件在表单中的基本形态的定义Private Sub Worksheet_SelectionChange(ByVal Target As Range) 这里开始定义本张表单中哪些单元格会调用此控件If Target.Column = 1 Then 注意,这里是关键,你想第几列是日期,就把第几列的数字替换数字1,对应的A=1,B=2,C=3,D=4以此例推。
在Excel中如何实现选择日历控件

在Excel中如何实现选择日历控件,就将日期插入到指定的单元格?请跟随如下操作;在EXCEL窗口中执行“视图”→“工具栏”→“控件工具箱”;弹出如下图对话框;按上图的操作,找到“日历控件11.0”,之后在EXCEL窗口中使用鼠标左键一拖,拖出如下图的控件;上图,我们要实现的结果是:在C列中,无论点击哪个单元格,就弹出日历控件,选择一个日期之后,日期自动插入到单元格;除C列之外,点击其他列的单元格,不会弹出日历选择控件;要想实现这样的效果,得使用VBA来实现;选择日历控件,鼠标左键双击,进入代码编辑模式;如下图!上图中,第一个过程代码就是日历控件所需要的代码,另外,还得需要另外一个代码,在图中按红线圈住部分选择,找到对应的过程,输入如下的VBA代码即可!完成之后,直接运行VBA代码,返回EXCEL操作窗口,即可实现效果了!如上图,C3单元格已插入了日期,当你选择C列其他单元格时,就弹出日历控件,以供选择,选择完成,即可插入日期了!为方便操作,提供源代码:Private Sub Calendar1_Click()ActiveCell = Calendar1.ValueMe.Calendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 1 ThenMe.Calendar1.Visible = TrueElseMe.Calendar1.Visible = FalseEnd IfEnd Sub知识扩展:①执行上述代码时,可能会遇到创建宏的提示,随便输入宏名,再运行即可!②可以将上述的代码及EXCEL文件一起保持,以备不时之需,以后你再需要到这种功能,直接打开EXCEL文件即可!打开EXCEL文件,运行原来的宏,有可能出现“宏”被禁止运行的提示,解决的方法如下:在EXCEL操作中执行“工具”→“宏”→“安全性”;弹出如下的对话框;上图中,选择“安全级”选项卡,将安全设置为“中”即可!之后关闭EXCEL,再打开,就能运行了!。
win7EXCEl2010版下插入日期控件的方法

在win7旗舰版的EXCEL2010版中,插入日期控件的操作方法:1、选择excel的“文件”选项,然后选中“选项”:2、再选择“自定义功能区”,查看自定义功能区(B)下设框的“主选项卡”,找到“开发工具”勾选后按“确定”,关闭EXCEL。
3、下载“Mscomct2.OCX”控件,网上有很多,给个下载链接:/f/22164687.html下载后把文件“Mscomct2.OCX”放在系统盘下设文件夹中:C:\windows\system32;在C:\windows\system32\cmd.exe上点右键,使用“以管理员身份运行”,打开CMD时输入“regsvr32.exe Mscomct2.ocx”,按回车,系统提示已成功注册。
4、打开EXCEL,选择“开发工具”选项卡,选择“插入”,选择“其他控件”,弹出其他控件的对话框,选择“micorsoftDate and Time Picker Control, version 6.0”,按“确定”。
如果没有在找到“micorsoft Date and Time Picker Control, version 6.0”,就选择“注册自定义控件”,查找到“Mscomct2.OCX”文件注册一下即可。
’5、点“确定”后,会出现画形状图时出现的“+”,鼠标左键拖动画出想要的形状后松手,一般画个单元格大小的方块居多,比如:6、在“开发工具”选项卡中选中“设计模式”,选中并双击刚才插入的日期框,出现如下设计框:7、在代码输入框中加入如下代码后“保存”,一直“确定”即可。
(注意:Target.Column = 4里的是指D列就是固定的4列,G列是7列,而不是sheet里D,G列真实对应的第几列):Private Sub Calendar1_Click()ActiveCell = Format(Calendar1.Value, "yyyy-mm-dd") '设置日期格式,此工作可以直接通过设置某列单元格格式一次性完成Calendar1.Visible = False '单击日历控件后隐藏之End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 4 Then 'D列为日期输入列,只对应excel的字母列,例如D对应4,'G对应7,不是实际的显示列对应的数字Calendar1.Left = Target.Left + Target.Width '设置日历控件弹出后的位置Calendar1.Top = Target.Top + Target.Height '同上Calendar1.Value = Date '设置默认日期为系统日期Calendar1.Visible = True '使日历控件可见ElseIf Target.Column = 5 Then 'E列为日期输入列Calendar1.Left = Target.Left + Target.WidthCalendar1.Top = Target.Top + Target.HeightCalendar1.Value = DateCalendar1.Visible = TrueElseIf Target.Column = 6 Then 'F列为日期输入列Calendar1.Left = Target.Left + Target.WidthCalendar1.Top = Target.Top + Target.HeightCalendar1.Value = DateCalendar1.Visible = TrueElseCalendar1.Visible = False '单击其他列时隐藏日历控件End IfEnd Sub8、关闭ECXEL,重新打开后,点中插入时间框的下拉箭头,即可看到如下效果:9、如希望其他单元格也能出现这样的格式,使用复制、粘贴即可完成。
Excel日历控件教程(详细)

1.Alt+F11 按下显示代码窗口后,再松开Alt+F11.2.然后按F7 ,调出VBA 窗口。
3.粘贴以下代码.Private Sub Calendar1_Click()Dim MyDay As DateActiveCell = Calendar1.ValueMydate = Calendar1.Value'MsgBox MydateCalendar1.Visible = 0End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 1 Or Target.Column = 1 And Target.Row > 0 ThenIf IsDate(Target) ThenCalendar1.Value = TargetElseCalendar1.TodayEnd IfCalendar1.Visible = -1Calendar1.Top = ActiveCell.Top + ActiveCell.HeightCalendar1.Left = ActiveCell.Left + Cells(ActiveCell.Rows.Count, 3).Left ElseCalendar1.Visible = 0End IfEnd Sub4.打开文件→保留book1(S)5.打开视图→对象窗口6.打开插入→对象窗口7.找到日历控件11.0或9.0,按确信退出。
8.单击第一列(A列)中的任一单元格,选择日历中的需要的日期即可。
备注:要改变日期输入位置,可按以下方式调整代码,找到下面的代码行(此代码行的意思是在A列(第1列)中添加日历。
If Target.Column = 1 Or Target.Column = 1 And Target.Row > 0 Then然后依照以下的方式覆盖粘贴此行代码1.以下这一句确实是 B3:C5区域挪用日期控件.If Target.Column = 2 And Target.Row > 2 And Target.Row < 6 Or Target.Column = 3 And Target.Row > 2 And Target.Row < 6 Then2.这句是说在第 2列和第 3列挪用日期控件.If Target.Column = 2 Or Target.Column = 3 And Target.Row > 0 Then3.这句是说在C2:C50挪用日期控件.If Target.Column = 3 And Target.Row > 1 And Target.Row < 51 Then。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
Excel 2007中日历控件使用
1. 先需下载并注册安装Excel 2007的日期控件文件MSCAL.OCX。
在Microsoft网站或internet上下载日历控件文件MSCAL.OCX(不同版本Office有不同的日历控件文件),保存到C:\Windows\System32文件夹中,打开CMD窗口,输入命令“Regsvr32 mscal.ocx”后显示注册成功。
2. 在Excel中显示“开发工具”菜单栏。
3.点击“插入”的“其他控件”。
4.浏览到最底部看到注册安装的日历控件,点击“确定”。
5.在VB编辑器中输入如下的代码(如图所示):
********************************
Private Sub Calendar2_Click()
ActiveCell = Calendar2.Value
Me.Calendar2.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 6 Then 'D列为日期输入列,只对应excel的字母列,例如D对应4,'G对应7,不是实际的显示列对应的数字
Calendar2.Left = Target.Left + Target.Width '设置日历控件弹出后的位置
Calendar2.Top = Target.Top + Target.Height '同上
Calendar2.Value = Date '设置默认日期为系统日期
Calendar2.Visible = True '使日历控件可见
ElseIf Target.Column = 6 Then 'F列为日期输入列
Calendar2.Left = Target.Left + Target.Width
Calendar2.Top = Target.Top + Target.Height
Calendar2.Value = Date
Calendar2.Visible = True
Else
Calendar2.Visible = False '单击其他列时隐藏日历控件
End If
End Sub
********************************
6.点击“保存”,选择“Excel启用宏”的格式文件进行保存。
7.打开EXCEL文件,运行原来的宏,有可能出现“宏”被禁止运行的提示,解决的方法如下:在
EXCEL操作中执行“工具”→“宏”→“安全性”中修改宏打开的安全级别。
.。