设置日历组件，excel如何设置下拉菜单中的日历

瑞安网站制作公司哪家好，找创新互联建站！从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设等网站项目制作，到程序开发，运营维护。创新互联建站2013年开创至今到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联建站。

本文目录一览

• 1，excel 如何设置下拉菜单中的日历
• 2，office2013怎么设置日历控件请问有高手吗我想用在excel上
• 3，如何在excel表格插入日历控件
• 4，excel 日历控件
• 5，请问如何在EXCEL添加日历控件我做了个是死的不能选择 问

1，excel 如何设置下拉菜单中的日历

单击B1单元格,点"数据"->"有效性"->"设置",在"允许"下面选择"序列",在"来源"框中输入: =$A$1:$A$9 点"确定"。

有两个控件可选择：日历控件11mscomct2.ocx第一个可用于表格第二个可用于窗体

2，office2013怎么设置日历控件请问有高手吗我想用在excel上

使用电子表格时，经常要输入日期数据，在EXCEL2003版中有一个“日历控件11.0”，用它可以方便的在表格中输入日期。如果你的电脑中找不到此控件，可从其他电脑上的 c:\windwos\system32\mscal.ocx 位置拷贝mscal.ocx到你电脑上的相同位置粘贴。也可以从网上下载这个mscal.ocx文件。如果电脑中存在mscal.ocx文件，而不能正常使用日历控件，就需要在系统的【开始】－【运行】中输入 regsvr32 mscal.OCX 进行注册

找到了也该采用呀

找到了也该采用呀

自己上网查再看看别人怎么说的。

3，如何在excel表格插入日历控件

第一种方法:\控件工具箱\其他控件,选择"microsoft date and time picker control", 或者"canlendar control"，（不同版本的excel带的控件名称不一样）。在工作表中按下左键拖动可以添加控件。要结果反映到单元格，右击图标后在属性里把linkedcell改成单元格路径就行了。第二种方法:插入\对象\calendar control 10.0,设置linkedcell属性.

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

4，excel 日历控件

将 ActiveCell = Format(Calendar1.value, "yyyy-mm-dd")替换为 ActiveCell = Calendar1.Value将 If Target.Column = 1 Then Me.Calendar1.Visible = True Else Me.Calendar1.Visible = False End If替换为 Application.ScreenUpdating = False If Target.Row = 1 Then； 在制定行显示 Selection.NumberFormatLocal = "yyyy-mm-dd" Me.Calendar1.Visible = True Else Me.Calendar1.Visible = False End If只在第一行可用；这样应该可以了

把if selection.rows.count = 1 and selection.columns.count = 1 and target.column = 1 then改成if selection.rows.count = 1 and selection.columns.count = 1 and target.column = 1 and target.row <> 1 then就可以了，即加了一个判断target.row <> 1，行数不为1。

5，请问如何在EXCEL添加日历控件我做了个是死的不能选择 问

选择日历控件将日期插入到指定的列： 在EXCEL窗口中执行“视图”→“工具栏”→“控件工具箱”→最后一个“其他控件”→“日历控件11.0” →确定→鼠标变为细十字后，在EXCEL窗口中选定的单元格的右下角，使用鼠标左键拖出如日历图→双击图片→进入代码编辑模式→选择Worksheet和SelectionChange模式下输入代码（可复制粘贴）：Private Sub Calendar1_Click()ActiveCell = Calendar1.ValueMe.Calendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 8 ThenMe.Calendar1.Visible = Truecalendar1.top=target.top ElseMe.Calendar1.Visible = FalseEnd IfEnd Sub最重要的是第6行（If Target.Column = 8 Then）中的8表示的是第几列，按你实际需要的列数修改即可。返回EXCEL操作窗口，即可实现效果了！

方法/步骤第一步需要您确认您的excel菜单中有没有开发工具这一选项，若没有我们需要手动添加一下介绍一下怎么添加开发工具菜单项：点击文件，打开文件菜单下找到选项菜单点击打开，如下图所示勾选开发工具选项即可开发工具添加成功后将设计模式打开，如下图设计模式会一直呈现为橙色，说明此时是在设计模式状态下单击插入，选择下图中红框中的其他选项，用来添加非常规的控件在弹出的其他控件中选择下图所示的microsoft date and timer picker control，这个就是我们需要的日历控件点击确定后光标会变成一个十字形光标，在您要添加日历的地方单击鼠标拖动光标，绘制出您要的日历控件，如图所示绘制成功后您可以先保存下，但此时控件还没有功能，你需要关闭设计模式方可使用，如下图在开发工具中关闭设计模式，如下图所示，此时设计模式按钮不再为橙色，您的控件也就可以使用了