以EXCEL函数和VBA编制的紫微系统

紫斗明灯 · 发表于 2006-6-1 12:27

说明：本人不是EXCEL高手，也从来没有学过EXCEL系统知识，通过长时间的摸索和尝试，借助EXCEL帮助，历时三年，终于为自己的爱好——紫微象学用EXCEL函数编制出完整的系统，其功能不亚于软件。今年4月25日起，以一本《VB入门》为指导，开始编制VBA版本的新系统，现也基本竣工。我的体会是，EXCEL技能不是学来的，而是实践出来的，编制VBA程序其实很容易，看书3天就可以上手编程，难的在于使程序更富效率、更有技巧，本系统很大，约1.94兆，就是因为本人的EXCEL技能还是处于比较低级的阶段。但本系统足见EXCEL函数的威力和VBA的神效，我用这样一个系统来证明：EXCEL函数和VBA可以做很复杂的事情，甚至成为一个系统工程，本程序应用EXCEL基本函数公式5000多个，本人另外用VBA编制的新系统有4200多条语句，即是一个明证。该系统可用于： 1、生成一个紫微图谱； 2、调用任何一个已保存的数据库紫微图谱； 3、显示四柱八字； 4、计算节气；不懂天文历法和紫微的人，是看不懂这个系统的。另外，凡WORD文字图片等内容已经全部删除（原为3，2M）。 **************************************************************************** 抱歉，系统经压缩仍然达到720K，无法上传。只好上传一个万年历EXCEL聊为充数：）：

qZ7xE2gu.rar (34.21 KB, 下载次数: 388)

[此贴子已经被作者于2006-6-1 12:48:04编辑过]

legu31 · 发表于 2006-6-1 12:37

怎么看不到你做的系统

紫斗明灯 · 发表于 2006-6-1 12:37

抱歉，压缩后仍然达到720K，超过了论坛上传限制条件。

清风_ll · 发表于 2006-6-1 13:33

以下是引用[I]紫斗明灯[/I]在2006-6-1 12:37:40的发言：[BR]抱歉，压缩后仍然达到720K，超过了论坛上传限制条件。

可使用WinRar的分卷压缩功能分卷上传.

rzz8118 · 发表于 2006-6-1 13:35

能发往我的邮箱吗，rzz8118@126.com，谢谢！

Kelidai · 发表于 2006-6-1 14:40

只看你的万年历就感觉不错，如方便请发一个给我：kelindai@gmail.com,先谢谢啦。

zz5151353 · 发表于 2006-6-1 14:52

容量這麼大,能否傳一份給小弟參考,謝謝 !!!

email : tsenglkl@hotmail.com

qlz110 · 发表于 2006-6-1 15:18

不错，收藏。公式很多很长，楼主辛苦了

G15=IF(G14=0,0,IF(DATE($C$2,$D$2,G14)=$P$1,$Q$1,IF(DATE($C$2,$D$2,G14)=$P$2,$Q$2,VLOOKUP(IF(DATE($C$2,$D$2,G14)>$P$2,DATE($C$2,$D$2,G14)-$P$2+1,DATE($C$2,$D$2,G14)-$P$1+1),$P:$Q,2,FALSE))))

winky516 · 发表于 2006-6-1 17:09

能发一份给我吗?

winky516@126.com

wts05980098 · 发表于 2006-6-3 20:31

能否发一份给我，我在这先谢谢了

wts05980098@126.com

		自动登录	找回密码
密码			免费注册