1、Excel2007 中如何实现选择日历控件很多表格中要用到通过日历选择日期将日期插入到指定的单元格，那么如何实现这个功能呢？下面的操作将实现这个功能：第一步：打开开发工具 在 EXCEL2007 窗口中单击 “EXCEL 选项”“常用”勾选“在功能区显示开发工具选项卡（D）”，按如下步骤操作：单击选中要添加日历控件的单元格开发工具插入Activex日历控件12.0确定；第二步：按上图的操作，找到“日历控件 12.0”，点击确定后，光标变成“十”字形，之后在 EXCEL2007 窗口中使用鼠标左键一拖，拖出如下图的控件；上图，我们要实现的结果是：在 B 列和 C 列中，无论点击哪个单元格，都弹出
2、日历控件，并能随着所选单元格的位置变动日历控件的位置，选择一个日期之后，日期自动插入到单元格；除 B、C 列之外，点击其他列的单元格，不会弹出日历选择控件；要想实现这样的效果，得使用 VBA 来实现；第三步：选择日历控件，鼠标左键双击，进入代码编辑模式；输入代码，如下图！上图中，第一个过程代码就是日历控件所需要的代码，另外，还得需要另外一个代码，来控制日历的显示，在图中按红线框住部分选择，找到对应的过程，输入如下的 VBA 代码即可！第四步：完成之后，直接运行 VBA 代码（按 F5 或者单击菜单栏运行，运行子过程/用户窗体随意输入宏名称点击创建，确定按下 F5 或者单击菜单栏运行，运行子过程
3、/用户窗体即可），返回 EXCEL 操作窗口，即可实现效果了！如上图，当选中 B 列或 C 列中的一个单元格，将弹出日历控件，以供选择，选择完成，即可插入日期！下面提供两种 VBA 源代码：1、日历控件代码（只能用于单列、日历位置固定）Private Sub Calendar1_Click()ActiveCell = Calendar1.ValueMe.Calendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 1 ThenMe.Ca
4、lendar1.Visible = TrueElseMe.Calendar1.Visible = FalseEnd IfEnd Sub2、日历控件代码（可用于两列、日历位置随单元格移动）Private Sub Calendar1_Click()ActiveCell.Value = Calendar1.ValueCalendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 2 Or Target.Column = 3 ThenMe.Cal
5、endar1.Left = ActiveCell.Left + ActiveCell.ColumnWidth + 65Me.Calendar1.Top = Target.TopIf Target.Value “ ThenMe.Calendar1.Value = Target.ValueElseMe.Calendar1.Value = Now()End IfMe.Calendar1.Visible = TrueElseMe.Calendar1.Visible = FalseEnd IfEnd Sub第五步：其他相关设置：1、执行上述代码时，可能会遇到创建宏的提示，随便输入宏名，如日历，创建，确定
6、，再运行即可！2、可以将上述的代码及 EXCEL2007 文件一起保存，以备不时之需，以后你再需要到这种功能，直接打开 EXCEL2007 文件即可！3、打开 EXCEL2007 文件，运行原来的宏，有可能出现“宏”被禁止运行的提示，解决的方法如下：在 EXCEL2007 操作中执行“开始”左上角图标“EXCEL 选项”“信任中心”信任中心设置宏设置；选择“启用所有宏”选项卡即可！之后关闭 EXCEL，再打开，就能运行了！ 4、日历模板样式设置：开发工具设计模式右击日历模板，即可对日历模板进行格式设置5、宏加密，保护表格中的宏：在 VBA 编辑里面，工具VBAProject 属性保护，加上密码就不能编辑，删除等。
