麻辣家族討論版版 - Powered by Discuz! Board

標題: [分享] 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裏已經有說明編碼方式。有興趣的可以研究一下，請指教。

作者: 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

[email protected]

作者: ML089 時間: 2016-5-9 20:01

回復 31# Qektyyrwp

你的需求應該是排班吧

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

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