首先打开Excel（本次经验使用的是Excel 2010），然后先后点击左上角【文件】，点击【选项】，点击【自定义功能区】，勾选右侧【开发工具】，点击【自定义功能区】下方的【信任中心】，点击【信任中心设置】，点击【宏设置】，勾选启用宏（建议勾选的是禁用所有无数字签署的宏，小编启用的是所有宏），勾选后确定。

在Excel中输入以下内容，大家可以适当修改下字体格式和填充色这些哦

按【Alt+F11】打开编辑器，插入模块，在模块内输入以下代码并保存：

Sub GenerateCalendar()

Y = InputBox(请输入一个您想要查看的年份:)

Range(1:1,4:11,14:21,24:31,34:41).ClearContents

Cells(1, 1) = Y 年历

Dim dsm As Variant

dsm = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

If ((Y Mod 400 = 0) Or (Y Mod 4 = 0 And Y Mod 100 0)) Then

dsm(1) = 29

End If

For M = 0 To 11

dt = DateSerial(Y, M + 1, 1)

fst = Weekday(dt)

RS = (M \ 3) * 10 + 4

CS = (M Mod 3) * 8

For d = 1 To dsm(M)

Cells(RS, CS + fst) = d

fst = fst + 1

If fst 7 Then

fst = 1

RS = RS + 1

End If

Next

Next

End Sub

返回Excel，点击【开发工具】，插入按钮，右键指定宏。

点击按钮，输入想查看的年份，点击确定即可查看。