[原創] 使用Excel製作紫微斗數排盤程式

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

2^#

發表於 2011-1-6 16:58 | 顯示全部帖子

Excel製作紫微斗數排盤程式版本更新20110101

本帖最後由 HUNGCHILIN 於 2012-6-12 21:26 編輯

如何使用檔案:
1.直接開啟檔案即可
2.需開啟巨集才能使用
3.檔案內各種保護保密全部未鎖定，源碼全部公開，點選設計模式顯示全部SHEET
****************************************************************************
本次修正
1.陰曆跨年問題
2.大限、流年、流月、流日、流時加入四化與文昌等多項

隱藏功能
需自行查詢流日干支後輸入干支，流日流時盤才會準確(點首頁上的幸運草才能進入流日干支輸入區)

其他技巧應用說明：Excel製作紫微斗數排盤程式版本更新20110101

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

3^#

發表於 2012-6-12 21:25 | 顯示全部帖子

本帖最後由 HUNGCHILIN 於 2013-7-19 11:50 編輯

版本更新:可自動輸入流日干支

abbr_383e95aaf85a6524d67515c6266649af.rar (375.62 KB)

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

4^#

發表於 2012-6-13 17:49 | 顯示全部帖子

本帖最後由 HUNGCHILIN 於 2012-6-13 20:08 編輯

這個VB專案密碼是: 1

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

5^#

發表於 2013-7-19 11:49 | 顯示全部帖子

回復 21# hest3c

檔案沒鎖
&謝謝
更新如附件

abbr_838eef7d570e0e17c200acb022b07b90.zip (644.09 KB)

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

6^#

發表於 2013-9-4 10:32 | 顯示全部帖子

那是一個私用定義
只單獨作用在[ 陰陽男女] 這個SHEET上其他SHEET則無法使用
故您要先選到[ 陰陽男女] 這個SHEET上然後到定義管理員即可看到
注意一定要先點選到[ 陰陽男女] 這個SHEET上才去定義管理員.否則您看不到此定義

內容為:
[ 陰陽男女] 這個SHEET上=IF(陰陽男女!$T$1-YEAR(NOW())>=0,輸入!$C$6,輸入!$C$6+ROUND(RAND()*100,0))

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄