Office 2007 是微软 Office 产品史上最具创新与革命性的一个版本。全新设计的用户界面、稳定安全的文件格式、无缝高效的沟通协作。

Excel 是 Office 套件中的一个重要组件之一。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使 Excel 成为最流行的微机数据处理软件。

日历分为阴历和阳历。阳历的历年为一个回归年，现时国际通用的公历（格里高历）即为太阳历的一种，亦简称为阳历；阴历亦称月亮历，或称太阴历，其历月是一个朔望月，历年为 12 个朔望月，其大月 30 天，小月 29 天；中国的农历就是阴阳历的一种。

如何在 Excel 实现万年历是对 Office 能力的综合运用，又是分析问题并进行求解的一系列过程。

2. 分析

2.1 整体构思

在进行整体构思之前，不妨我们先看看多数日历是怎样的情形，其中：

1、上面居中为当前年份。

2、然后为当年的 12 个月份，至于每行为 3 个月还是 4 个月取决于可见界面的大小和美观。

3、总所周知，一周则为 7 天，每个月最大 31 天，最小 28 天；如果 1 号为周六或周日的话，则该月可能要跨越 6 周；因此每个月最大的跨越为六周，事实上我们找一下其它日历的模板，就会发现一般都是六周。所以我们可以把每个月视为一个 7*6 的单元格集合。

2.2 算法问题

当我们确定了每个月事实上为 7*6 的单元格集合后，我们接下来要做以下几件事情：

1、如何定位和填充相应的每月的 7*6 单元格

在单纯的 Excel 表中，我们很难采用逻辑判断和循环的方式获取在 7*6 单元格集合中的第一个星期一应该是哪一天；但我们知道这个 7*6 单元格所在月的第一天即 1 号却是固定的，同样当日期固定后，该日期所在的星期几也是固定的，假设 2010-01-01 为星期五，那星期一是几号呢？很显然，为 2010 年 1 月 1 号向前推 4 天即 2009 年 12 月 28 号，星期二则为 1 月 1 号向前推 3 天，以此类推，可以推到整个 42 个单元格中，只不过超过当月第一天的日期则向后推了。

如果我们换个思路可能更好些，在第一个 7*6 单元格集合中的首个星期一为 2010 年 1 月 1 号向前推 5 天即星期五，然后加 1 天，这也是理所当然的求法，那么星期二则为 1 月 1 号向前推 5 天，然后加 2 天，以此类推，推倒第 42 个单元格中则为 1 月 1 号向前推 5 天，然后加 42 天了，从 1 到 42 则为一个整数的序列；这样就变成 Excel 更擅长的计算方式了。

2、如何屏蔽非当月的日期

大家也许会注意到在这个 7*6 的单元格集合中，一定会混入不属于这个月的日期，怎么把这些不属于本月的日期去除呢？如果我们用函数来实现的话，也不是不可能，只不过过于复杂。

幸好 Excel 提供了条件格式，条件格式的目的就是为符合或不符合相应条件的单元格提供该单元格的格式化需求，如果我们将小于当月第一天，或者大于等于下个月第一天值的单元格字符设置为白色字体，同时将这些单元格的背景色也置为白色，岂不是看不到了嘛。

3、农历问题

农历问题是属于典型的算法问题，我还从未见到在单纯的 Excel 表格中使用函数和表达式就能实现农历算法的。很幸运的是， Office 提供了强大的编程语言 VBA ，再加上强大的互联网搜索引擎，我们很容易就能找到并实现农历的功能。

关于如何对不在当月的农历日期进行屏蔽，详情见步骤。

2.3 显示和实际数据存储的关系

如果仅看以上最终版本，我们很可能认为“ 2010 年日历”为字符串，“ 1 月份”也为字符串，而月份中的日期为数字，实际上除了“一、二、三、四、五、六、日”为字符串外，年份、月份均为数字类型，而日期则为日期类型；在 Excel 表中数据的展现方式与存储可以表现迥异，当然展现方式也不能完全孤立于其存储数据的类型和内容。

只有理解了以上困惑和难点，我们才知道如何下手开始工作。

3. 步骤

3.1 填充7*6日期单元格

为了简化问题，便于说明问题，让我们首先从完成第一个月开始

假设当前为 2010 年的 1 月份。

那么 2010 年 1 月份首日则为 2010-01-01 。我们把 B5 设置为 2010-01-01 ，同时将其设置单元格格式为 m" 月 "" 份 " 。

同时 2010-01-01 所在的星期 =weekday(B5,2) ，则为 5 即星期五

既然 2010-01-01 是星期五，那本 7*6 单元格集合的第一个星期一应该是几号呢？

显然为 =B5-4 ，也即 =B5-WEEKDAY(B5,2)+1 ，然后依次加 2 得到周二的日期，加 3 得到周三的日期，加 8 得到下周一的日期；既然从 1 到 42 是个数字序列，为了快捷的缘由，我们直接构造了一个从 1~42 的数字序列，因此用我们把 B5-J6+1 替换为 B5-J6+K6 ；然后把拷贝公式到之后的行列中，但这样问题又来了，拷贝公式是相对引用的，我们想变的是 K6 即数字序列而不是 B5 和 J6 ，因此我们要把 B5 、 J6 改为绝对引用，即 $B$5,$J$6 ， =$B$5-$J$6+K6