Win7系统下Excel2010版本插入Calendar Control 11.0的方法Win7系统下Excel2010版本插入Calendar Control 11.0的方法.docVIP

Win7系统下Excel2010版本插入Calendar Control 11.0的方法 选择excel的“文件”选项，然后选中“选项”： 再选择“自定义功能区”，查看自定义功能区（B）下设框的“主选项卡”，找到“开发工具”勾选后按“确定”，关闭EXCEL。 下载“Mscal.OCX”控件，网上有很多，给个下载链接：/fhtml,下载后把文件“Mscal.OCX”放在系统盘下设文件夹中：C:\windows\syswow64； 在C:\windows\sys\cmd.exe上点右键，使用“以管理员身份运行”，打开CMDregsvr32.exe Mscal.ocx”，按回车，系统会提示已成功注册。 打开EXCEL，选择“开发工具”选项卡，选择“插入”，选择“其他控件”，弹出其他控件的对话框，选择“Calendar Control 11.0”，按“确定”。如果没有找到“Calendar Control 11.0”，就选择“注册自定义控件”，查找到“Mscal.ocx”文件注册一下即可。 ’ 点“确定”后，会出现画形状图时出现的“＋”，鼠标左键点击打开的工作表的任意位置，会出现如下图所示的日历： 此图显示该日历控件的名称为“Calendar1”。 按下Alt+F11，打开VBA的程序编辑界面，如下图： 在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列为日期输入列G对应7，不是实际的显示列对应的数字? ?? ???Calendar1.Left = Target.Left + Target.Width 设置日历控件弹出后的位置? ?? ???Calendar1.Top = Target.Top + Target.Height 同上? ?? ???Calendar1.Value = Date 设置默认日期为系统日期? ?? ???Calendar1.Visible = True 使日历控件可见? ? ElseIf Target.Column = Then? ?E列为日期输入列? ?? ???Calendar1.Left = Target.Left + Target.Width? ?? ???Calendar1.Top = Target.Top + Target.Height? ?? ???Calendar1.Value = Date? ?? ???Calendar1.Visible = True? ? ElseIf Target.Column = Then? ?F列为日期输入列? ?? ???Calendar1.Left = Target.Left + Target.Width? ?? ???Calendar1.Top = Target.Top + Target.Height? ?? ???Calendar1.Value = Date? ?? ???Calendar1.Visible = True? ? Else? ?? ???Calendar1.Visible = False 单击其他列时隐藏日历控件? ? End IfEnd Sub 点击“保存”，将出现如下界面： 选择否，出现如下界面： 在保存类型一栏，选择如图所示的“Excel启用宏的工作簿”，点击保存。 （注意：Target.Column = 4里的是指D列就是固定的4列，G列是7列，而不是sheet里D，G列真实对应的第几列）：  关闭ECXEL，重新打开后，点中插入时间框的下拉箭头，即可看到如下效果： 程序中Target.Column的值表示的是对应的列数，如本例的2,3，4分别代表B,C,D列，故选中这三列里的单元格，在选中的单元格的右下方就会出现日历控件，点击日历控件的日期，日期值就会显示在所选的单元格中了。单击这三列之外的单元格，日历控件就会隐藏。