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

Zamyi · 发表于 2010-12-9 09:43

原帖由 excelflower 于 2010-12-9 09:28 发表

老师你好！没找到附件，请您再上传一次。

上传好了，不过是借用辅助列，用了再次排序而已。

excelflower · 发表于 2010-12-9 09:52

原帖由 Zamyi 于 2010-12-9 09:43 发表

上传好了，不过是借用辅助列，用了再次排序而已。

多谢老师！我学学。

wubaiwan_111 · 发表于 2010-12-9 10:00

慢慢拜读，比小说好看

dodo2000 · 发表于 2010-12-9 11:33

原帖由 masterexcel 于 2010-12-9 09:12 发表
用循环应该是最慢的，用specialcell是最快的方法之一，当然，需要加一辅助列，进行判断，代码如下：
当30000再往上加的时候，超过34200的时候，就出错，所有的单元格都被染色，为什么呢？请高手指点
所有测试在200 ...

我的在2007，XP环境中，到60000都正常呀。

机械设计 · 发表于 2010-12-9 11:51

刚看到，这个题目好哇

masterexcel · 发表于 2010-12-9 12:27

结果是正确的吗？能截个图上来看看吗？谢谢！！

灰袍法师 · 发表于 2010-12-9 15:08

原帖由 Zamyi 于 2010-12-9 09:43 发表

上传好了，不过是借用辅助列，用了再次排序而已。

这个方法我也想过，但是我误以为格式不会随着数值排序，哈，又学一招。

不过如果要上色的单元格比较少，比方说大于90才上色，那么应该还是比直接union慢得多

office2008 · 发表于 2010-12-9 15:19

Sub MyUnion1()
T = Timer
Range("A1:A10000").SpecialCells(2).Interior.ColorIndex = 3
[e2] = Format(Timer - T, "0.00") & "秒。"
End Sub

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

后者Sub MyUnion2()比前者Sub MyUnion1() 几乎快10倍 ,只需要 0.05秒

同样道理用 UNION

For j = 1 To 10
      Set rng = Nothing
      For i = 1 To 1000
         m = m + 1
         If ar(m, 1) < 60 Then
            k = k + 1
            s = s & "," & "c" & m
            If k Mod 30 = 0 Then
                  If rng Is Nothing Then
                     Set rng = Range(Mid(s, 2))
                  Else
                     Set rng = Union(rng, Range(Mid(s, 2)))
                  End If
                  s = ""
            End If
         End If
      Next
      If Not rng Is Nothing Then rng.Interior.ColorIndex = 3
Next

也只需要 0.11 秒,只是后面没有兼顾到,只需要再加工而已.

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

excelflower · 发表于 2010-12-9 15:35

原帖由 office2008 于 2010-12-9 15:19 发表
Sub MyUnion1()
T = Timer
Range("A1:A10000").SpecialCells(2).Interior.ColorIndex = 3
[e2] = Format(Timer - T, "0.00") & "秒。"
End Sub

Sub MyUnion2()
T = Timer
For i = 1 ...

尊敬的老师你好！这个很强大

今天我EH满月，呵呵。能送个附件和注释不

谢谢先！

Zamyi · 发表于 2010-12-9 15:42

原帖由 灰袍法师 于 2010-12-9 15:08 发表

这个方法我也想过，但是我误以为格式不会随着数值排序，哈，又学一招。

不过如果要上色的单元格比较少，比方说大于90才上色，那么应该还是比直接union慢得多

只是取巧而已，如果不在同一列，那没办法。

不过微软很多东西觉得效率并不好，唯独对于排序情有独钟。

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

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

回复 64楼 dodo2000 的帖子