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

zznjcs

楼主再出道题做做, 我要多练习呀.

lanxxd

汇总的东东，，要什么压缩分卷呀！~~~~~

ersuizz

谢谢分享，楼主辛苦了！！

ggsmart

原帖由 zyh196712 于 2009-9-22 21:11 发表
另我改写了IF语句（应是这句出错吧？），但还是不成功，不知应该怎样写，还是那里写错了，请指教，谢 ...

是的，我觉得也是if语句的问题。

If Sheets(i).Range("A3").Value = Sheets(1).Range("a" & aa).Value Then

因为这句语句是放在For循环（for i = 1 to  8)里面的，如果当sheets(1)的range("a" & aa)与sheets(i).range("a3")不相等时，该工作表就不会被执行你的if 与end if之间的复制语句。

你可以调换工作表的顺序看一看。

luobubing

看了两天了，才看完一页，有得看了。呵呵，先谢谢楼主。

amassum000

很好的学习资料，一定要学习学习。谢谢楼主无私奉献。

chen_qiuru

谢谢分享~~~~

trustwxq

如果有几个区域,如B3:C4, E5:F6, 怎么样把它们表示在一个RANGE()里面 -------------感觉要用union，union(range("b3:c4"),range("e5;f6"))     424楼的朋友说的Range("B3:C4" ,"E5:F6")，就该表示的是range("b3:f6"),不是两个区域。


引用两个区域可以用union(range("b3:c4"),range("e5;f6")) ，还可以用Range("B3:C4 ,E5:F6")，注意两个区域之间只有一个“，”没有其他符号，两个区域是在一套双引号里面，另外[a4:c6,e19,b7:e10]也对，刚刚试过。
呵呵，今天一不注意技术分多了4分，积分、财富都涨了近200，成中级了，呵呵~~只是真实水平没有这样升幅啊

[ 本帖最后由 trustwxq 于 2009-9-24 20:22 编辑 ]

wangxinghua

我刚刚看了第一页，觉得自己好像在天上飞一样晕晕呼呼的！
是不是我没有学习语言的能力啊！！
不过，我还是要好好的习学，努力学习中
还是要谢谢！！！能有这么好的教材供我学习

wangxinghua

我现在怀疑我是不是很笨，很笨
怎么感觉自己越来越晕了呢，连第一页都没有看完就晕了
怀疑。。。。
是不是自己太笨啦！！
理解能力有问题啊