[公开代码]用纯EXCEL做的凭证报表处理系统(正式版)

zili905

<P>学习学习</P>

microdirt

不实用啊,我的科目都跟你不一样

zbs112

请在科目设置表设置各明细科目、借贷方向和借贷金额，最后按总账科目按钮便自动产生总账科目和编码，各行业都可以自己设定并使用，请试用。

flylaugh

楼主，你的是纯EXCEL吗？？我很想知道你凭证输入后，数据怎么到账簿中去的呢？？请指教一下，我的邮箱：flylaugh@sina.com

zbs112

<P>    我把数据表（分录表）隐藏了，呵呵！</P>

zhxping

<P>怎么打不开呀，我加你了，QQ：24961413</P>

panwenzhi

既然上传交流，为什么要设这么多障碍？什么登陆啊？工程密码啊？等等。我上传一个解密的共大家学习。 avDmpaGM.rar (218.4 KB, 下载次数: 245)

2005-11-23 10:10 上传

点击文件名下载附件
[推荐]用纯EXCEL做的凭证报表处理系统(改进版)

stx1980710

<P>楼上的真厉害！！！！！竟能破解对方的工程密码！！！！！！！！！！！</P>

zbs112

其实登陆窗口是为了不让非会计人员看到里面的资料（因为会计资料相对一个企业来说，是个商业秘密的），谢谢楼上的解密，以供大家学习交流，我本来设密码的，是想认识更多的会计同行来共同讨论会计工作中的问题，所以提供自己的QQ号码，没有其他用意！        本版还有好多用EXCEL做的会计凭证处理系统和进销存系统，他们做得也相当不错，有很多的可取之处，就是有个缺点，他们也加上了工程密码，麻烦panwenzhi网友也一起解密，以供大家学习，谢谢！

CHHlww

<P> 6D3qZKhc.zip (101.79 KB, 下载次数: 62)

2005-11-24 21:47 上传

点击文件名下载附件
[推荐]用纯EXCEL做的凭证报表处理系统(改进版)

Sub total()
For i = 2 To Sheets("分录表").UsedRange.Rows.Count
If Sheets("分录表").Range("H" &amp; i) = "" Then Sheets("分录表").Range("H" &amp; i) = " " '填写空格即可
Next i
m = Sheets("汇总表").Range("e2")
Set x = CreateObject("ADODB.connection")
Set yy = CreateObject("adodb.recordset")
x.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;';Data Source=" &amp; ThisWorkbook.FullName
Sql = "select 总账科目,明细科目," &amp; _
   "dsum('借方金额','[分录表$]','总账科目=' &amp; '''' &amp; 总账科目 &amp; '''' &amp; ' and 明细科目=' &amp; '''' &amp; 明细科目 &amp; '''' &amp; ' and 月=" &amp; m &amp; "') as 月汇总1," &amp; _
   "dsum('贷方金额','[分录表$]','总账科目=' &amp; '''' &amp; 总账科目 &amp; '''' &amp; ' and 明细科目=' &amp; '''' &amp; 明细科目 &amp; '''' &amp; ' and 月=" &amp; m &amp; "') as 月汇总2," &amp; _
   "dsum('借方金额','[分录表$]','总账科目=' &amp; '''' &amp; 总账科目 &amp; '''' &amp; ' and 明细科目=' &amp; '''' &amp; 明细科目 &amp; '''' &amp; ' and 月&lt;=" &amp; m &amp; "') as 总1," &amp; _
   "dsum('贷方金额','[分录表$]','总账科目=' &amp; '''' &amp; 总账科目 &amp; '''' &amp; ' and 明细科目=' &amp; '''' &amp; 明细科目 &amp; '''' &amp; ' and 月&lt;=" &amp; m &amp; "') as 总2" &amp; _
   " from [分录表$] group by 总账科目,明细科目"
   'MsgBox Sql
   yy.Open Sql, x, 1, 1
   'Sheet1.Range("A1").CopyFromRecordset yy
   'MsgBox yy.RecordCount
  For i = 7 To 94
  yy.movefirst
   Do While Not yy.EOF
  If Sheets("汇总表").Range("A" &amp; i) = Trim(yy(0)) And Sheets("汇总表").Range("B" &amp; i) = Trim(yy(1)) Then
   Sheets("汇总表").Range("e" &amp; i) = yy(2)
   Sheets("汇总表").Range("f" &amp; i) = yy(3)
   Sheets("汇总表").Range("g" &amp; i) = yy(4)
   Sheets("汇总表").Range("h" &amp; i) = yy(5)
   Exit Do
  End If
   yy.movenext
   Loop
  Next i
    yy.Close
Set yy = Nothing: Set x = Nothing
MsgBox "汇总完毕"
End Sub</P>
<P>这段代码什么意思?"汇总表"是如何产生的?</P>
<P>顺便上传个VBA解码器,方便大家学习.</P>