[已解决]请问用vba怎么实现

by201 · 发表于 2015-7-11 05:51

本帖最后由 by201 于 2015-7-11 14:00 编辑

在表格的F、M列的单元格的值符合设定值时，单元格填充黄色。设定的值是5、11、18、26、38、47、57、63、67、74、87，当满足条件时，只填充一次。

新建 Microsoft Excel 工作表.zip (8.14 KB, 下载次数: 5)

天天EP · 发表于 2015-7-11 07:06

试试,是否符合要求

Sub 填充颜色()
Dim rg As Range, rng As Range, rng1 As Range
Dim i As Integer
i = Cells(Rows.Count, 6).End(xlUp).Row
Set rg = Union(Range("F2:F" & i), Range("M2:M" & i))
For Each rng In rg
Select Case rng.Value
Case 5, 11, 18, 26, 38, 47, 57, 63, 67, 74, 87
If rng1 Is Nothing Then
Set rng1 = rng
Else
Set rng1 = Union(rng1, rng)
End If
End Select
Next
rng1.Interior.ColorIndex = 6
End Sub

复制代码

by201 · 发表于 2015-7-11 07:49

天天EP 发表于 2015-7-11 07:06
试试,是否符合要求

我是新建模块的试了下好像不行

qh8600 · 发表于 2015-7-11 09:33

这个最佳答案由 qh8600 给出，感谢 qh8600 的回答。

单击隐藏图章

7.11.rar (17.31 KB, 下载次数: 18)

by201 · 发表于 2015-7-11 10:28

qh8600 发表于 2015-7-11 09:33
楼主试试

谢谢你做的很好

by201 · 发表于 2015-7-11 13:59

qh8600 发表于 2015-7-11 09:33
楼主试试

发现一个问题 5,11,18,26,38,47,57,63,67,77,87,100,104,113,120,128,136,141,152,159,167,174,180,186,191,197,206,213,220,227,232,239,247,255,261,272,280,285,291,297,302,306,313,320,328,332,337,344,固定数值有这么多就不对了

天天EP · 发表于 2015-7-11 15:36

by201 发表于 2015-7-11 07:49
我是新建模块的试了下好像不行

我早上测了是行的,才发出来的
看附件

新建 Microsoft Excel 工作表.rar (14.42 KB, 下载次数: 3)

天天EP · 发表于 2015-7-11 15:37

by201 发表于 2015-7-11 13:59
发现一个问题 5,11,18,26,38,47,57,63,67,77,87,100,104,113,120,128,136,141,152,159,167,174,180,186, ...

这一堆有啥规律?

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