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.Value
Me.Calendar2.Visible = False
End Sub
Private 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.Width
Calendar2.Top = Target.Top + Target.Height
Calendar2.Value = Date
Calendar2.Visible = True
Else
Calendar2.Visible = False '单击其他列时隐藏日历控件
End If
End Sub
********************************
6.点击“保存”,选择“Excel启用宏”的格式文件进行保存。
7.打开EXCEL文件,运行原来的宏,有可能出现“宏”被禁止运行的提示,解决的方法如下:在EXCEL
操作中执行“工具”→“宏”→“安全性”中修改宏打开的安全级别。
2020.1 日一二三四五六 1234 元旦腊八节初九初十567891011 十一小寒十三十四十五十六十七12131415161718 十八十九二十廿一廿二廿三廿四19202122232425 廿五大寒廿七廿八廿九除夕春节262728293031 初二初三初四初五初六初七
2020.2 日一二三四五六 1 初八2345678 初九初十立春十二十三十四元宵9101112131415 十六十七十八十九二十情人节廿二16171819202122 廿三廿四廿五雨水廿七廿八廿九23242526272829 二月初二初三初四初五初六初七
2020.3 日一二三四五六1234567 初八初九初十十一惊蛰十三十四891011121314 妇女节十六十七十八植树节二十廿一15161718192021 廿二廿三廿四廿五廿六春分廿八22232425262728 廿九三十三月初二初三初四初五293031 初六初七初八
2020.4 日一二三四五六 1234 愚人节初十十一清明567891011 十三十四十五十六十七十八十九12131415161718 复活节廿一廿二廿三廿四廿五廿六19202122232425 谷雨廿八廿九三十四月初二初三2627282930 初四初五初六初七初八
2020.5 日一二三四五六 12 劳动节初十3456789 十一青年节立夏十四十五十六十七10111213141516 母亲节十九二十廿一廿二廿三廿四17181920212223 廿五廿六廿七小满廿九三十闰四月24252627282930 初二初三初四初五初六初七初八 31 初九