在Excel中使用日期控件方法详解(补充日历控件12.0的用法)

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。

ＥＸＣＥＬ日历控件的应用
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中进行插入日期选择器的操作技巧Excel中经常需要使用到日期选择器为用户提供选日期的便捷，插入日期选择器具体该如何操作呢?今天，店铺就教大家在Excel中进行插入日期选择器的操作技巧。

Excel中进行插入日期选择器的操作步骤在某一单元格中插入日历控件，选中要插入日历控件的单元格，设置单元格格式为日期型;点击工具栏，“插入—对象—日历控件”，用快捷方式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 SubExcel中进行插入日期选择器的操作步骤图1在开发工具栏选择插入-其他控件，打开其他控件选择框。

Excel中进行插入日期选择器的操作步骤2在选择框中选择calendar control8.0，确定。

Excel中进行插入日期选择器的操作步骤3在适当的位置绘制日历，并将高度和宽度适当调整。

这时的日历控件还比较原始，不会点击日期后自动隐藏日历并在单元格内填入日期，这时就需要添加自己的代码。

Excel中进行插入日期选择器的操作步骤4在设计模式下双击日历。

点击设计模式，当图表颜色变深后就是设计模式，打开代码编辑器。

在光标处输入下方的代码：ActiveCell = Calendar1.Value Me.Calendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 1 Or Target.Column = 2 Then'此处的1和2为你要显示日历的列序号Me.Calendar1.Left = Target.Left Me.Calendar1.T op = Target.To If Target.Value <> "" Then Me.Calendar1.Value = Target.Value Else Me.Calendar1.Value = Now( End I Me.Calendar1.Visible = TruElse Me.Calendar1.Visible = FalseEnd IfExcel中进行插入日期选择器的操作步骤5关闭代码编辑器，将EXCEL保存为启用宏的工作薄。

excel表格中插入日历控件的教程
Excel中经常需要插入日历控件给用户提供选择日期，日历控件具体该如何插入呢?下面是由店铺分享的excel表格中插入日历控件的教程，以供大家阅读和学习。

excel表格中插入日历控件的教程：
插入日历控件步骤1：单击“开发工具”选项卡下的“控件”工作组中的“插入”命令，在弹出的的对话框中单击最右下角的“更多控件”选项，如下图所示：
插入日历控件步骤2：在弹出的“其他控件”对话框中拖动右边的滚动条直至找到“Microsoft Date And Time Picker Control”，然后单击确定，如下图所示：
插入日历控件步骤3：然后单击鼠标左键不放往左右拖开即可插入一个日历控件，此时“控件”工作组处于“设计模式”，这时候的日历控件还处于设计模式，还不能使用，如下图所示：
插入日历控件步骤4：单击“设计模式”按钮，取消它的选中状态，此时日历控件可以使用了。

如下图所示：。

在Excel中使用日期控件方法详解（补充日历控件12.0的用法）在Excel中使用日期控件方法详解1. 插入日期控件①. 打开需要插入日期控件的工作薄，依次点击【视图】【工具栏】【控件工具箱】，调出控件工具栏。

②. 点击控件工具栏中的〖其他控件〗，选择(Microsoft Date and Time Picker Control，version 6.0)控件。

③. 在工作表内需要填写日期的单元格中画出日期控件图标，调整大小与单元格一致。

2. 编辑代码① 点击控件工具栏中的〖查看代码〗，进入代码编辑页面，编辑如下代码：Option ExplicitPrivate Sub DTPicker1_Change() ActiveCell.Value = DTPicker1.Value DTPicker1.Visible = False End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) WithMe.DTPicker1If Target.Column = 1 And Target.Count = 1 Then .Visible = True.Width = Target.Width + 15 .Left =Target.Left .Top = Target.Top .Height = Target.Height Else.Visible = False End If End With End Sub【提示】：上列代码中，红色的1表示该控件作用于工作表中第一列，如需调整，直接修改为相应的列数即可；如果需要将该控件作用于某一行，则把代码中Target.Column改为Target.Row即可。

② 关闭代码编辑页面返回工作表，点击控件工具栏中的〖属性〗，进入属性编辑页面，调整CheckBox属性为True。

③ 关闭属性编辑页面返回工作表，点击控件工具栏中的〖退出设计模式〗，退出控件设计模式。

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⽇期插件效果图Private Sub DTPicker1_Click()ActiveCell.Value = DTPicker1.ValueDTPicker1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 6Or Target.Column = 8Then' Me.DTPicker1.Left = ActiveCell.Left + ActiveCell.ColumnWidth + 65Me.DTPicker1.Left = ActiveCell.LeftMe.DTPicker1.Top = Target.Top + 15If Target.Value <> ""ThenMe.DTPicker1.Value = Target.ValueElseMe.DTPicker1.Value = Now()End IfMe.DTPicker1.Visible = TrueMe.DTPicker1.Width = 90ElseMe.DTPicker1.Visible = FalseEnd IfEnd SubExcel1. 如何打开excel 2010 的开发⼯具依次打开，⽂件-选项-⾃定义-⾃定义功能区-主选项卡，勾选开发⼯具。

2. 如何在excel 2010 中插⼊Microsoft Date and Time Picker Control 控件在开发⼯具栏⽬下选择插⼊，其他控件，然后选择Microsoft data and time picker control.如果找不到的话需要重新安装⽇历控件包。

下载⼀个mscomct2 控件包。

EXCEL⽇历控件，Microsoft Office mscomct2 控件包，该控件包主要⽤于增补 Microsoft Office 窗体系统部分丢失的控件脚本，不包含其它任何插件或程序，敬请放⼼安装使⽤。

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"，点击"确定"按钮；-在需要录入日期的单元格中，点击鼠标右键，选择"日期选取器"；-点击日期选取器中的日期，就会自动填充到对应的单元格中。

Excel2010中添加日历控件的操作方法
推荐文章
Excel中2010版快速插入日历的操作方法热度： Excel中进行添加单选按钮复选框和隐藏组合框的方法热度：Excel中2010版进行添加数据透视表的操作方法热度：Excel中2010版进行快速访问工具添加分隔符的操作方法热度：Excel中2010版进行添加开发工具选项卡的操作方法热度：
我们都知道，excel有直接快速插入当前日期和时间的功能，但是当我们要插入其他日期时，我们该怎么做呢?今天，店铺就教大家在Excel2010中添加日历控件的操作方法。

Excel2010中添加日历控件的操作步骤如下：
通过菜单的开发工具插入日历控件。

首先在菜单区域右击，选择右击菜单的自定义工具栏customize the ribbon...，弹出对话框，将developer添加到右边，确认退出，则菜单栏就会出现developer选项。

选择developer项，然后点击insert，选择更多控件more controls，然后在弹出的窗口选择日历控件，确定退出。

这时候你会发现，鼠标光标变成了十字图标，点击需要添加日期的单元格，则日历添加成功。

添加的日历控件好像锁定了，点击下拉箭头根本没有反应，怎么回事呢?
原因是添加进来的控件是处于设计状态，这时候只要将设计状态取消，就可以选择日期了。

Excel中的日期和时间函数使用指南在日常的工作和生活中，我们经常会遇到需要处理日期和时间的情况。

Excel作为一款强大的电子表格软件，提供了丰富的日期和时间函数，可以帮助我们快速、准确地处理各种日期和时间数据。

本文将为大家介绍一些常用的Excel日期和时间函数，并分享一些实用的技巧和注意事项。

一、日期函数1. TODAY函数TODAY函数用于返回当前日期。

例如，输入=TODAY()，则会显示当前的日期。

这个函数在需要实时获取当前日期的场景中非常有用。

2. DATE函数DATE函数用于根据给定的年、月、日返回一个日期。

例如，输入=DATE(2022,12,31)，则会返回2022年12月31日。

这个函数在需要根据特定的年、月、日生成日期的场景中非常实用。

3. YEAR、MONTH、DAY函数YEAR、MONTH、DAY函数分别用于提取给定日期的年、月、日。

例如，输入=YEAR(A1)，则会返回A1单元格中日期对应的年份。

这些函数在需要对日期进行分析和计算的场景中非常常见。

二、时间函数1. NOW函数NOW函数用于返回当前的日期和时间。

例如，输入=NOW()，则会显示当前的日期和时间。

这个函数在需要实时获取当前日期和时间的场景中非常有用。

2. HOUR、MINUTE、SECOND函数HOUR、MINUTE、SECOND函数分别用于提取给定时间的小时、分钟、秒。

例如，输入=HOUR(A1)，则会返回A1单元格中时间对应的小时数。

这些函数在需要对时间进行分析和计算的场景中非常常见。

三、日期和时间的计算在Excel中，我们可以使用日期和时间函数进行各种计算。

下面是一些常见的例子：1. 计算日期之间的天数差若要计算两个日期之间的天数差，可以使用DATEDIF函数。

例如，输入=DATEDIF(A1,B1,"d")，其中A1和B1分别为起始日期和结束日期，"d"表示计算天数差。

EXCEL中的日期和时间函数使用技巧在日常办公中，Excel不仅仅是一个数据处理工具，它还是进行日期和时间管理的重要帮手。

掌握Excel中的日期和时间函数，可以极大提升工作效率。

接下来，我们将探讨一些实用的技巧，助你在Excel中灵活运用日期与时间的功能。

日期和时间格式的理解在使用Excel进行日期和时间操作之前，了解它们的基本格式至关重要。

Excel将日期存储为自1900年1月1日起的天数，而时间则被视为一天中的小数部分。

例如，12:00PM在Excel中表示为0.5，因为它是一天的一半。

熟悉这些基础知识后，你将能更轻松地进行各种日期和时间计算。

常用日期函数的应用Excel提供了多种日期函数，最常用的包括TODAY()和NOW()。

TODAY()函数会返回当前日期，而NOW()不仅返回当前日期，同时还包括当前的时间。

这两个函数不需要任何参数，可以直接在单元格中输入。

值得注意的是，这两个函数的值会随工作表的刷新而自动更新。

如果需要计算某个日期的工作日，可以使用WORKDAY()函数。

该函数可以从指定的开始日期起，计算出在指定的工作日数之后的日期。

这在项目管理和日程安排中显得尤为重要。

创建动态日期通过结合使用Excel的日期函数，你还可以创建动态日期。

例如，如果你想要创建一个在每个月第一天自动更新的单元格，可以使用公式=DATE(YEAR(TODAY()),MONTH(TODAY()),1)。

该公式会自动输出当前月份的第一天，非常适用于月度报告。

时间的加减运算处理时间的加减运算也是Excel中的一个常见需求。

例如，如果你需要计算几个小时的工作时间，可以直接在单元格中输入时间，比如8:30。

然后，使用=A1+TIME(1,0,0)来表示在原有的基础上增加一小时。

记得将单元格格式调整为时间格式，以便清晰地呈现结果。

日期的比较在工作过程中，有时需要比较不同日期之间的差异。

使用DATEDIF()函数可以轻松实现这一点。

在EXCEL的数据录入当中，有大量的日期输入的时候，单靠手工输入，有时也比较麻烦。

有没有一个时间的选择，让日期的数据录入工作变得简单。

使用VBA可以达到这一目的，但是对于像我这样没有VBA基础的，也还是比较麻烦的。

下面介绍一个使用控件的方法达到这一个目的。

不需要VBA的知识。

下面，介绍下日期选择的两种方法。

利用数据的有效性来建立日期的选择首先建立一个日期列表，供输入数据选择的需要，如下表建立一个需要输入日期的选择列表。

完成后选择需要录入日期的单元格，点击菜单上的“数据“选项卡中的"数据工具”，点击“数据验证”+在“数据验证”中的允许选择“序列”，来源选择建立日期列表中的日期数据列表范围完成后，在日期输入的列表中就会形成一个日期选择的下拉列表。

供日期数据录入时的日期下拉菜单的选择。

利用漂亮的日期控件来输入日期下面介绍实用控件来进行日期的录入，使用Excel Date Picker插件(samradapps_datepicker.xlam),可以到网上搜索下载把下载和解压缩后得到的.xlam文件，放到下面的文件夹。

这个文件夹的位置略有不同，主要根据各自的用户文件夹而定。

:C:\Users\duanz\AppData\Roaming\Microsoft\AddIns文件拷贝后，打开Excel，选择 【 文件 ­> 选项­> 加载项 】，点击页面下方的“转到”，打开加载宏窗口加载。

这时我们进行日期数据录入的时候，可以点击后面的小图标，展开日历的相关选项进行日期的选择录入。

让日期的数据录入变得便捷。

excel的datepicker使用方法Excel是一款功能强大的电子表格软件，它不仅可以用于数据的计算和分析，还可以进行数据的可视化和展示。

在Excel中，日期选择器（Date Picker）是一种非常实用的工具，可以帮助用户快速选择日期并输入到单元格中。

本文将介绍Excel中日期选择器的使用方法。

一、在Excel中插入日期选择器要在Excel中使用日期选择器，首先需要将日期选择器插入到工作表中。

插入日期选择器的方法如下：1. 打开Excel并选择要插入日期选择器的工作表。

2. 在菜单栏中选择“开发工具”选项卡，如果没有该选项卡，需要先进行设置。

3. 在“开发工具”选项卡中，点击“插入”按钮，然后选择“日期选择器”。

4. 在工作表中选择一个合适的位置，点击鼠标左键插入日期选择器。

二、设置日期选择器的属性在插入日期选择器后，可以对其进行各种属性的设置，以满足不同的需求。

日期选择器的属性设置方法如下：1. 右键点击日期选择器，选择“属性”。

2. 在属性窗口中，可以设置日期选择器的字体、颜色、大小等外观属性。

3. 可以设置日期选择器的日期格式，包括年、月、日的显示格式。

4. 可以设置日期选择器的位置和大小，以适应工作表的布局。

三、使用日期选择器选择日期在插入日期选择器并设置好属性后，就可以使用日期选择器选择日期了。

使用日期选择器的方法如下：1. 点击日期选择器上的箭头按钮，可以选择年、月和日。

2. 点击箭头按钮后，会弹出一个下拉框，可以通过上下箭头选择需要的年、月或日。

3. 选择完日期后，点击日期选择器旁边的“确定”按钮，日期将会自动输入到相应的单元格中。

四、其他日期选择器的使用技巧除了基本的日期选择功能，日期选择器还有一些其他的使用技巧，可以提高工作效率。

这些技巧包括：1. 使用快捷键：在日期选择器中，可以使用键盘上的方向键来快速选择日期，按下回车键即可确认选择。

2. 复制粘贴日期：可以通过复制粘贴的方式将日期选择器中选择的日期快速输入到其他单元格中。

excel calendar使用方法Excel Calendar使用方法一、简介Excel是一款常用的办公软件，其中的日历功能可以帮助用户管理时间、安排日程和跟踪重要事件。

本文将详细介绍如何使用Excel日历功能。

二、创建日历1. 打开Excel软件并新建一个工作簿。

2. 在工作簿的第一个工作表中，选择你希望日历显示的日期范围，通常是一个月或一年。

3. 在第一行的第一个单元格中输入日期的起始值，例如2022年1月1日。

4. 在第一行的后续单元格中，使用公式或手动输入日期序列。

例如，可以在第一个单元格中输入"=A1+1"，然后将此公式拖动到其他单元格中以自动生成日期序列。

5. 根据需要，可以在日历中添加其他信息，例如节假日或重要事件。

三、设置格式1. 选择整个日历区域，包括日期和其他信息。

2. 在Excel的主菜单中，选择"开始"或"格式"，然后根据需要选择合适的字体、颜色和边框样式。

3. 可以使用合并单元格功能来合并日期所在的单元格，以便更好地显示日历。

四、自定义日历1. 如果需要显示特定的日期范围，可以在第一行中输入起始日期和终止日期，然后使用公式或手动输入日期序列。

2. 如果需要显示特定的星期或工作日，可以使用Excel的日期函数来筛选日期序列。

例如，可以使用"工作日"函数来排除周末日期。

3. 如果需要在日历中标记特定的事件，可以在日期下方的单元格中输入相关信息，并使用条件格式化功能来突出显示这些事件。

五、打印日历1. 在打印之前，可以调整日历的大小和布局，以适应打印纸张的大小。

可以调整行高、列宽和边距。

2. 在Excel的主菜单中，选择"文件"，然后选择"打印"。

3. 在打印设置中，可以选择打印的页码范围、打印方向和打印质量。

4. 可以预览打印效果并进行必要的调整，然后点击"打印"按钮。

竭诚为您提供优质文档/双击可除excel表格,日历篇一：在excel中插入日历控件在excel中插入日历控件1、在某一单元格中插入日历控件（1）选中要插入日历控件的单元格，设置单元格格式为日期型；（2）点击工具栏，“插入—对象—日历控件”，（3）用快捷方式alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击a1时弹出日历控件，单击日历控件后，将选中的日期值填入a1并隐藏控件。

privatesubcalendar1_click()activecell=calendar1calendar1.Visible=False[a2].selectendsubprivatesubworksheet_selectionchange(byValtargetasRa nge)iftarget.address="$a$1"thencalendar1.Visible=true endsub2、某一列全部设置为插入日历控件。

例如；在c列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除c列之外，点击其他单元格，不会弹出日历选择控件；同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择worksheet和selectionchange，输入代码：privatesubcalendar1_click()activecell=calendar1.Valueme.calendar1.Visible=Falseendsubprivatesubworksheet_selectionchange(byValtargetasRa nge)iftarget.column=1thenme.calendar1.Visible=trueelseme.calendar1.Visible=Falseendifendsub完成后，运行Vba代码，返回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保存为启用宏的工作薄。