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

Zamyi

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

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

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

excelflower

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

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

多谢老师！我学学。

wubaiwan_111

慢慢拜读，比小说好看

dodo2000

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

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

机械设计

刚看到，这个题目好哇

masterexcel

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

灰袍法师

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

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

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

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

office2008

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

原帖由 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:08 发表


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

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

只是取巧而已，如果不在同一列，那没办法。
不过微软很多东西觉得效率并不好，唯独对于排序情有独钟。