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

zyh196712

原帖由 ggsmart 于 2009-9-23 17:32 发表

是的，我觉得也是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 ...

我试了一下，都不行，我还是没有完全理解循环语句，还不知怎么改，我还必须加强学习，一下子我还想不出来。我想问下，应该怎么改呀？

zyh196712

我试了一下，都不行，我还是没有完全理解循环语句，还不知怎么改，我还必须加强学习，一下子我还想不出来。我想问下，应该怎么改呀？

zxiping

学习一下, 先收藏起来

zznjcs

原帖由 zyh196712 于 2009-9-25 22:38 发表
我试了一下，都不行，我还是没有完全理解循环语句，还不知怎么改，我还必须加强学习，一下子我还想不出来。我想问下，应该怎么改呀？

我试过了,一样的代码,只是把三个变量定义一下类型就可以了呀.

trustwxq

With Sheets(2).Range("b3:d6").Interior
                         .ColorIndex = 6
                         .Pattern = xlSolid
End With

zznjcs

原帖由 trustwxq 于 2009-9-26 23:23 发表
With Sheets(2).Range("b3:d6").Interior
                         .ColorIndex = 6
                         .Pattern = xlSolid
End With

好象没有简化?

roc.jame

谢谢分享,楼主真的很有心,谢谢!

abcd321abcd

谢谢提供！！！

ggsmart

原帖由 zyh196712 于 2009-9-25 22:34 发表

我试了一下，都不行，我还是没有完全理解循环语句，还不知怎么改，我还必须加强学习，一下子我还想不出来。我想问下，应该怎么改呀？

你的目的是想让汇总后的工作表的学生信息按分表的学生的序号的顺序分别写入，对吧。单从现在的工作表的数据来看，不考虑序号有其他变化（比如间断，现在的文件里的序号是连续的，即从1——N号），那给你提供一个其他的做法。当然，你前面的用排序的做法其实已经很好了！

ggsmart

原帖由 zznjcs 于 2009-9-25 19:45 发表
又有问题请教,问题太多,快成为问题青年了.
range(''D47").interior.colorindex =6
range("D47").interior.pattern = xlsolid
用来实现改单元格的颜色,不知道这两句还能不能再简化了.

改变单元格的背景颜色吗？
那range("D47").interior.colorindex =6就可以了