[已解决]找出大小相同并着上色

hjuy78 · 发表于 2012-1-20 13:52

Book2.rar (3.11 KB, 下载次数: 31)

free1024 · 发表于 2012-1-20 15:49

看看是不是楼主所要的.

Book2.zip (14.49 KB, 下载次数: 8)

hjuy78 · 发表于 2012-1-20 15:56

free1024 发表于 2012-1-20 15:49
看看是不是楼主所要的.

应该是不合我的条件

free1024 · 发表于 2012-1-20 16:09

hjuy78 发表于 2012-1-20 15:56
应该是不合我的条件

我运行后看了一下,没有什么问题的....楼主是想达到什么样的要求呢?{:041:}

hjuy78 · 发表于 2012-1-20 16:33

free1024 发表于 2012-1-20 16:09
我运行后看了一下,没有什么问题的....楼主是想达到什么样的要求呢?

要求是每列从第14行向上连续大小相同(指 a14百位,a13百位,a12百位是全大或全小大于4的数为大,小于5的数为小

                                                               a14十位,a13十位,a12十位是全大或全小,

                                                               a14个位,a13个位,a12个位是全大或全小,
                                                                           合上面的条件就a14这1个格着上蓝色

爱疯 · 发表于 2012-1-20 16:40

Sub a()
Dim i&, j&, k&, s$
[a14:bj14].Interior.ColorIndex = xlNone
For j = 1 To 62 '遍历列
For k = 1 To 3 '遍历百，十，个
s = ""
For i = 12 To 14 '同列中，遍历各行某位的值
Select Case Mid(Cells(i, j), k, 1)
Case 0 To 4
s = s & "小"
Case 5 To 9
s = s & "大"
End Select
Next i
'不再判断
If Not (s = "小小小" Or s = "大大大") Then GoTo 100
Next k
Cells(14, j).Interior.ColorIndex = 4
100:
Next j
End Sub

复制代码

Book2b.rar (11.41 KB, 下载次数: 16)

hjuy78 · 发表于 2012-1-20 17:55

爱疯发表于 2012-1-20 16:40

想补一点如果不用大小条件而用单双条件其它不变,要怎样改下

爱疯 · 发表于 2012-1-20 18:52

hjuy78 发表于 2012-1-20 17:55
想补一点如果不用大小条件而用单双条件其它不变,要怎样改下

Book2c.rar (10.73 KB, 下载次数: 11)

hjuy78 · 发表于 2012-1-21 04:43

爱疯发表于 2012-1-20 18:52
这样吗

是这样,太谢谢你了

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