同条件变颜色的宏

马吊仔

请各位大侠帮忙编个宏 就是两个条件相同改变颜色的宏

microyip

自带的条件格式就可以了

liulang0808

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Set d1 = CreateObject("scripting.dictionary")
   
4.     Application.ScreenUpdating = False
   
5.     Columns("i:l").Interior.ColorIndex = 0
   
6.     For j = 5 To Cells(Rows.Count, 9).End(3).Row
   
7.         If Cells(j, 9) = [h1] Then
   
8.             If Not d.exists(Cells(j, 11).Value) Then
   
9.                 Set d(Cells(j, 11).Value) = Union(Cells(j, 11), Cells(j, 9))
   
10.             Else
    
11.                 Set d(Cells(j, 11).Value) = Union(d(Cells(j, 11).Value), Cells(j, 11), Cells(j, 9))
    
12.             End If
    
13.             
    
14.             If Not d1.exists(Cells(j, 12).Value) Then
    
15.                 Set d1(Cells(j, 12).Value) = Cells(j, 12)
    
16.             Else
    
17.                 Set d1(Cells(j, 12).Value) = Union(d1(Cells(j, 12).Value), Cells(j, 12))
    
18.             End If
    
19.         End If
    
20.     Next j
    
21.     For Each Rng In d.items
    
22.         If Rng.Cells.Count > 2 Then Rng.Interior.ColorIndex = 6
    
23.     Next Rng
    
24.     For Each Rng In d1.items
    
25.         If Rng.Cells.Count > 1 Then Rng.Interior.ColorIndex = 8
    
26.     Next Rng
    
27.     Application.ScreenUpdating = True
    
28. End Sub
    

复制代码

liulang0808

底色，楼主根据需求调整吧