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

第三杯茶

<DIV class=quote><B>以下是引用<I>HXJWC</I>在2004-10-10 11:57:00的发言：</B>

<P>你的这个系统很好，但我想知道它的调用方法，若是产权问题我就不好打扰了。非常感谢！！！</P></DIV>

学习无止境，大家都在乎产权的问题我的系统也就出不来了，你可以查看一下this workbookr 的代码！

第三杯茶

<DIV class=quote><B>以下是引用<I>东北人</I>在2004-10-7 0:26:00的发言：</B>

<P>搂主    问个问题</P>
<P>你这里的    字第号      可否不是连续的</P>
<P>我这的编号是这样命名的总计7个数     4个年2个月3个编号   例如:2004年9月份的第一个就是200409001</P>
<P>就是说8月份和9月份的编号之间不是连续的   这样有好办法实现么</P>
<P>另外  你的     字第号   如何把  第1号       显示成第001号呢?</P>
<P>谢谢</P>
<P>我看了你的文件编制的全过程   学了不少东西    我在这里谢过了    我做得物资管理系统  有一些和你的很类似   比如:入库\出库\调拨单的录入,月底的统计,单据的查询,进行一些必要的统计核算等等</P></DIV>

这些都是可以实现的，不过这些天我刚上班，税务报表是要做的，有空我再跟你交流，好吗？SORRY！（把你做的上传了学习一下？！）

第三杯茶

<P>哈哈！科目中没有“累计折旧”，大家自已加上吧！</P><P>SORRY！</P>

mcy318

此密码是？？？？

第三杯茶

<DIV class=quote><B>以下是引用<I>mcy318</I>在2004-10-13 9:16:00的发言：</B>
此密码是？？？？</DIV>
<P>
<P>密码不是在1楼吗?</P>
<P>???????????</P>

fanghua

请教数据备份的原代码？谢谢！！

啊一

<P>我好羡慕你，水平真高。对于我来说恐怕是想都不敢想。</P><P>我的专业是工艺设计，我觉得我们论坛好多作品的界面设计的不太好，图案、颜色、字体的搭配不好，看起来花眼。希望朋友们以后讲究美观的同时要重视实用呵呵！</P><P>我得把你的东西好好研究研究，因为我对VBA还是一无所知呵呵，感激你！</P>

第三杯茶

<DIV class=quote><B>以下是引用<I>啊一</I>在2004-10-14 8:01:00的发言：</B>

<P>我好羡慕你，水平真高。对于我来说恐怕是想都不敢想。</P>
<P>我的专业是工艺设计，我觉得我们论坛好多作品的界面设计的不太好，图案、颜色、字体的搭配不好，看起来花眼。希望朋友们以后讲究美观的同时要重视实用呵呵！</P>
<P>我得把你的东西好好研究研究，因为我对VBA还是一无所知呵呵，感激你！</P></DIV>
<P>
<P>其实很多的东东都是HOME里的，只不过我借用了一下罢了，不值一提！要感谢的话还是感谢EXCELHOME应用论坛的好！</P>
<P>对于界面设计还请多多指教，想美观大方一点还是专业人员懂得多！</P>

第三杯茶

<DIV class=quote><B>以下是引用<I>fanghua</I>在2004-10-13 19:54:00的发言：</B>
请教数据备份的原代码？谢谢！！</DIV>
<P>Sub save()
    Call BrowDir
    If Len(MyPath) &gt; 0 Then
        UserForm5.Show 0
        UserForm5.ListBox1.Clear
        For Each sht In ThisWorkbook.Sheets
            UserForm5.ListBox1.AddItem sht.Name
        Next
    Else
        MsgBox "You haven't select directory!"
    End If
End Sub

<P>另请参考窗体Userform5的代码！</P>

[此贴子已经被作者于2004-10-14 14:11:03编辑过]

shuiyuan

很好