[已解决]这个汇总代码如何编写？请高手出手相助。

徐淑颖 · 发表于 2011-5-31 09:14

回复河山的帖子

太客气了！{:021:}

天马 · 发表于 2011-5-31 15:54

本帖最后由天马于 2011-5-31 20:22 编辑

回复河山的帖子

你的问题有点难度，工作簿最好放在一个文件夹下，代码要简单些。
做了一个，不知是否达到你的要求，看看吧，运行速度很慢，还请高手指教。

归类汇总.rar (430.56 KB, 下载次数: 20)

河山 · 发表于 2011-5-31 17:58

本帖最后由河山于 2011-5-31 17:59 编辑

回复天马的帖子

谢谢天马老师 的热心相助。我先看看，应该很不错了，如果不行的话，可能还来麻烦您，谢谢！！！！！！！

河山 · 发表于 2011-5-31 22:57

本帖最后由河山于 2011-5-31 22:59 编辑

回复河山的帖子

河山 · 发表于 2011-5-31 23:00

本帖最后由河山于 2011-5-31 23:03 编辑

回复天马的帖子

怎么这个运行不了，请天马老师 帮我看一下。

天马 · 发表于 2011-6-1 09:01

河山发表于 2011-5-31 23:00
回复天马的帖子

怎么这个运行不了，请天马老师帮我看一下。

将这句代码 Dim d As New Dictionary
改为
Dim d
Set d = CreateObject("scripting.dictionary")
因为我是在写代码时先引用了字典，在你那里复制代码后，电脑上没有引用运行不了，改成上面的即可。

徐淑颖 · 发表于 2011-6-1 09:27

谢谢你饿了！{:271:}

河山 · 发表于 2011-6-1 09:30

哦，太好了，谢谢！！！！！

河山 · 发表于 2011-6-1 13:52

本帖最后由河山于 2011-6-1 16:49 编辑

回复天马的帖子

天马老师：
为什么当一个学校的班级数超过10以后，归班时就会出现1班就到10班、11班、12班.....然后才到2班、3班、4班。。。9班呢？麻烦您再看看，能改不？如果能改就更完美了。谢谢您，辛苦了！！！！

天马 · 发表于 2011-6-1 17:25

回复河山的帖子

归类汇总(运行错误）.rar (432.56 KB, 下载次数: 6)

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

[已解决]这个汇总 代码如何编写？请高手出手相助。

浏览过的版块

[已解决]这个汇总代码如何编写？请高手出手相助。