excel中实现日期选择输入(日历控件)

合集下载

EXCEL日历控件的应用

ＥＸＣＥＬ日历控件的应用
1　日历控件功能
日历控件可以作为日期的输入工具，以交互方式代替单元格录入；在动态图表制作中，由于日历控件可以链接到特定的单元格，从而返回用户所选择的日期，因此当涉及与日期相关的数据源，且日期作为交互选项时，可以使用日历控件作为动态图表的选择器。

日历控件（见图1）。

图1
2　利用日历控件输入日期
在制作报表时，如果报表包含日期列，可考虑使用日历控件进行日期输入。

例如，报表A列是日期列，则可通过以下步骤实现日历控件的日期输入。

Step01　插入日历控件。

按以下路径选择“开发工具－控件－插入－ActiveX控件－其他控件－日历控件12.0命令插入一个日历控件，不作任何设置。

Step02　编写VBA代码。

双击日历控件，进入VBA编辑窗口，并编写如下代码（具体见图2）。

Private Sub Calendar1_Click（）
ActiveCell=Calendar1.Value
Me.Calendar1.Visible=False
End Sub
Private Sub Worksheet_SelectionChange（ByVal Target As Range）
If Target.Column=1Then
Me.Calendar1.Visible=True
Else
Me.Calendar1.Visible=False
End If
End Sub。

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

选择日期Ex c e l日历控件将日期插入到指定单元格选择日期Excel日历控件将日期插入到指定单元格在Excel中如何实现选择日历控件，就将日期插入到指定的单元格?请跟随如下操作;在EXCEL窗口中执行“视图工具栏控件工具箱”；弹出如下图对话框;ci塞s150个控件WeTiTrijLLndei- ser llelp erWebThukder DapPlayer 1W etV i e wF D! d er_I c on1WIA Vi de(\Pre^i ew CI SES Wi U^oj Pl AyerXD o^nl osddf 1 inager 匚lase UDRHXWF Class ixrn迂移按上图的操作，找到日历控件11.0”，之后在EXCEL窗口中使用鼠标左键一拖，拖出如下图的控件;个日期之后，日期自动插入到单元格；除C列之外，点击其他列的单元格，不会弹出日历选择控件；要想实现这样的效果，得使用VBA来实现；选择日历控件，鼠标左键双击，进入代码编辑模式；如下图！上图中，第一个过程代码就是日历控件所需要的代码，另外，还得需要另外一个代码，在图中按红线圈住部分选择，找到对应的过程，输入如下的VBA代码即可！完成之后，直接运行VBA代码，返回EXCEL操作窗口，即可实现效果了！如上图，C3单元格已插入了日期，当你选择C列其他单元格时，就弹出日历控件，以供选择，选择完成，即可插入日期了!为方便操作，提供源代码:Private Sub Cale ndar1 Click()ActiveCell = Cale ndar1.ValueMe.Cale ndar1.Visible = FalseEnd SubPrivate Sub Worksheet_Selectio nCha nge(ByVal Target As Ra nge)If Target.Colu mn = 1 The nMe.Cale ndar1.Visible = TrueElseMe.Cale ndar1.Visible = FalseEnd IfEnd SubB新建文本文档.txt。

Excel中插入日期控件

Excel中插入日期控件2009-07-03 17:12在Excel中有很多地方要用到日期自己写实在太麻烦而且每个人写的日期格式还有可能不同还是弄个日期控件选吧！如图:1.【可以跳过】如果你要设置日期的格式化可以选中所要插入日期控件的列右键选择【设置单元格格式】---在数字这一栏选项卡中的分类选择【日期】--自己选择一种日期样式2.选中要插入日期控件列的单位格【插入】---【对象】---在对象类型中选择【日历控件11.0】，进行插入3.出现如图日历控件，拖放到合适位置（要先进入设计模式才能对控件进行拖放，点击那个有尺子的图标进入设计模式）4.退出设计模式，双击日历控件，进入代码编写，输入以下代码-------------------------------------------------------------------------------------Private Sub Calendar1_Click()ActiveCell = Calendar1.ValueMe.Calendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)'此处的6和7为你要显示日历的列序号If Target.Column = 6 Or Target.Column = 7 ThenMe.Calendar1.Left = Target.LeftMe.Calendar1.Top = Target.TopIf Target.Value <> "" ThenMe.Calendar1.Value = Target.ValueElseMe.Calendar1.Value = Now()End IfMe.Calendar1.Visible = TrueElseMe.Calendar1.Visible = FalseEnd IfEnd Sub-------------------------------------------------------------------------------------5.回到表格中选择【工具】---【宏】---【安全性】改为中5.保存后就Ok了。

excel中实现日期选择输入(日历控件)

excel中实现日期选择输入（日历控件）推荐第一种方法：首先这个控件需要一个名为MSCOMCT2.OCX的控件文件,这个文件大家先在电脑里搜索一下,如果没有的话就求助baidu 喽.下载下来后把它复制到c:\windows\system32里.最后就在开始->运行里注册MSCOMCT2.OCX控件.那么如何注册呢,方法很简单输入regsvr32 MSCOMCT2.OCX就ok拉这时打开excel控件工具箱点击其它控件找到Microsoft Date and Time Picker Control 6.0,这个东东就是我们要的日期控件拉第二种方法：MSCAL.OCXPrivate Sub Calendar1_Click()ActiveCell = Calendar1.ValueMe.Calendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)'此处的6和7为你要显示日历的列序号If Target.Column = 6 Or Target.Column = 7 ThenMe.Calendar1.Left = Target.LeftMe.Calendar1.Top = Target.TopIf Target.Value <> "" ThenMe.Calendar1.Value = Target.ValueElseMe.Calendar1.Value = Now()End IfMe.Calendar1.Visible = TrueElseMe.Calendar1.Visible = FalseEnd IfEnd SubPrivate Sub Calendar1_Click()ActiveCell = Calendar1.ValueMe.Calendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)'此处的1为你要显示日历的列序号If Selection.Rows.Count = 1 And Selection.Columns.Count = 1 AndTarget.Column = 1 ThenMe.Calendar1.Left = Target.LeftMe.Calendar1.Top = Target.TopIf Target.Value <> "" ThenMe.Calendar1.Value = Target.ValueElseMe.Calendar1.Value = Now()End IfMe.Calendar1.Visible = TrueElseMe.Calendar1.Visible = FalseEnd IfEnd SubMscomct2.zipMSCAL.rar在EXCEL中实现点击日历输入日期技巧2010-07-07 10:37:58 阅读435 评论0 字号：大中小订阅1、在某一单元格中插入日历控件（1）选中要插入日历控件的单元格，设置单元格格式为日期型；（2）点击工具栏，“插入—对象—日历控件”，（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。

在Excel目标列插入日期控件的方法

在Excel目标列插入日期控件的方法在EXCEL中，如果想在目标列插入日期控件，当单击目标列的某一单元格时，自动出现如图一所示的日历，由用户选择需要输入的日期,怎样做才能实现呢？下面我们以在工作表的第三列（C列）为插入日期的目标列为例，讲解具体步骤。

图一第一步在Excel中单击“视图”--“工具栏”--“控件工具箱”--“其它控件”，选择“Microsoft Date and Time Picker Control Version 6.0”控件，即DTP控件。

第二步在Excel中插入（画出）这个DIP控件。

第三步单击“工具”--“宏”--“Visual Basic编辑器”，在代码区分别在以下四个事件中输入相应的代码。

如图二所示。

图二以下是四个事件的相应代码。

Private Sub DTPicker1_CloseUp()'禁用事件，在将DTP控件的值更新到单元格时，防止Worksheet_Change被误激活Application.EnableEvents = FalseActiveCell.Value = Me.DTPicker1.ValueMe.DTPicker1.Visible = False'启用事件Application.EnableEvents = TrueEnd SubPrivate Sub Worksheet_Change(ByVal Target As Range)'判断是否只选中了单个单元格If Target.Count = 1 Then'如果删除第三列的单元格内容，则隐藏DTP控件If Target.Column = 3 And Target = "" ThenMe.DTPicker1.Visible = FalseEnd IfEnd IfEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Count = 1 ThenApplication.EnableEvents = FalseIf Target.Column = 3 ThenWith Me.DTPicker1.Visible = True'调整DTP控件的位置，使其显示在当前单元格之中.Top = Target.Top.Left = Target.LeftIf Target <> "" Then'如果当前单元格已有内容，则设置DTP控件初始值为当前单元格日期，否则为系统当前日期.Value = Target.ValueElse.Value = DateEnd IfEnd WithElseMe.DTPicker1.Visible = FalseEnd IfApplication.EnableEvents = TrueEnd IfEnd SubPrivate Sub Workbook_Open()'调整DIP控件的大小With Sheet1.DTPicker1.Height = Sheet1.Cells(1, 3).Height.Width = Sheet1.Cells(1, 3).Width + 18.Visible = TrueEnd WithEnd Sub第四步存盘，退出，再次打开刚保存的这个文件，点击C列的单元格试一试，看看怎么样，很酷吧。

excel表格插入日历控件

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.ValueMe.Calendar2.Visible = FalseEnd SubPrivate 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.WidthCalendar2.Top = Target.Top + Target.HeightCalendar2.Value = DateCalendar2.Visible = TrueElseCalendar2.Visible = False '单击其他列时隐藏日历控件End IfEnd Sub********************************6.点击“保存”，选择“Excel启用宏”的格式文件进行保存。

Excel中日期选择器的操作方法

Excel中日期选择器的操作方法在开发工具栏选择插入-其他控件，打开其他控件选择框。

在选择框中选择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除了这个日历控件外还有一个另一个比较简单的日历选择器Microsoftdateandtimepickercontrol(SP6)。

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

如下：。

Excel中2010版进行添加日历控件的操作方法

Excel中2010版进行添加日历控件的操作方法推荐文章
•Excel中带数据标识簇状柱形图的操作方法热度：
•Excel中进行表格内文字换行的操作方法热度：
•Excel中进行设置水平误差线的操作方法热度：
•Excel2010替换回车/换行符的操作方法热度：
•Excel中2010版进行双面打印的操作方法热度：
Excel中2010版进行添加日历控件的操作方法
当我们在做Excel开发的时候，有时候会碰到需要在表格中添加一个“日历”控件的情况，今天，店铺就教大家在Excel中2010版进行添加日历控件的操作方法。

Excel中2010版进行添加日历控件的操作步骤：
1、首先，打开Excel 2007软件，然后在表格的最左上角有一个office按钮，然后鼠标右键点击，如图。

然后在弹出的对话框选择”自定义快速访问工具栏。

2、接着在弹出的”EXCEL选项“对话框最左侧选择”自定义“，然后将常用命令改为下拉菜单中的”不在功能区中的命令“，然后在此命令下找到”其他控件“，之后选择”添加。

3、此时，返回主界面，我们可以看到在最上面多了一个其他控件的小图标，之后我们点击它。

4、之后，会弹出一个”其他控件”的对话框，我们拉到最后面，可以看到有日历控件，选择然后点击确定。

5、然后，我们用鼠标左键单击工作表任何一个地方，都会弹出日历表格，我们还能根据实际需要调整日历的大小。

Excel中2010版进行添加日历控件的操作。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

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操作窗口，即可实现。

另1:日历控件的使用方法1、打开excel文件，以对sheet1的操作为例：点中要插入日期的单元格，工具栏→插入→对象→选日期空间11.0 →确定。

2、工具栏→工具→宏→Visual Basic 编辑器在‘通用’加入如下代码: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列为日期输入列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保存。

3、设计好后，还可以对日期列进行“设置单元格格式”4、不足之处a、要实用该宏，首先要在EXCEL→工具→宏→安全性→选中（在打开文件的时候允许宏）或低，才可以使用该日期控件；b、在使用宏控件的时候，excel中鼠标右键的粘贴功能将失效，需要借助EXCEL→编辑→office剪贴板的功能才能完成单元格复制粘贴的功能；c、也可以在打开文件的时候禁用宏，这样就可以正常使用粘贴功能了。

另2:在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，再打开，就能运行了！这个很简单啊，因为你这台电脑没有安装日历控件。

下一个或者拷贝一个注册就行了1. 下载或者拷贝日历控件12.0，或者日历控件11.0等等下载地址：MSCAL.rar (50.41 KB)从别的电脑拷贝：路径如下C:\Program Files\Microsoft Office\OFFICE11\MSCAL.OCX或者C:\Program Files\Microsoft Office\OFFICE12\MSCAL.OCX2. 拷贝该控件到没有安装的电脑C:\WINDOWS\system32目录下3.在开始菜单“运行”中输入regsvr32 mscal.ocx 回车即可注册成功这在命令行界面下输入同样的语句效果是一样的。