[原创]账务处理系统V7.3（2008年12月6日更新,增加损益结转及反月结功能）

木偶

  在系统初始化时:当选择"请确认是否保留总账会计科目及其明细会计科目的设置!",选择"否"时,出现运行错误,提示:"运行时错误1004,不能对合并单无格作部份更改",我认为可能是过程需要改写"年度科目汇总"表信息时,需要清除合并单元格内容,代码过程有错误,请查看一下!!!

fxj_fl

<p>楼主,谢谢拿出来共享.</p><p>本人正在学VBA,但您的作品看不了源代码,,不知能否让我学习下源代码????</p>

第三杯茶

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>fxj_fl</i>在2008-1-15 14:20:00的发言：</b><br/><p>楼主,谢谢拿出来共享.</p><p>本人正在学VBA,但您的作品看不了源代码,,不知能否让我学习下源代码????</p></div><p>可以,我发给你!</p>

abcd321abcd

茶兄的<strong><font color="#0909f7">财务处理系统V7.2</font></strong>是愈加完善了，劳驾茶兄把源代码发至<a href="mailto:jnjlxg@126.com">jnjlxg@126.com</a>，让我也学习学习。

conten

谢谢楼主，我下了去看看哦！

木偶

可以发给我一个吗？我也正在学习中啊，谢谢啦！chenzuhu@163.com

第三杯茶

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>木偶</i>在2008-1-15 12:57:00的发言：</b><br/>&nbsp; 在系统初始化时:当选择"请确认是否保留总账会计科目及其明细会计科目的设置!",选择"否"时,出现运行错误,提示:"运行时错误1004,不能对合并单无格作部份更改",我认为可能是过程需要改写"年度科目汇总"表信息时,需要清除合并单元格内容,代码过程有错误,请查看一下!!!</div><p>感谢网友<strong><em>木偶</em></strong>的测试,初始化代码的BUG找出来了,感谢<strong><em>木偶</em></strong>的帮助.</p>

guangdongyx

<p>楼主：很喜欢你的软件，使用中。给你提几点建议：</p><p>1、软件能备份数据很好，最好能有恢复数据功能（包括财务数据、科目设置数据等恢复），这样当软件升级及修改后，不需要再重新输入数据。</p><p>2、凭证录入后修改不方便，在复核中修改数据，好像汇总时出问题。最好能增加插入、修改、删除凭证功能。</p><p><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'mso-hansi-font-family:';">3、对你的说明<font color="#ff0000">“◇月末编制转账凭证，结转损益类等科目的发生额时，输入会计科目，然后利用</font></span><font color="#ff0000"><span lang="EN-US"><font face="Times New Roman">SUMIF</font></span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'mso-hansi-font-family:';">函数完成，具体操作是，<font color="#0909f7">借方发生额结转贷方时</font>，输入公式“</span><span lang="EN-US"><font face="Times New Roman">=SUMIF</font></span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'mso-hansi-font-family:';">（</span><span lang="EN-US"><font face="Times New Roman">KMDM</font></span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'mso-hansi-font-family:';">，科目代码，</span><span lang="EN-US"><font face="Times New Roman">JFJE</font></span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'mso-hansi-font-family:';">）”，<font color="#3300ff">借方发生额结转贷方时</font>，输入公式“</span><span lang="EN-US"><font face="Times New Roman">=SUMIF</font></span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'mso-hansi-font-family:';">（</span><span lang="EN-US"><font face="Times New Roman">KMDM</font></span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'mso-hansi-font-family:';">，科目代码，</span><span lang="EN-US"><font face="Times New Roman">DFJE</font></span></font><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'mso-hansi-font-family:';"><font color="#ff0000">）”。”</font>不太会用，能否举个具体例子说明。上面蓝色字体你看有没有需要纠正。</span></p><p>我刚接触vb一知半解，希望看到你的原代码学习学习。如可以请发<a href="mailto:wxy7961@163.com">wxy7961@163.com</a></p><p>谢谢！！！</p>

木偶

<p>茶兄这么快就回复了,有你的热情,加上你技术,相信你会做得更好.更感谢提供工作密码.</p><p>我按你的方法进行代码修改后,仍有错误,仍提示"不能对合并单无格作部份更改"</p><p>错误代码如下:"&nbsp; .Range(.Cells(RC, 1), .Cells(RB, 1)).ClearContents "</p><p>仍涉及到合并单元格问题.请再查看好吗?</p><p>&nbsp;&nbsp;&nbsp; 我是在完全初始系统的情况下进行测试的.</p><p></p>

第三杯茶

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>guangdongyx</i>在2008-1-17 12:39:00的发言：</b><br/><p>楼主：很喜欢你的软件，使用中。给你提几点建议：</p><p>1、软件能备份数据很好，最好能有恢复数据功能（包括财务数据、科目设置数据等恢复），这样当软件升级及修改后，不需要再重新输入数据。</p><p>2、凭证录入后修改不方便，在复核中修改数据，好像汇总时出问题。最好能增加插入、修改、删除凭证功能。</p><p><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'mso-hansi-font-family:';">3、对你的说明<font color="#ff0000">“◇月末编制转账凭证，结转损益类等科目的发生额时，输入会计科目，然后利用</font></span><font color="#ff0000"><span lang="EN-US"><font face="Times New Roman">SUMIF</font></span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'mso-hansi-font-family:';">函数完成，具体操作是，<font color="#0909f7">借方发生额结转贷方时</font>，输入公式“</span><span lang="EN-US"><font face="Times New Roman">=SUMIF</font></span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'mso-hansi-font-family:';">（</span><span lang="EN-US"><font face="Times New Roman">KMDM</font></span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'mso-hansi-font-family:';">，科目代码，</span><span lang="EN-US"><font face="Times New Roman">JFJE</font></span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'mso-hansi-font-family:';">）”，<font color="#3300ff">借方发生额结转贷方时</font>，输入公式“</span><span lang="EN-US"><font face="Times New Roman">=SUMIF</font></span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'mso-hansi-font-family:';">（</span><span lang="EN-US"><font face="Times New Roman">KMDM</font></span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'mso-hansi-font-family:';">，科目代码，</span><span lang="EN-US"><font face="Times New Roman">DFJE</font></span></font><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'mso-hansi-font-family:';"><font color="#ff0000">）”。”</font>不太会用，能否举个具体例子说明。上面蓝色字体你看有没有需要纠正。</span></p><p>我刚接触vb一知半解，希望看到你的原代码学习学习。如可以请发<a href="mailto:wxy7961@163.com">wxy7961@163.com</a></p><p>谢谢！！！</p></div><p><strong>非常感谢兄台的厚爱!你的建议和意见非常好!</strong></p><p>第1条,正是我下一步想要完成的工作!</p><div>第2条,修改后的凭证重新汇总我测试是没有问题的,能否传上你的附件,我好查找问题和错误原因.关于录入凭证的修改,目前只能修改相同行数的会计凭证,如果增加一行分录,就会出错,增加,修改和删除都是要做的,只是目前考虑还不成熟,而且时间也不允许.</div><div>第3条,给你个例子吧,如当月的销售收入结转利润,可以在销售收入对应的贷方金额栏这样输入公式<strong>"=SUMIF(KMDM,5101,DFJE)",</strong>若是结转管理费用,则可以输入公式<strong>"=SUMIF(KMDM,5502,JFJE)"</strong>.</div><div>工程保护密码已发你邮箱,多多交流为盼!</div>