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

d1031112 · 发表于 2009-3-9 14:23

谢谢楼主分享

wuqiang23 · 发表于 2009-3-15 17:11

xuexixuexi

syktlw · 发表于 2009-3-17 09:48

真的很好,谢谢分享

zongmeinaeileen · 发表于 2009-4-3 11:40

谢谢楼主，我是半路出家的，都很茫然，我的msn: zongmeinaeileen@163.com 希望和大家多交流

yzy2577 · 发表于 2009-4-30 11:14

请问各位高手，是不是所有的附件都要下载才能使用。我下载后没有供选择科目的对话框。不好意思，我是菜鸟。

[ 本帖最后由 yzy2577 于 2009-4-30 14:39 编辑 ]

123lhjj · 发表于 2009-5-3 13:09

各位高手，我打开的出现的是以下这样的，请问是怎么回事，谢谢了
Private Sub CreatePZ_Click()
  Sheets("记账凭证").Select
  If Range("D7") = "" Then MsgBox "请录入相关的记录信息!", 1 + 64, "友情提示": Exit Sub
  CreateCheck = "是"
  If 凭证存在检查() = "是" Then
   If MsgBox("凭证已经存在!是否改为最新凭证号?", vbYesNo) = vbNo Then Exit Sub Else pz号 = 最新凭证号
  End If
  MsgBox "你确定要新增该凭证么?", 1 + 64, "新增记录"
  Call 凭证新增
  If CreateCheck = "是" Then MsgBox "新增完毕!", 1 + 64, "友情提示"
  Call 凭证清空
End Sub
Private Sub DeletePZ_Click()
  Sheets("记账凭证").Select
  If Range("D7") = "" Then MsgBox "请先对该记录信息查询,后删除!", 1 + 64, "友情提示": Exit Sub
  If MsgBox("你确定要删除该凭证么?", vbYesNo) = vbNo Then Exit Sub
  Call 凭证删除
  Call 凭证清空
End Sub
Private Sub FindPZ_Click()
  Sheets("记账凭证").Select
  Call 凭证清空
  Call 凭证查询
End Sub
Private Sub ClearPZ_Click()
  Sheets("记账凭证").Select
  Call 凭证清空
End Sub
Private Sub ReworkPZ_Click()
  Sheets("记账凭证").Select

tjx77 · 发表于 2009-5-26 14:01

我下载的不能用

jimmy1022 · 发表于 2009-7-8 09:26

谢谢楼主提供，请问登录密码

weng · 发表于 2009-8-23 10:59

看一看！！

		自动登录	找回密码
密码			免费注册

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

谢谢啊