1. excel没有日历怎么办

怎样更改日历样式： 1， 打开控制面板——BLOG信息设置——定制我的首页——添 加模块——在“日 历模块”前加上勾——保存； 2，打开控制面板——BLOG信息设置——定制我的模板——在选择模板中“点击此处更新模板”； 3，选择如“轻描淡写”模板单击它——选择此模板——在左边的"日历"上单击； 4，在出现的“日历选择”框上点击向上或向下的三角进行选择；选中后在上面单击左键，即可看到更换后的日历； 5，打开上面的菜单，选中“保存并返回”即可。

欢迎光临我的博客：。

插入--》对象--》新建--》日历控件 11.0 这样可以在Excel中插入一个日历，很方便。

如果需要获取这个日历上的点击值，可以通过简单的VBA代码实现 Alt+F11，进入VBE，双击左侧“Sheet1”，复制以下代码进去即可，如果要将日历中点击值传到其他位置，修改“Sheets("sheet1").Range("F3") ”中的“sheet1”及“F3”即可。 Option Explicit Private Sub Calendar1_Click() Sheets("sheet1").Range("F3") = Calendar1.Value End Sub 如附件所示：。

需要加载“Microsoft Date And Time Picker Control”才能找到。

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

选择日历控件将日期插入到指定的列：

在EXCEL窗口中执行“视图”→“工具栏”→“控件工具箱”→最后一个“其他控件”→“日历控件11.0” →确定→鼠标变为细十字后，在EXCEL窗口中选定的单元格的右下角，使用鼠标左键拖出如日历图→双击图片→进入代码编辑模式→选择Worksheet和SelectionChange模式下输入代码（可复制粘贴）：

Private Sub Calendar1_Click()

ActiveCell = Calendar1.Value

Me.Calendar1.Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 8 Then

Me.Calendar1.Visible = True

calendar1.top=target.top

Else

Me.Calendar1.Visible = False

End If

End Sub

最重要的是第6行（If Target.Column = 8 Then）中的8表示的是第几列，按你实际需要的列数修改即可。返回EXCEL操作窗口，即可实现效果了！

转载请注明出处办公知识网 » excel没有日历控件怎么办