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

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就可以了

ggsmart

在前面“学生花名册汇总”的实例里，大家在处理起来，多数采用复制粘贴的操作方法来完成，在简单学习了数组后，有一位朋友也使用了数组的方式来操作。两种方式在处理问题时，谁的效率会更好一点？我作了一个对比，这里，借用了前面贴子里moon2778的例子里的代码。为了看出效果，我将这两种代码分别循环执行了10次，在我的电脑上，用复制操作完成的时间居然差不多是用数组操作所用时间的8倍。

       原表中只有105条记录需要处理，时间就相差8倍，那如果有成千上万条数据呢？可想而知。

       所以。。。在需要进行大批量数据处理的时候，希望大家都用数组去处理。呵呵......

[ 本帖最后由 ggsmart 于 2009-9-27 14:24 编辑 ]