Board logo

標題: [分享] Excel 農曆與國曆 萬年曆 [打印本頁]

作者: sunnyso    時間: 2013-4-7 14:21     標題: Excel 農曆與國曆 萬年曆

本帖最後由 ML089 於 2013-4-11 13:05 編輯

農曆需使用VBA
最新附件在6樓

[attach]14559[/attach]

附件
[attach]14560[/attach]
作者: Hsieh    時間: 2013-4-7 17:33

本帖最後由 Hsieh 於 2013-4-7 21:35 編輯

回復 1# sunnyso
很好的構想
萬年曆可以更簡單一點
[attach]14564[/attach]
[attach]14565[/attach]
作者: ML089    時間: 2013-4-8 11:05

回復 1# sunnyso


有趣的練習題
回想很久很久以前,第一個學的程式語言 BASICA,第一個自我練習也是 萬年曆

我想樓主所有寫得原思路是很棒的,只是將公式分散於2、3個位置。
如能將各格公式組合集合於一格之中,將會更完整也有利於實際運用。

希望你能繼續邁進,遇到問題我們再討論。
作者: myleoyes    時間: 2013-4-10 21:24

回復 2# Hsieh
偶像前輩!
           是否能讓國曆與農曆一起顯示呢?
           那就更完美囉!謝謝再三!!
作者: sunnyso    時間: 2013-4-10 22:37

[attach]14627[/attach]回復 4# myleoyes
作者: sunnyso    時間: 2013-4-10 23:13     標題: 加上農曆和國曆

本帖最後由 sunnyso 於 2013-4-10 23:15 編輯

回復 4# myleoyes

加上農曆和國曆

    [attach]14630[/attach]

[attach]14629[/attach]
作者: sunnyso    時間: 2013-4-10 23:18

回復 2# Hsieh

版主由於加了 農曆需要用VBA, 可否幫我把標題改一下

謝謝
作者: ML089    時間: 2013-4-11 12:21

回復  Hsieh

版主由於加了 農曆需要用VBA, 可否幫我把標題改一下

謝謝
sunnyso 發表於 2013-4-10 23:18



不能修改標題嗎?

或是在原題目的內文第一行再加註說明就可
作者: sunnyso    時間: 2013-4-11 12:23

回復 8# ML089

按編輯出現下列提醒

對不起,您的帖子從發表到現在已超過 3 分鐘,不能再進行編輯,請返回
作者: ML089    時間: 2013-4-11 12:29

我可以幫你編輯,可是我自己帖子好像自己不能改,
作者: sunnyso    時間: 2013-4-11 13:00

回復 10# ML089

請幫忙, 加入提醒最新附件在6樓
作者: myleoyes    時間: 2013-4-12 21:47

回復 6# sunnyso
前輩!果然厲害好用謝謝再三!!
作者: myleoyes    時間: 2013-6-12 21:17

回復 6# sunnyso
前輩!這萬年曆有錯誤
        國曆6月12日今天是端午節而非萬年曆的6月13日
        神奇的是我的手機萬年曆也一樣錯誤??
        不知各位前輩的手機是否也一樣??
        日期從國曆6月8日開始錯誤到國曆7月7日止
        農曆4月沒有30天 (國曆6月7日)
        農曆5月有30天 (國曆7月7日)
        高手可否修改一下咧!!
作者: sunnyso    時間: 2013-6-12 23:55

回復 13# myleoyes

修改農曆四月29日問題
[attach]15244[/attach]
作者: myleoyes    時間: 2013-6-13 21:49

回復 14# sunnyso
前輩!謝謝再三!!
作者: sunnyso    時間: 2013-6-13 22:01

回復 15# myleoyes

修正農曆五月30日錯誤
[attach]15246[/attach]
作者: c_c_lai    時間: 2013-6-14 04:28

回復  myleoyes

修正農曆五月30日錯誤
sunnyso 發表於 2013-6-13 22:01

早安! 萬年曆-農國曆確實是個不錯的議題,謝謝你分享。
請賜教一個問題, 即有關:
農曆4月沒有30天 (國曆6月7日)、農曆5月有30天 (國曆7月7日)
這兩天的修正案例。
我核對了前後的檔案,其內容好似無差異,請教你是修正了哪個
地方 (程式、或公式),真不好意思還請你不吝指導!
作者: sunnyso    時間: 2013-6-14 10:13

回復 17# c_c_lai

修正16進制的查詢表,在VBA的開頭部分
作者: c_c_lai    時間: 2013-6-14 10:50

回復 18# sunnyso
原來是 B5500D2 -> A5500D2 -> AD500D2,
謝謝你熱心的指導! Muchas gracias!
作者: sunnyso    時間: 2013-6-14 11:38

回復 19# c_c_lai

在VBA堣w經有說明編碼方式。有興趣的可以研究一下,請指教。
作者: c_c_lai    時間: 2013-6-14 11:58

回復 20# sunnyso
謝謝你,那三組 Function 我會去慢慢消化的,
Idea 非常棒,是你本身 Coding 的嗎?
實在是很棒的創意!
作者: sunnyso    時間: 2013-6-14 12:40

回復 19# c_c_lai

因爲看漏了myleoyes提出的第二個錯誤點 “農曆5月有30天 (國曆7月7日)“, 所以作第二次修改

B5500D2 -> A5500D2 -> AD500D2

第一位(1~4月) B = 1001 第四位代表 四月如果29 日 應爲 0 所以改爲 1000 = A
第二位(5~8月) 5 = 0101 第一位代表 五月如果30日 應爲  1 所以改爲 1101 = D
作者: c_c_lai    時間: 2013-6-14 17:30

回復 22# sunnyso
我已將它註記在程式碼的備註裡,感謝你!
這有點像 Bit ^ onOff 的處哩,以往在職場時也常應用 Bit Shift
的原理來處理旗標控管 (C語言)。
前三碼是 1~4月、5~8月、9~12月 的日數定義 (0 代表 29、1 代表 30)
那麼再請教, 那後四碼 (00D2) 代表的意義呢?
作者: sunnyso    時間: 2013-6-14 20:49

回復 23# c_c_lai

最後4位為當年農曆新年的西曆日期,如0131代表1月31日;當作數值轉十六進位(6-7位)

農曆新年的西曆日期,如0131代表1月31日;當作數值轉十六進位(6-7位)

2013-2-10是年初一 0210 = D2
作者: myleoyes    時間: 2013-6-14 21:38

回復 16# sunnyso
前輩!辛苦囉!!謝謝!!
     原本的疑惑?由c_c_lai前輩!代勞提出
     真的非常感激詳盡解說謝謝再三!!
作者: c_c_lai    時間: 2013-6-15 06:19

回復 24# sunnyso
非常感激你詳盡地解說,多謝。
接下來就要端看我們自個兒的功力去研讀了,
再三言謝了!
作者: carbonise    時間: 2013-10-31 16:45

新人無權下載, 見圖似乎會表示年干, 想請問未知年干會否跟隨立春前後而自動更改呢?
作者: sunnyso    時間: 2013-11-7 21:41

回復 27# carbonise

好好儲分吧,加油哦
作者: jslin    時間: 2013-11-8 13:00

Looking Ahead on Request
「Wish you all the best」 Thanks a lot and Have a Nice Day!!
↖(^ω^)↗
Best Regards

作者: tatun    時間: 2013-12-26 03:54

新人無權下載, 好像不錯用
作者: Qektyyrwp    時間: 2016-5-9 01:29

回復 3# ML089


    請問像我們這種做二休二的,能否加顏色區別,像1號2號藍色,3號4號白色,5號6號藍色。。。。。。到月底。感謝大大。
作者: rouber590324    時間: 2016-5-9 11:57

DEAR ALL 大大
.RAR 公司無法讀取
可否請那一位大大SIR有空時將農曆和國曆EXCEL檔MAIL小弟參考
THANKS*10000

ROUBER@NANYAPCB.COM.TW
作者: ML089    時間: 2016-5-9 20:01

回復 31# Qektyyrwp

你的需求應該是排班吧

可以將需求及樣本檔案另行發帖,幫忙的人會比較多。




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)