Excel日历控件教程(详细)

1.Alt+F11 按下显示代码窗口后,再松开Alt+F11.

2.然后按F7 ,调出VBA 窗口。

3.粘贴以下代码.

Private Sub Calendar1_Click()

Dim MyDay As Date

ActiveCell = Calendar1.Value

Mydate = Calendar1.Value

'MsgBox Mydate

Calendar1.Visible = 0

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 1 Or Target.Column = 1 And Target.Row > 0 Then

If IsDate(Target) Then

Calendar1.Value = Target

Else

Calendar1.Today

End If

Calendar1.Visible = -1

Calendar1.Top = ActiveCell.Top + ActiveCell.Height

Calendar1.Left = ActiveCell.Left + Cells(ActiveCell.Rows.Count, 3).Left Else

Calendar1.Visible = 0

End If

End Sub

4.打开文件→保存book1(S)

5.打开视图→对象窗口

6.打开插入→对象窗口

7.找到日历控件11.0或9.0，按确定退出。

8.单击第一列（A列）中的任一单元格，选择日历中的需要的日期即可。

备注：

要改变日期输入位置，可按以下方法调整代码，找到下面的代码行（此代码行的意思是在A列（第1列）中添加日历。

If Target.Column = 1 Or Target.Column = 1 And Target.Row > 0 Then

然后根据以下的方法覆盖粘贴此行代码

1.以下这一句就是 B3:C5区域调用日期控件.

If Target.Column = 2 And Target.Row > 2 And Target.Row < 6 Or Target.Column = 3 And Target.Row > 2 And Target.Row < 6 Then

2.这句是说在第 2列和第 3列调用日期控件.

If Target.Column = 2 Or Target.Column = 3 And Target.Row > 0 Then

3.这句是说在C2:C50调用日期控件.

If Target.Column = 3 And Target.Row > 1 And Target.Row < 51 Then

2020年记事日历表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 初九