求输入凭证即可自动生成会计科目汇总表表及财务报表的模板(2010...

来源：蜘蛛抓取(WebSpider) 时间：2011-06-19 16:17 标签：
求一份EXCEL记帐凭证模板,能自动汇总生成科目汇总表,总帐,明细帐和报表 发到我邮箱 谢谢_百度知道
求一份EXCEL记帐凭证模板,能自动汇总生成科目汇总表,总帐,明细帐和报表 发到我邮箱 谢谢
请看一下这个帖子有贴图，不知道是否对你有帮助，如果能帮你请确认你的帖子，我收到最佳答案的通知后传你邮箱
其他类似问题
记帐凭证的相关知识
按默认排序
其他1条回答
发送完毕。
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求一份在EXCEL中做记账凭证自动生成科目汇总表、总账、明细账、财务报表之类的模板_百度知道
求一份在EXCEL中做记账凭证自动生成科目汇总表、总账、明细账、财务报表之类的模板
求一份在EXCEL中做记账凭证自动生成科目汇总表、总账、明细账、财务报表之类的模板 急..........
我有更好的答案
其他类似问题
记账凭证的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁本帖最后由 anyoung 于
11:50 编辑
【4.7更新，增加凭证修改功能，更新凭证查询，财务报表模块显示】Excel.VBA-Anyoung原创账务处理工具（支持三级科目）
本人才疏学浅，VBA初学，请各位大侠前辈们觉得不对或是弱智的地方，给予指教，并口下留情！谢谢
【本次更新凭证查询、修改功能以及财务报表模块显示功能】
【提示：每表有备注的单元格为功能实现操作单元格】
1.基础信息设置：
11:40 上传
2.凭证录入：
11:40 上传
写入凭证汇总表VBA代码：
'会计凭证保存
Sub PZ_Save()
Dim K, X, Y As Long, C As Range
If WorksheetFunction.CountA([B8:B503]) && WorksheetFunction.CountA([E8:E503]) Or WorksheetFunction.CountA([F8:F503]) && WorksheetFunction.CountA([E8:E503]) Or WorksheetFunction.CountA([E8:E503]) && WorksheetFunction.CountA([F8:F503]) Or WorksheetFunction.CountA([B8:B503]) && WorksheetFunction.CountA([J8:J503]) + WorksheetFunction.CountA([L8:L503]) Then
MsgBox &凭证内容不完整，请检查&
ElseIf [J504] && [L504] Then
MsgBox &借贷不相等，请检查&
3.凭证汇总表：（凭证录入数据自动写入）
11:40 上传
4.科目汇总表：
11:40 上传
累计本期发生额数据汇总代码：
'计算本年累计发生额
Sub LjSum()
Dim LjSum(), Lj() As Double
Dim i As Long
'读入科目编号
With Sheets(&科目汇总表&)
i = [B65536].End(xlUp).Row
Range(&I7:J& & i).ClearContents
Range(&M7:N& & i) = DySum
5.账簿查询：
11:40 上传
账簿查询VBA代码：
Sub ZBCXSL()
Dim C As Range
Dim Record(), msr, arr, t, j, v, H, m, n, X, Y
Application.ScreenUpdating = False
Set KMHZ = Sheets(&科目汇总表&)
i......'插入本月合计本年累计
Cells(2, 10) = &&
j = Val(Sheets(&账簿查询&).Range(&A65536&).End(xlUp).Row) + 24
'插入两空行
For K = 8 To j
& & If Format(Cells(K, 1)) && Format(Cells(K + 1, 1)) Then
& &&&Rows(K + 1 & &:& & K + 2).Select
& &&&Selection.Insert Shift:=xlDown
& &&&j = j + 2
& & ......
Application.ScreenUpdating = True
6.财务报表：（财务报表作重要更新）
11:40 上传
7.其他自定义报表
有需要的可以拿去，谢谢！
下载地址：
(54.02 KB, 下载次数: 443)
11:46 上传
下载次数: 443
如遇账簿查询错误，请在科目汇总表中将该科目编码重新输入一次！
补充内容 ( 07:13):
16楼有添加删除科目操作说明和最新版的，无密码的！喜欢的可以下载哦
本帖评分记录鲜花
值得肯定. 希望改进。
总评分:&鲜花 + 1&
在线时间3934 小时经验14719 威望9 最后登录注册时间阅读权限100UID2034187积分14919帖子精华0分享0
积分排行27帖子精华0微积分0
虽然不是楼主这个专业，还是支持一下& && && &
在线时间120 小时经验73 威望0 性别男最后登录注册时间阅读权限20UID1003482积分73帖子精华0分享0
EH初级, 积分 73, 距离下一级还需 277 积分
积分排行3000+帖子精华0微积分0
dajiahaoxinku12 发表于
虽然不是楼主这个专业，还是支持一下
呵呵，谢谢
在线时间106 小时经验89 威望0 性别保密最后登录注册时间阅读权限20UID886773积分89帖子精华0分享0
EH初级, 积分 89, 距离下一级还需 261 积分
积分排行3000+帖子精华0微积分0
先感谢分享，再下载试用。
在线时间24 小时经验76 威望0 性别男最后登录注册时间阅读权限20UID96575积分76帖子精华0分享0
EH初级, 积分 76, 距离下一级还需 274 积分
积分排行3000+帖子精华0微积分0
账簿查询不行啊，有错误
本帖评分记录鲜花
总评分:&鲜花 + 1&
在线时间120 小时经验73 威望0 性别男最后登录注册时间阅读权限20UID1003482积分73帖子精华0分享0
EH初级, 积分 73, 距离下一级还需 277 积分
积分排行3000+帖子精华0微积分0
boar 发表于
账簿查询不行啊，有错误
没有的，请把科目编码重新输入一遍就好了
在线时间120 小时经验73 威望0 性别男最后登录注册时间阅读权限20UID1003482积分73帖子精华0分享0
EH初级, 积分 73, 距离下一级还需 277 积分
积分排行3000+帖子精华0微积分0
boar 发表于
账簿查询不行啊，有错误
重新上传了一下，好多地方修正了！
在线时间120 小时经验73 威望0 性别男最后登录注册时间阅读权限20UID1003482积分73帖子精华0分享0
EH初级, 积分 73, 距离下一级还需 277 积分
积分排行3000+帖子精华0微积分0
重要更新，功能更加完美！喜欢的请支持下，谢谢！
在线时间4 小时经验7 威望0 性别男最后登录注册时间阅读权限10UID1523171积分7帖子精华0分享0
EH新人, 积分 7, 距离下一级还需 13 积分
积分排行3000+帖子精华0微积分0
朋友 表里很多功能不能用呢
在线时间120 小时经验73 威望0 性别男最后登录注册时间阅读权限20UID1003482积分73帖子精华0分享0
EH初级, 积分 73, 距离下一级还需 277 积分
积分排行3000+帖子精华0微积分0
骁腾万里 发表于
朋友 表里很多功能不能用呢
哪个不能用？
积分≥4700即可申请
最佳会员奖章No.1
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.2
优秀会员奖章No.1
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&

我要回帖

 

随机推荐