当前位置：首页 → 问答吧 → 条件格式的设置方式？

条件格式的设置方式？

时间：2011-08-03

来源：互联网

A工作表D列中：
60007237 ……C0011968……6110620701……6110620703……W110720301
B工作表A列中：
C0011968 6110620701 7110708407……
A、B工作表可随时增加数值。

求：如何利用条件格式将B工作表的数值在A列体现出来？
还有没有其他的方式更快的能体现出来？
谢谢。

作者: 第9号机器人发布时间: 2011-08-03

不上附件,不模拟结果,估计等你升为10号机器人都解决不了问题

作者: 醉舞街头发布时间: 2011-08-03

请楼主验证附件，在第二个工作A列添加数据，看一下第一个工作表里的相同数据标示没有？

复制内容到剪贴板

代码:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim m As Integer
Dim n As Integer
Dim RG2 As Range
Dim RG1 As Range
m = Sheets(1).Range("A65535").End(xlUp).Row
n = Sheets(2).Range("A65535").End(xlUp).Row
Sheets(1).Range("A1:A" & m).Interior.ColorIndex = xlNone
For Each RG2 In Sheets(2).Range("A1:A" & n)
      For Each RG1 In Sheets(1).Range("A1:A" & m)
         If RG2 = RG1 Then
            RG1.Interior.ColorIndex = 8
         End If
      Next RG1
Next RG2
End Sub

[ 本帖最后由佛山小老鼠于 2011-8-3 11:46 编辑 ]