菜鸟谈VBA最最基础入门《原创》

zyh196712

我用排序做出来了，但还是想知道不用排序的方法，代码如何修改。
学生花名册汇总zyh1.rar (27.16 KB, 下载次数: 98)

2009-9-20 18:59 上传

点击文件名下载附件

lelege

谢谢分享啊

jun168182

是这篇帖子激发了我学VBA的兴趣，感谢楼主，写的太好了。

无影者

这个太好了，一直想入门，找不到啊，谢谢楼主带领我们入门。

ggsmart

原帖由 zyh196712 于 2009-9-20 17:06 发表
我想不改变各同学的序列信息，以此进行花名册汇总。
只有最前一个表能够复制，试了好多遍，不知代码出错在哪里。
587536

准确点说，应该是只能有一个表能复制，只有A4单元格的值与总名册A4单元格的值相同的工作表才能被处理，因为你用了这句代码：  If Sheets(i).Cells(p, 1).Value = Sheets(1).Cells(p, 1).Value Then

这样，只有当sheets(i).cells(p,1)与sheets(1).cells(p,1)单元格的值相同时，才会执行if与end if之间的代码，也就是你程序的主体部分。你可以更改“外在本就读花名册”Ａ４单元格的内容进行查看你的程序运行结果。

还有，你对Ｐ的赋值语句感觉很多余，在程序的执行中都用不上。
For i = 2 To 8
          p = 3
          p = p + 1
不知道你的意图是什么，但每一次循环都会赋给Ｐ的值为３，然后再改变它的值为４，也就是说，Ｐ永远都是4,这对你的程序有什么帮助呢？

trustwxq

从昨天中午开始看本帖，自从花名册的题目出来以后感觉开始发晕了，前面看了还是挺好的，不知是不是因为我上班的时间又要看这个又要工作，让工作给干扰的（~~看看四周有没有领导~~，汗！）现在已经看完了，下面我也要补作业了，就从花名册开始吧！

梧桐叶

太强大了太强了

livewire

敢问楼主 14楼代码中定义变量的语句
Dim I&, J&
变量名后面的 &  是做什么用的？

moon2778

呵呵，监察也来学vba了，不过要批评一下了，这个前面有论述了，请见508楼说明。

livewire

原帖由 moon2778 于 2009-9-21 21:10 发表
呵呵，监察也来学vba了，不过要批评一下了，这个前面有论述了，请见508楼说明。

批评得对！才看到14楼就急吼吼地问问题了。 看来得学VBA了。