ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: Cellfarmer

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

  [复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-2-20 15:20 | 显示全部楼层
感谢版主的评价!年历表加上农历要多占些屏幕面积,在19寸显示器上略有压力,看来得出个高清版了!
其实它的主要功用之一是Planner,如果不是大忙人,看月历表的频率最高。

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-2-21 13:45 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 Cellfarmer 于 2015-2-21 13:59 编辑

一个小Bug: 12:00PM,12:15PM,12:30PM指中午的时间,则12:15AM应指凌晨时间,并应显示为0:15AM.
在以文本方式存储时12:15AM 会在排序时排在08:00AM的后面.
所以在输入和修改模块中应把12:00AM等转换成0:00AM等形式.
这种极端情况并不常见,但程序中的细节处理也要考虑周全.

TA的精华主题

TA的得分主题

发表于 2015-2-22 13:52 | 显示全部楼层
楼主好厉害啊,不仅实用,关键非常漂亮

TA的精华主题

TA的得分主题

发表于 2015-2-22 14:47 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-2-23 09:40 | 显示全部楼层
本帖最后由 Cellfarmer 于 2015-2-23 09:41 编辑

28楼附件已更新.
不再区分文本和图片版本,今天的更新是通用版本(V2):
您可以把喜欢的图片直接插入到图片表的B1到Y1格内,最多24张;建议规格320*570左右.
在月历表R1输入"Play",即显示图片.
日历表的时间改为文本格式,查找更准确.即使用10位小数,Vlookup有时还是找不准.
同时发布图片资源,即是1楼图片版中带的24节气.

万年历记事簿图片资源第1组-24节气-墨迹.rar (536.66 KB, 下载次数: 419)
假期快结束了,祝朋友们工作顺利,天天开心!

TA的精华主题

TA的得分主题

发表于 2015-2-25 16:56 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
楼主,我为什么下载过来后打开总提示“发现不可读取的内容”,我的是2007版EXCEL

TA的精华主题

TA的得分主题

发表于 2015-2-25 17:01 | 显示全部楼层
下载过来提示“发现不可读取的内容”,打开“新建”,提示“无法装载这个对象,不适用于这台计算机”,这是怎么回事,期待楼主解答

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-2-25 19:50 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
sky0112050 发表于 2015-2-25 17:01
下载过来提示“发现不可读取的内容”,打开“新建”,提示“无法装载这个对象,不适用于这台计算机”,这是 ...

几楼的附件不能运行?可能是你的系统不完整,需要DTpicker控件,在20楼2003版本中有.28楼的需要Excel2007及以上版本. 你试试把Office的系统更新都装上吧.

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-2-25 20:03 | 显示全部楼层
系统Bug修正:
如果某月1日(比如8月1日)恰是农历节日,可能显示不出来.对于闰月可能会显示重复的节日.如2028年闰五月,会有两个端午节.
修改方法:  月历表解保护,选中C12单元格, 改"阴历节日"名称为:
=IF(LEFT(VLOOKUP(月历!D8,Data!$AM:$AN,2,1),1)="闰","",IF(OR(月历!D8<本月首,月历!D8>本月末),1/0,VLOOKUP(IF(阴历节日_Date<阴历下月,Data!$D$29,Data!$D$30)*100+IF(阴历节日_Date>=阴历下月,阴历节日_Date-阴历下月,阴历节日_Date-阴历本月)+1,阴历节日清单,2,0)))
即在原来公式的外面套一层检查闰月.
在1900-2100年间的闰月包括除正月和腊月之外其他农历月份.闰正月和闰腊月极为罕见,传统认为闰腊月的三十(或二十九)才算除夕,第一个正月初一才是新年.好在在这段范围没有闰正月也没有闰腊月,公式也就不考虑了.
28楼的附已不能更新,请自行修改.待下个版本发布时一起修正.

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-2-28 19:46 | 显示全部楼层
V3 更新:
年历表显示农历节气和农历日期;节气知识文本框移到周历表;
动态插图模式:图片文件可独立放在月历表S1指定的路径或本文件所有路径;根据系统日期和插图模式将动态插入图片;
插图模式有三种:24节气,12月,31日,或无图片.
这样系统文件实现了与图片文件的分离.用户可自行准备自己喜欢的图片.且文件不足600K非常小巧.
万年历记事簿V3.rar (500.32 KB, 下载次数: 2216)

万年历记事簿V3节气图片第一组.zip (538.13 KB, 下载次数: 861)
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-26 16:18 , Processed in 0.043929 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表