老师给的大青枣烤蹄，现交作业。

excelflower · 发表于 2010-12-8 09:11

原帖由 灰袍法师 于 2010-12-8 01:28 发表 [/url]
下面是个作业，excelflower做一下，看看是不是真的懂

A列有100个随机整数，范围是0-100，写个程序把所有 <60的单元格设置为红色

嗯，正确地完成以后，为了证明程序速度很快，把A列改为10000个随机整数，再运行一次。。。。。。嘿嘿嘿

这帖是“灰袍法师”老师留的作业，为了方便记录学习过程，单独发帖、交作业。

一、学生作业

1、老师您好！作业做好了，感觉10000个随机整数的代码速度不行（48秒），请老师赐教！

Union作业.rar (68.28 KB, 下载次数: 146)

      2、请老师注意3楼的代码，SpecialCells比union快二百多倍！为什么呢？

      3、14楼、10万数据，不到12秒！http://club.excelhome.net/viewthread.php?tid=658526&page=2#pid4472603

二、“法师”老师的超级代码！神速！

      1、附件在41楼http://club.excelhome.net/viewthread.php?tid=658526&page=5#pid4474175

      2、我的电脑测试结果1万记录0.13秒！比肩SpecialCells！

      3、老师的神器：把符合条件的单元区域放入数组；驯服Union!!!

三、对2007的疑惑：为什么2007版不能返回14楼附件的正确结果？36楼、54楼，单元格全部变成红色！【2010版能返回正确结果】

四、Zamyi老师的，必须学习！57楼http://club.excelhome.net/viewthread.php?tid=658526&page=6#pid4475287

五、sunsoncheng老师的，必须学习！72楼http://club.excelhome.net/viewthread.php?tid=658526&page=8#pid4477223

六、office2008老师的，方法很多！68楼http://club.excelhome.net/viewthread.php?tid=658526&page=7#pid4476717

七、不用Union、SpecialCells，直接单元格区域循环。
      79楼http://club.excelhome.net/viewthread.php?tid=658526&page=8#pid4477660
      83楼http://club.excelhome.net/viewthread.php?tid=658526&page=9#pid4478145

八、liuguansky老师的，目前最快！我的电脑测试0.23秒10W。80楼http://club.excelhome.net/viewthread.php?tid=658526&page=8#pid4477790]

九、“法师”老师的，目前最快！我的电脑测试0.23秒10W。84楼http://club.excelhome.net/viewthread.php?tid=658526&page=9#pid4478310

总结：最后比较结果：office2008老师（68楼）用SpecialCells最快！10W--0.05秒。

Sub MyUnion2()
T = Timer
For i = 1 To 10
Range("A" & 1000 * (i - 1) + 1 & ":A" & i * 1000).SpecialCells(2).Interior.ColorIndex = 3
Next
[e2] = Format(Timer - T, "0.00") & "秒。"
End Sub

复制代码

[ 本帖最后由 excelflower 于 2011-1-4 21:24 编辑 ]

wshcw · 发表于 2010-12-8 09:20

MM:
口福不错嘛!青枣和烤蹄都有了
二、“法师”老师的超级代码！神速！

附件在41楼：http://club.excelhome.net/viewthread.php?tid=658526&page=3#pid4474175

[ 本帖最后由 wshcw 于 2010-12-9 11:56 编辑 ]

excelflower · 发表于 2010-12-8 09:38

Union作业（二）.rar (93.8 KB, 下载次数: 130) 老师你好！用SpecialCells更快！

[ 本帖最后由 excelflower 于 2010-12-8 10:03 编辑 ]

excelflower · 发表于 2010-12-8 09:40

原帖由 wshcw 于 2010-12-8 09:20 发表

是的，版主大人老师！早上好啊！！帮我看看代码吧，怎么改好些。谢谢先！！！

[ 本帖最后由 excelflower 于 2010-12-9 15:56 编辑 ]

excelflower · 发表于 2010-12-8 09:46

老师你好！
“灰袍法师”老师今天凌晨1点多给留的作业，可能还在休息。您先帮我看看3楼的附件，为什么时间代码出错？谢谢先！
Private Sub CommandButton1_Click()
Dim T%
Cells.Clear
' T = Timer '这里出错
k = 2
Call MyRnd
Call MyUnion
' MsgBox "运行时间：" & Format(Timer - T, "0.00") & "秒。"
End Sub

yes2boy · 发表于 2010-12-8 09:48

Dim T as Date

excelflower · 发表于 2010-12-8 09:58

原帖由 yes2boy 于 2010-12-8 09:48 发表
Dim T as Date

多谢老师赐教！
是代码速度快了的原因吧？这个时间差太小了！对不？

tangtang2 · 发表于 2010-12-8 10:37

我就奇怪，怎么大青枣有烤蹄啥意思吗？原来这样!

ericjon · 发表于 2010-12-8 10:49

涂色没怎么看，不过For i = 1 To 100
Arr(i，1) = Int((100 * Rnd) + 1)
Next i
Cells(1, 1).Resize(100, 1) = Arr，这样就可以不用transpose函数了。

sunsoncheng · 发表于 2010-12-8 10:54

这个测试好

以前来还真的只用UNION

看来还有更快的办法

快请法师来看看10000个后的UNION速度慢的原因

有时候我认为,VBA本身应有它的优势的,如果它的东东全不用,不变了VB了?
兼而用之是最好的

		自动登录	找回密码
密码			免费注册

[讨论] 老师给的大青枣烤蹄，现交作业。

回复 2楼 wshcw 的帖子

好好学习，天天向上