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

jiminyanyan

原帖由 草根糖 于 2009-9-4 16:06 发表
楼主老师，能不能讲解一下“学生花名册分类”的思路？
我相信很多人从这里开始就给卡住了。

前面有部分人做了作业，可以参考一下

jiminyanyan

原帖由 xuri258 于 2009-9-3 16:53 发表
不错～， 呵呵。

dim A as Integer
A="我在学VBA变量¡"
Mgbox A

我ctrl+G，输入以上命令不行，，出错误。。为什么啊？

是msgbox 吧

abs123

很值得收藏学习的贴子！

lano

下载学习下载学习

ggsmart

原帖由 草根糖 于 2009-9-4 10:41 发表


好不容易学到这，但是我做出来的东西怎么只能每类一个数据啊？
各位老师，同学帮我看看好不？
谢谢先！
578232

思路已经正确了。只是还有一点点的问题：
比如拿“站街”的记录的处理来举例吧，你的代码为：
Case Is = "站街"
            Sheets("外在本就读花名册").Range(Cells(q, 1), Cells(q, 12)).Copy Sheets("站街").[a3]
你的代码在循环里将永远把记录复制到“站街”工作表的A3单元格，这样，当循环处理第二条的时候，就会把第一条的记录替换。你可以先找到“站街”工作A列的最后一个非空单元格，然后将记录粘贴到它的下一个单元格即可。

ggsmart

原帖由 xuri258 于 2009-9-3 16:53 发表
不错～， 呵呵。

dim A as Integer
A="我在学VBA变量¡"
Mgbox A

我ctrl+G，输入以上命令不行，，出错误。。为什么啊？

1、立即窗口里面的命令是输入一句，回车就执行该语句的命令，前面我说了，这有点像在DOS下输入DOS命令一样。所以你把代码全部复制到立即窗口里执行会出错；
2、感觉立即窗口里输入dim语句会出错；
3、你定义的变量为Integer型，而给A赋的值却是string型，变量类型与值不匹配；
4、不是Msbox，而是msgbox。

上面的代码如果要批量执行，那建议放在一个sub过程里，如果想要逐句执行，则输入第一句A="我在学VBA变量¡" ，回车，完成赋值，再输入第二句 Msgbox A即可显示。

ggsmart

原帖由 zznjcs 于 2009-9-4 15:34 发表
搞了三天终于搞出来了,学生名单分类,但是运行起来慢的一米,
高手帮看下.

578457

呵呵。。。。利用GO TO语句循环，另类的做法，呵呵.....不错！速度慢一点没关系，如果是初学，达到目的即可！

xingliang8899

谢谢了  你们辛苦了

fechang

非常感谢，很有价值

hg908

楼主辛苦了，留个脚印学学！