万年历(Deluxe)

syjjy

哇,太棒了!!!

谢谢楼主提供分享!!!

youyou1860

QUOTE:

以下是引用Rowen在2005-2-7 15:10:00的发言：

该学习版现在是对会员赠送的，不少会员来邮件索取，一一回复也浪费大家的时间，现帖上来供各位自行下载。

早期作品，制作前提是不用VBA实现，各位可按需增删修改。

好东东,己收藏下载

lixinguo

好,更好.

我的天空

看看，都说好。

asat

谢谢楼主分享~

三青

很好,太棒了，谢谢楼主，我好好学习.

fast2008

 很高兴能在Excel Home下载到您的万年历Excel文件，虽然我学excel很浅，但也受益不少，以前我以为只有通过编程才能实现，没有想到可以直接使用公式就能做出来这么漂亮的万年历。

    在使用的过程中，我发现母亲节与父亲节出错了。母亲节是5月的第二个星期天，父亲节是6月的第三个星期天，但遇到了1号是星期一的月份，问题就出来了。比如说2009年6月，本来是21日为第三个星期天，但日历显示为14日为第三个星期天。

    我查了一下，在名称的定义中，先选中单元格C14,

母亲节=IF(AND(待查年份>=1914,月份=5,INT(DAY(万年历!$C13)/7)+1=2),"母亲节","")
父亲节=IF(AND(待查年份>=1912,月份=6,INT(DAY(万年历!$C13)/7)+1=3),"父亲节","")

    这样的算法中，如果遇到了当月1日是星期一，就会出错了，如果把公式里的$C13改为$O11, 即是提前一天，问题就解决了。

母亲节=IF(AND(待查年份>=1914,月份=5,INT(DAY(万年历!$O11)/7)+1=2),"母亲节","")
父亲节=IF(AND(待查年份>=1912,月份=6,INT(DAY(万年历!$O11)/7)+1=3),"父亲节","")

Rowen

谢谢 fast2008 发现这个BUG! 可以照此修改(在名称>>定义 中修改母亲节及父亲节的公式).

再次感谢!

hfjr

太棒了，做得真好啊，羡慕ing ,希望有朝一日我也能做出一个

wulx

excel 真是功能强大,我要好好学习!