月历记事本-万年历 7种配色漂亮的日历本+提醒事件

Cellfarmer · 发表于 2015-2-3 13:09

lovefish250 发表于 2015-2-3 11:10
谢谢分享，我只是想看一下我能回复么

欢迎新人,论坛高人云集,能学的东西老多了.

Cellfarmer · 发表于 2015-2-9 20:05

增加数九功能,在节气的上方显示.从上年冬至始自三九数至九九,再从本年冬至数到年底.
用数组公式计算出复活节.

Cellfarmer · 发表于 2015-2-13 09:26

如果在日历中选择了7月31日,然后在月历或周历中选择了2月,则日历表控件显示的是31,而日期则变为3月3日. 通过增加公式并在表单中替换为DTpicker控件,已经解决这个问题.
复活节已能正确计算.除夕原为定义为农历节日100不能起作用,通过修改公式已解决.

yanyan3252 · 发表于 2015-2-13 10:11

下载要报告！真心好看呀

Cellfarmer · 发表于 2015-2-13 21:36

Rowen版主的万年历除夕定义为100农历节日不能起作用,
Data表计算"除夕"独立的数组公式是:
="12"&SUM(OFFSET(AM:AM,MATCH(INDEX($AM$2:$AM$1873,MATCH(A2&"正月",YEAR($AM$2:$AM$1873)&($AN$2:$AN$1873),))-1,$AM$2:$AM$1873,1),,2,)*{-1;1})
这样除夕会以农历节日显示在月历表中.

Cellfarmer · 发表于 2015-2-13 22:01

复活节问题:
每年春分后月圆(十五)之后的周日.春分一般在每年的3月20日,21日左右,但其农历日期是不好确定的,可能在十五之前,这样复活节可能就在3月份了.也可能在十五之后,这样必须过了下个月的十五,再等个星期天.这样复活节就在4月份了.
在Data表中,春分日期是已知的,当然也可以根据年度独立计算.通过春分日期对AM列农历日期表的查询,找到下一个十五,再求下个周日,则复活节就得出了.
附件中的计算待大家考证.

复活节问题.rar (56.92 KB, 下载次数: 67)

水里游 · 发表于 2015-2-13 22:50

我用的是2003版本，不能打开！难道我要升级版本？？？？

Cellfarmer · 发表于 2015-2-14 06:02

水里游发表于 2015-2-13 22:50
我用的是2003版本，不能打开！难道我要升级版本？？？？

建议安装Office文件格式兼容包,这样在Office2003中就可以打开2007以上的版本的文件了.
参考下载地址:http://www.microsoft.com/zh-CN/download/details.aspx?id=3

Cellfarmer · 发表于 2015-2-14 08:57

由于Excel2003对于条件格式的设置都是Stop if true,即针对一个单元格只能有一个条件格式适用,不能交叉重叠,所以月历表的显示效果就不好了,请使用2007及以上版本.

Cellfarmer · 发表于 2015-2-14 16:58

本帖最后由 Cellfarmer 于 2015-2-15 13:55 编辑

For Excel 97-2003版本:
为方便在Excel2003中使用,请下载此附加.如果运行有问题,请按说明把mscomct2.ocx文件拷贝到System32下,并按说明注册.附件已包括该Ocx控件.

For Excel2003.rar (748.48 KB, 下载次数: 583)

2003版本主要在月历表的条件格式上有区别,由于版本的限制,表格框线是不能动态隐藏的.在某些机器上可能DTpicker控件会有问题.拷贝注册后一般都能解决.mscomct2.ocx是微软的控件Microsoft Windows Common Controls-2 6.0 SP3,在本软件VBA中要引用它,DTpicker是其中的日期控件,在输入日期时弹出日期选择对话框.

		自动登录	找回密码
密码			免费注册

[分享] 月历记事本-万年历 7种配色漂亮的日历本+提醒事件