财务处理系统

hzruziniu

本财务系统用函数和VBA配合制作，表单直观，操作简单，选取科目快捷灵活，能自动生成总分类帐，数量金额式明细帐、三栏式明细帐；能分月逐张或连续套打记帐凭证，自动结转年未余额等功能。
初次学习VBA，在本论坛得到了老师的多次帮助，在此表示感谢。此系统尚属尚试，必定存在不少的错误和缺陷，肯请诸位朋友和老师提出指正和建议。
小企业财务系统.rar (785.87 KB, 下载次数: 1302)

2013-7-14 09:30 上传

点击文件名下载附件

经测试因工作表保护初始化操作代码仍有误,现重新作了修改,最下面一个进行了再次更新
对不起发了3次,把文件仍点错了，这3个文件都有误，正确的文件请在三楼下载


补充内容 (2013-8-22 13:20):
正确文件在四楼下载

补充内容 (2013-8-30 17:02):
28楼进行了更新，新增了管理费用多栏式明细帐和应交增值税明细帐。

补充内容 (2013-10-7 16:44):
48楼再次更新,请到48楼下载最新文件:
1、更换了从本站下载的紫蝶软件界面。
2、套用紫蝶软件工作表界面设置了自定义界面
3、灵活切换系统菜单和自定义菜单
4、修改了部份功能

补充内容 (2013-11-11 21:24):
第8列表76楼再次更新,增加了增值税明细帐和个人独资企业财务系统

jeneyxu

看了一下，内容挺完整的，就是初始化如何保存？为什么我的信息都填完了却总是说不完整

hzruziniu

jeneyxu 发表于 2013-7-13 23:11
看了一下，内容挺完整的，就是初始化如何保存？为什么我的信息都填完了却总是说不完整

对不起,是我的编码有误把控件名写错了,把下面的UserForm1改成UserForm7就好了,
Private Sub CommandButton1_Click()
    Dim i%
    For i = 1 To 6
       If UserForm7.Controls("textbox" & i).Value = "" Then
       MsgBox ("信息内容填写不完整不能保存!")
       Exit Sub
       End If
小企业财务系统更新.rar (785.88 KB, 下载次数: 707)

2013-7-14 09:39 上传

点击文件名下载附件

更新后的文件请查看
现金流量表还有误请在4楼下载
工作表保护密码全部为123

hzruziniu

hzruziniu 发表于 2013-7-14 09:03
对不起,是我的编码有误把控件名写错了,把下面的UserForm1改成UserForm7就好了,
Private Sub CommandBu ...

现金流量表还有误再改一下. 小企业财务系统更新2.rar (802.49 KB, 下载次数: 1628)

2013-7-14 20:16 上传

点击文件名下载附件

补充内容 (2013-8-30 17:03):
28楼更新，新增了管理费用多栏式明细帐和应交增值税明细帐。

rjtang

谢谢，下载学习{:soso_e179:}

ujtxv

谢谢，下载学习

anna512

好资料收藏了。敬佩楼主无私奉献。谢谢！{:soso_e163:}

广州野孩子

为什么一直显示“Private Sub Worksheet_Activate() '打开工作表触发事件”
还有就是更新数据时，说无法加载对象

使用不了

fu123

好资料收藏了。敬佩楼主无私奉献

strong2013

先收藏了。感谢楼主分享。