[原创]按2007年新会计准则写的《 EXCEL财务程序》

dongyf

学习一下

CHHlww

<p>请问注册码是多少？我的邮箱chhlww18@yahoo.com.cn</p>

xiamo6

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>tq229926</i>在2007-11-24 13:35:36的发言：</b><br/>厉害,期待你说一下怎么做出来的</div><p></p><p>对这个更感兴趣:)</p><p>我的邮箱:xiamo66@sina.com</p>

CPAEXCEL

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>xrczld</i>在2007-11-23 12:55:56的发言：</b><br/><p>厉害，代码写到DLL里面去了。什么也没有。怎么做的？</p></div><p><font style="BACKGROUND-COLOR: #f3f3f3;">声明：本人没有作广告的意思，希望能和大家一起交流。<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 把代码写到DLL中是必经之路，因VBA程序有一个致命的弱点就是运行时间久后速度会越来越慢，但写在DLL中就可避免这一问题。<br/>&nbsp;&nbsp;&nbsp; VBA程序启动时绕开宏提示的一种方法：把程序作成 COM 加载项，为防止所有EXCEL工作簿打开时会执行本程序需先检查打开的工作簿名称，再检查工作表的名称。<br/>Public WithEvents ExcelApp As Excel.Application<br/>Private Sub ExcelApp_WorkbookOpen(ByVal Wb As Excel.Workbook)<br/>&nbsp;&nbsp;&nbsp; If Left((Wb.Name), 11) = "《EXCEL财务程序》" Then '第一次检查<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim Sht As Worksheet<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim IsMyApp As Boolean<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each Sht In Wb.Worksheets<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Sht.CodeName = "记账界面" Then '第二次检查<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IsMyApp = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit For<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If IsMyApp = False Then Exit Sub<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '确认打开的BOOK是我的BOOK后才执行下面生成菜单等程序</font></p><p><font style="BACKGROUND-COLOR: #f3f3f3;"><br/>&nbsp; End Sub<br/></font></p>

zgx854

<p>楼主辛苦了!</p><p>我下载试试吧!以上段回复,其精神可嘉!大家应学习学习!</p>

CPAEXCEL

<p><strong><font face="宋体">cooloaky 的“[讨论][高阶]浅议在EXCEL中开发财务系统”一文思路不错，值得一看！</font></strong></p><p><a href="http://club.excelhome.net/viewthread.php?tid=139589&amp;replyID=&amp;skin=0">http://club.excelhome.net/viewthread.php?tid=139589&amp;replyID=&amp;skin=0</a></p><p></p>

sierpin

好东西，虽然不大会用，还是先谢谢

twoying

<p>请按照“摘要”选择业务。</p><p>在我要记录流水的时候绘出现这个。。可是我点选择业务什么都没有出现啊。</p>

xushaoming68

<p>太好了,谢谢!</p>

wosisei

学习学习！