Office中国论坛/Access中国论坛

标题: [分享]crdotlin的Excel版超级农历 [打印本页]

作者: Jonathan.K 时间: 2008-3-16 16:42
标题: [分享]crdotlin的Excel版超级农历
这是crdotlin版主分享的一个作品，主程序由Sean Lin (林洵賢)分享
当然这是TW版的了，如果您有精力的话，可以转化成这边的农历版
不多说了，下面是crdotlin的Excel版超级农历。

===========================================

真正的 [超級月曆] 在這裡：[農曆月曆與世界時間DHTML程式]]。這個東西若不把它弄到EXCEL來使用，真是暴殄天物！
話說Microsoft也真奇怪，農曆在華人世界通行了幾十世紀(漢章帝元和二年，相當於公元85年，朝廷下令在全國推行干支紀年)，竟然把它忽略了！MS Office軟體到現在還沒有農曆日期格式？因此，各辦公室軟體論壇到處有詢問如何設置農曆日期格式的問題。各路高手也紛紛費盡心思，竭盡所能發展可以計算農曆日期的增益集(加載宏)來滿足網友的需求。其中不乏精采之作，但看到上述的超級月曆後，心中還是躍躍欲試，想將它轉換到VBA來用。
作為EXCEL工作簿實際使用上，並沒有將世界時間部分轉換，而在月曆上增加一個 [日期格式] 組合框來方便使用者輸入日期或者變更工作表中選定的範圍之日期格式。還有特別製作了一個 [農曆日期格式自訂義函數]。
現在就來開箱分享一下。
本檔案是以增益集的形式存檔(Excel 97-2003 增益集)，所以當您 [開啟舊檔] 載入後並不會看見其工作簿視窗，而是在作用中的視窗之右下角產生一個 [開啟月曆] 的按鈕，如圖

當要使用月曆時，只要點擊一下 [開啟月曆] 按鈕，就會出現當月的月曆，如圖

如您所見，除了沒有世界時間外其他外觀跟原創大致相同，但多了一個 [日期格式] 組合框及一個 [轉換選取範圍日期格式]按鈕。當你點選任何一個日期標籤後，就會將該日期以組合框所設定的格式寫入當前儲存格中。反之，若已經有一堆各種格式的日期資料存在工作表中，你可以先將要改變日期格式的儲存格選取，然後按一下 [轉換選取範圍日期格式] 按鈕，就會將選取範圍的日期通通改成 [日期格式]組合框所設的格式了。如下圖，兩組日期內容是一樣的，選取第二組(A7:A10)後，再按一下 [轉換選取範圍日期格式]按鈕，就將它的格式改成一致了。

另外，就是 [農曆日期格式自訂義函數]了。這個專門做為EXCEL自訂義函數，供設定公式使用。

用法：
=LunarDateF ( reference, index )
其中 reference : 參考到的儲存格位址
      index : 農曆日期顯示形式，有3種
            1：農曆m月d日
            2：農曆干支年m月d日
            3：農曆干支年干支月干支日
效果如圖

請注意，使用函數轉換的儲存格內容已經變成字串了，這是不可逆的。
其他應該沒甚麼好說的啦！
我的作業環境：Vista, Office 2007

作者: tmtony 时间: 2008-3-16 17:11
好东东, 我记得有个版主改装成Access版, 原来Excel也早有流传. 收藏了

作者: tanhong 时间: 2008-3-16 18:42
Jonathan.K 一来就给大家一个见面礼,收下了

作者: FM123 时间: 2008-3-27 09:08
回复,学习中

作者: chenwm1973 时间: 2008-3-29 23:42
[:50] [:50] [:50]

作者: wskwsk1 时间: 2008-4-1 12:31
收藏
[:50]

作者: chenwm1973 时间: 2008-4-2 09:14
模块CalendarM中：
'复活节只出现在3或4月
If m = 2 Or m = 3 Then
Dim estDay As easterType
estDay = easter(Y)
If m = estDay.m Then myThis(estDay.d - 1).solarFestival = myThis(estDay.d - 1).solarFestival & " 复活节"
End If

当点击“年”增加到2017-2018年时出现错误：下标越界。
myThis(estDay.d - 1).solarFestival = myThis(estDay.d - 1).solarFestival & " 复活节"

还有2029、2040年
不知是何原因。

[ 本帖最后由 chenwm1973 于 2008-4-11 23:49 编辑 ]

作者: chenwm1973 时间: 2008-4-7 21:14
[:28] [:28]

作者: hou_sir 时间: 2008-4-11 14:25
[:50] [:34] [:32]

作者: susiekou 时间: 2008-4-19 00:49
不错的样子

作者: oplink 时间: 2008-4-21 21:58
[:29] [:29] [:29] 很好看的界面

作者: ntgpf 时间: 2008-4-27 08:46
标题: 回复 1# 的帖子
给我看看

作者: pcx0603 时间: 2008-5-12 01:45
标题: good
hao!hao!

作者: benhh 时间: 2008-5-12 07:37
好东东

作者: 一碟小菜 时间: 2008-5-13 21:38
Not bad

作者: yu248 时间: 2008-5-13 21:48
去学习下。

作者: hylyq63 时间: 2008-7-26 17:07
好好[:50]

作者: lpyap 时间: 2008-8-27 00:15
标题: 回复 1# 的帖子
我在找

作者: albert_sun11 时间: 2008-10-8 05:42
各个各个各个各个感

作者: qujing888 时间: 2008-10-12 16:42
2007还是2003的?

作者: sunny_liy 时间: 2008-10-14 10:40
学习中

作者: 99637701 时间: 2008-11-1 15:02
好东东, 我记得有个版主改装成Access版, 原来Excel也早有流传. 收藏了

作者: xrc181 时间: 2008-12-1 14:25
谢谢大虾的无私奉献!

作者: xrc181 时间: 2008-12-1 14:33
文件解压秘码呢?

作者: lgq7198 时间: 2008-12-3 10:34
看一看

作者: darwenli 时间: 2008-12-20 12:31
learn it first

作者: xmxiaohe 时间: 2008-12-27 22:20
学习中

作者: katar1024 时间: 2009-1-24 16:45
看看，正需要他

作者: beginvfp 时间: 2009-1-25 18:47
thanks ,

作者: liuqh 时间: 2009-2-1 10:39
1# Jonathan.K

作者: 哼哼牛 时间: 2009-3-25 19:48
就在找这农历版的，楼主的很不错

作者: bylandi 时间: 2009-4-12 15:09
看看....

作者: xuwenning 时间: 2009-4-13 15:41
收藏
谢谢分享

作者: 梦溪笔谈 时间: 2009-4-19 13:02
收藏

作者: 梦溪笔谈 时间: 2009-4-19 13:03
收藏

作者: CRCT 时间: 2009-7-20 11:57
okokokokokokokokokok

作者: chenbaixiang 时间: 2009-7-22 22:10
谢谢分享，谢谢了

作者: excelhomename 时间: 2009-7-25 15:13
shoucang

作者: y34256 时间: 2009-8-20 15:32
xiexie

作者: liviyj 时间: 2010-8-14 21:37
谢谢楼主了，再接再厉吧

作者: andrewit 时间: 2010-10-26 16:13
Thanks!

作者: zhowgq 时间: 2010-10-26 16:31
多谢了

作者: cpcz 时间: 2011-1-3 01:48
好？...

作者: cpcz 时间: 2011-1-3 01:54
加密?

作者: cpcz 时间: 2011-1-6 02:24
好!思路特别!

作者: dikuzhu 时间: 2011-4-10 20:45
看看.

作者: linqi2010 时间: 2011-5-15 10:25
dddddddddddddddddddddddddddddddddddddddddddddddddddddddd

作者: 斯雯倪嘉 时间: 2011-12-19 11:26
学习学习

作者: 游戏人生 时间: 2011-12-23 23:07
学习中

作者: keiyip 时间: 2011-12-24 10:02
收藏了

作者: YXH_YXH 时间: 2012-3-3 23:06
顶顶.
多谢！！！！！！！！！！

作者: zhuguanfu 时间: 2012-5-5 10:22

作者: 972070925 时间: 2014-4-23 16:06

支持

作者: HKEY_CURRENT 时间: 2014-10-6 15:21
感谢分享

作者: lxzhang 时间: 2015-5-10 10:52
这对了解农历有太多的好处了。

作者: qcq127 时间: 2018-7-16 16:42
下载下来试用一下

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)