1、首先打开Excel（本次经验使用的是Excel 2010），然后先后点击左上角【文件】，点击【选项】，点击【埠们萁猕自定义功能区】，勾选右侧【开发工具】，点击【自定义功能区】下方的【信任中心】，点击【信任中心设置】，点击【宏设置】，勾选启用宏（建议勾选的是禁用所有无数字签署的宏，小编启用的是所有宏），勾选后确定。
3、按【Alt+F11】龅歧仲半打开编辑器，插入模块，在模块内输入以下代码并保存：Sub GenerateCalendar() Y = Input蚱澄堆别Box("请输入一个您想要查看的年份:") 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 NextEnd Sub
4、返回Excel，点击【开发工具】，插入按钮，右键指定宏。
5、点击按钮，输入想查看的年份，点击确定即可查看。
