我做了一个关于会计凭证方面系统分享给大家，但还存在一些问题，切希朋友们的指点？

qjw9004 · 发表于 2011-4-9 02:37

本人在EXCELHOME中向各位老师们的讨教，通过自己的加工，本人付代码也不是很了解，可能存在很多问题，还望朋友们、老师们指点！

[ 本帖最后由 qjw9004 于 2011-4-9 02:41 编辑 ]

zjdh · 发表于 2011-4-9 08:59

1. 你在“科目表”中对各科目的单元格式设置成什么了，自己检查一下。
2. 你在备份的宏中未将表解锁，如何让宏执行删除控件，“H”列以后的列也可以删除啊！

zjdh · 发表于 2011-4-9 09:14

3. 可以用以下语句处理：
For Each sh In Sheets
   If Right(sh.Name, 2) = "凭证" Then
      ............................
   End If
  Next

qjw9004 · 发表于 2011-4-9 09:31

非常感zjdh 老师~~
第3点的问题能做个附件吗？

zjdh · 发表于 2011-4-9 09:58

这么简单的宏都不会？！

Sub 合并()
Sheets("合并").Range("A5:H" & Range("A65500").End(3).Row).ClearContents
For Each sh In Sheets
If Right(sh.Name, 2) = "凭证" Then
sh.Range("A5:H" & sh.Range("A65500").End(3).Row).Copy Sheets("合并").Range("A" & Range("A65500").End(3).Row + 1)
End If
Next
End Sub

复制代码

zjwww · 发表于 2011-4-9 10:07

下了看了，你这个程序似不成熟，是你在VBA板块边学边做吧，给力鼓掌。
没有最好，只有适合自己的。

qjw9004 · 发表于 2011-4-9 10:35

很感谢你~~~

我所用的代码大都是朋友帮的~~
忘了一个重要的问题~~~就是每个“XXXXXX凭证”表中记录下面都有一个分类汇总.
使用你的做的代码,还是没能达到想要的结果~~~
俺一直在学VBA中~~如可以的话能留个Q号?

qjw9004 · 发表于 2011-4-9 13:32

说得对，现在是瞎摸来做的

zjdh · 发表于 2011-4-9 14:06

原帖由 qjw9004 于 2011-4-9 10:35 发表
忘了一个重要的问题~~~就是每个“XXXXXX凭证”表中记录下面都有一个分类汇总.
使用你的做的代码,还是没能达到想要的结果~~~
...................

你1楼的附件没有分类汇总内容啊

其实也不难：

qjw9004 · 发表于 2011-4-9 21:40

能有你的帮助，十分荣幸~~
辛苦了！

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

[转帖] 我做了一个关于会计凭证方面系统分享给大家，但还存在一些问题，切希朋友们的指点？